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.