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