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

**od.dev** · 15/12/2006, 15h30

Bonjour,

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

Code :

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

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.

**qi130** · 15/12/2006, 15h37

en fait cela ne fait rien.

Peux-tu être plus explicite ?

**exoseven** · 15/12/2006, 15h42

essayes comme cela

Code :

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

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;

**LadyWasky** · 15/12/2006, 15h46

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

**od.dev** · 15/12/2006, 16h28

essayes comme cela

Code :

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

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.

et les balises QUOTE aussi pour citer

**od.dev** · 15/12/2006, 16h33

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

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

**LadyWasky** · 15/12/2006, 16h34

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à...

**od.dev** · 15/12/2006, 16h39

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.

**od.dev** · 15/12/2006, 16h49

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.