Discussion :

[sinfoni]

Bonjour,

Voilà, j'ai un exécutable P1 et un exécutable P2 chargeant une DLL.

Je souhaite indiquer à la DLL qu'elle doit se décharger. Pour ce faire, je crée un Mutex dans P1.

Régulièrement, le code de la DLL chargée par P2 vérifie l'existence du Mutex créé par P1. Si le Mutex existe, la DLL se décharge de P2.

Dans P1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
vh_Mutex := CreateMutex(nil, True, MutexStopDll);

Dans la DLL de P2, à intervalle régulier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
vh_Mutex := CreateMutex(nil, True, MutexStopDll);
    if vh_Mutex = 0 then Begin
      trace(gc_process + MutexStopDll, 'Mutex ' + MutexStopDll + ' pas créé => Running');
      gl_quit := True;
    End
    else begin
      trace(gc_process + MutexStopDll, 'Mutex ' + MutexStopDll + ' créé => PAS Running');
      CloseHandle(vh_Mutex);
    end;

Et bien ce code ne fonctionne pas. J'utilise les Mutex depuis 10 ans, et la nada. La seule particularité est que le code essayant qui tente la création du Mutex est dans une DLL, et qu'elle y parvient alors que P1 a déjà créé le Mutex. Je n'y comprends absolument rien.

Une idée ?

[ShaiLeTroll]

J'ai utilisé le Mutex dans un Objet OLE sous soucis récemment !
A la différence que j'ai mis False au paramètre bInitialOwner de CreateMutex

tu n'as pas oublié de tester si GetLastError() est égale à ERROR_ALREADY_EXISTS lorsqu'il te renvoie une valeur positive ?
10 ans ? Tu n'y as rien compris ?
C'est tout l'intéret d'avoir un Mutex commun à deux processus pour créer une section critique avec WaitForSingleObject et ReleaseMutex

Return Values

If the function succeeds, the return value is a handle to the mutex object. If the named mutex object existed before the function call, the GetLastError function returns ERROR_ALREADY_EXISTS. Otherwise, GetLastError returns zero.
If the function fails, the return value is NULL. To get extended error information, call GetLastError.

[sinfoni]

Pour moi, le CreateMutex (nil, TRUE, MutexName) ne renvoie de handle valide (non nul) que si le Mutex n'a pas déjà été créé par un autre processus. Si on veux accéder à un Mutex existant, il faut utiliser effectivement OpenMutex. Non ???

En testant le GetLastError, je m'en sors, mais je ne comprend pas comment on peut faire 2 CreateMutex (nil, TRUE, MutexName) en même temps dans 2 processus différents et récupérer 2 handles différents

Si c'est possible, et visiblement oui, non, je n'ai rien compris...

[Caribensila]

Salut,

Two or more processes can call CreateMutex to create the same named mutex. The first process actually creates the mutex, and subsequent processes open a handle to the existing mutex. This enables multiple processes to get handles of the same mutex, while relieving the user of the responsibility of ensuring that the creating process is started first. When using this technique, you should set the bInitialOwner flag to FALSE; otherwise, it can be difficult to be certain which process has initial ownership.

[sinfoni]

En fait j'utilise le même code depuis des années sans me poser de question. Dans cette nouvelle application, j'ai encore utilisé ce code. Mais... dans mon copier-coller, le test du GetLastError est passé à la trappe Mon code original l'utilise.

Donc effectivement, il faut bien faire un GetLastError...

Merci pour vos réponses.