[Amin_Mansouri]

برای جلوگیری از اجرای دوباره برنامه در دلفی از دستور زیر استفاده کنید :

کد:

program Project2;

uses
  Forms,windows,
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

var
  Mutex : THandle;
begin
//www.parsicoders.ocm
  Mutex := CreateMutex(nil, True, 'MyAppName');
  if (Mutex <> 0) and (GetLastError = 0) then
  begin
    Application.Initialize;
    Application.CreateForm(TForm3, Form3);
    Application.Run;
    CloseHandle(Mutex);
  end;
end.