Réponse acceptée !
Je te conseille de regarder ici :
http://delphi.developpez.com/faq/?page=interexecution
c'est expliqué en clair... et en détail, grace aux mutex :
program Project1;
uses
Windows, Forms,
Unit1 in'Unit1.pas';
{$R *.RES}
begin
SetLastError(NO_ERROR);
CreateMutex (nil, False, 'Nom de l application');
if GetLastError = ERROR_ALREADY_EXISTS
then Exit;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Fabien FERT [:)]
www.sigmadia.fr.fm