1 instance : oui, 2 instances: bonjour les dégats

Version imprimable

Bonjour,

J'aimerais empêcher mon appli d'être lancée plusieurs fois par erreur par l'utilisateur.
J'ai bien trouvé ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 program Project1; uses Windows, Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} var H : THANDLE; begin SetLastError(NO_ERROR); H := CreateMutex (nil, False, "Nom de l application"); if GetLastError = ERROR_ALREADY_EXISTS then Exit; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; CloseHandle(H); end.
mais cela ne marche pas, en fait cela ne fait rien.
Quelqu'un aurait-il la solution ?

Merci d'avance.

15/12/2006, 15h37
qi130

Citation:

en fait cela ne fait rien.

Peux-tu être plus explicite ?

essayes comme cela

Code:

1
2
3
4
5
6
7
8
9
10
11
 
SetLastError(NO_ERROR);
 H := CreateMutex (nil, True, pChar (Uppercase (ExtractFileName (Application.ExeName))));
if (H = 0) or (GetLastError = error_Already_Exists) then Application.Terminate ;
try
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
finally
  ReleaseMutex (H);
end;

15/12/2006, 15h46
LadyWasky

Si tu crées le Mutex, et que tu le détruit dè que ton programme est lancé, ça va pas le faire...

Edit : grilled by exoseven :aie: :aie: :aie:

Citation:
essayes comme cela
Code:

1 2 3 4 5 6 7 8 9 10 SetLastError(NO_ERROR); H := CreateMutex (nil, True, pChar (Uppercase (ExtractFileName (Application.ExeName)))); if (H = 0) or (GetLastError = error_Already_Exists) then Application.Terminate ; try Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; finally ReleaseMutex (H); end;
Ben... maintenant ça coupe dès la première instance.
Poutant H <> 0.

:tagcode: et les balises QUOTE aussi pour citer

15/12/2006, 16h30
od.dev

Citation:

Envoyé par qi130

Peux-tu être plus explicite ?

Pas facile, le logiciel se comporte comme avant d'inserrer le code.
15/12/2006, 16h33
od.dev

Citation:

Envoyé par waskol

Si tu crées le Mutex, et que tu le détruit dè que ton programme est lancé, ça va pas le faire...

Edit : grilled by exoseven :aie: :aie: :aie:

On a plus besoin du Mutex après que l'appli ait démarré.
15/12/2006, 16h34
LadyWasky

Citation:

Envoyé par od.dev

On a plus besoin du Mutex après que l'appli ait démarré.

Ben si justement, c'est son existence en mémoire qui indique à la seconde instance qu'une première tourne déjà...
15/12/2006, 16h39
od.dev

Citation:

Envoyé par waskol

Ben si justement, c'est son existence en mémoire qui indique à la seconde instance qu'une première tourne déjà...

Ah bon d'accord, je n'avais pas compris ça avec les exemples que j'avais trouvé.
Je vais essayer.

Merci.
15/12/2006, 16h49
od.dev

Citation:

Envoyé par waskol

Ben si justement, c'est son existence en mémoire qui indique à la seconde instance qu'une première tourne déjà...

Ok, effectivement ça marche très bien en gardant le Mutex.
Par contre j'ai du mettre le nom de l'appli en dur à la place de "pChar (Uppercase (ExtractFileName (Application.ExeName)))", sinon il coupe systématiquement bien que H > 0.

Merci à tous.
15/12/2006, 16h53
LadyWasky

Par contre, pense à détruire le mutex lorsque ton appli quitte, sinon tu ne pourra plus lancer ton programme à moins de rebooter :mrgreen: :aie:

dans la partie finalize (F1 dans Delphi, faut que j'y ailles :aie: ) du dpr par exemple .

Citation:

Envoyé par waskol

Par contre, pense à détruire le mutex lorsque ton appli quitte, sinon tu ne pourra plus lancer ton programme à moins de rebooter.

J'en profite c'est la 1° fois que je ne suis pas d'accord avec Waskol :mrgreen:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 var hHandle: HWND; begin SetLastError(NO_ERROR); hHandle := CreateMutex(nil, False, 'MonAppli'); if GetLastError <> ERROR_ALREADY_EXISTS then begin Application.Initialize; FormSplash := TFormSplash.Create(Application); FormSplash.Show; FormSplash.Update; [...] Application.Run; end; //ReleaseMutex(hHandle); // Est-ce utile ?? end.
En procédant ainsi nul besoin de rebooter la machine !

@+ Claudius