Bonjour,
Pour éviter de lancer plusieurs fois mon application, en dephi 5 j'écrivais
Mais Delphi7 ne connais pas SetLastError
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 Forms, Windows, Unit1 in 'Unit1.pas' {Form1}, WinSysUtils in 'WinSysUtils.pas'; {$R *.RES} begin SetLastError(NO_ERROR); CreateMutex (nil, False, 'printer write V1.9'); if GetLastError = ERROR_ALREADY_EXISTS then Exit; Application.Initialize; Application.Title := 'printer write V1.9'; Application.CreateForm(TForm1, Form1); Application.Run; end.
Avez-vous un idée pour interdire a mon application d'être lancer plusieurs fois ?
Partager