Discussion :

[bm1990]

Salut tous le monde, je cherche comment interdire le lancement de plusieurs instance d'une seule application et où mettre le code pour qu'il fonctionne.

Merci à tous.

[cincap]

Bonsoir à toutes et à tous,

@ bm1990, voici à placer dans l'unité de ton projet et en ajoutant "Windows" :

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
22
 
 
program Project1;
uses
  Windows, Forms,
  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.RES}
var
	H : THandle;
	Erreur: Integer;
begin
  SetLastError(NO_ERROR);
  H := CreateMutex (nil, False, 'Nom de l application');
  Erreur := GetLastError;
  if ( Erreur = ERROR_ALREADY_EXISTS ) or ( Erreur = ERROR_ACCESS_DENIED )
    then Exit;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
  CloseHandle(H);
end.

@+,

cincap

[bm1990]

merci @cincap ça marche super bien.