Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Is_run32 & mulitple instances
Message
De
18/07/2000 14:56:26
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Fonctions Windows API
Divers
Thread ID:
00393284
Message ID:
00393974
Vues:
22
George,

This is what I had:

#DEFINE ERROR_ALREADY_EXISTS 183
LOCAL oMutex, lcformcaption
lcformcaption = "Remote Processing Program" && Even if I put _SCREEN.CAPTION I get the same result
SET PROCEDURE TO Mutex ADDITIVE
oMutex = CREATEOBJECT('Mutex', lcformcaption)

IF oMutex.nmutexerror # ERROR_ALREADY_EXISTS
*!* Some code
ELSE
omutex.displayinstance()
ENDIF

Could it be the way I define the class? This is the complete mutex.prg:

DEFINE CLASS mutex AS CUSTOM
* The 3 properties used in the 'INIT' procedure
cformcaption = ""
hmutex = 1
nmutexerror = 0

PROCEDURE INIT
* the exact code from the article
PROCEDURE displayinstance
* same
PROCEDURE DESTROY
* same
ENDDEFINE

I'm Stumped
Mike
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform