Bonjour,

Pour éviter de lancer plusieurs fois mon application, en dephi 5 j'écrivais

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.
Mais Delphi7 ne connais pas SetLastError

Avez-vous un idée pour interdire a mon application d'être lancer plusieurs fois ?