[NumLock]

данный код запрещает запуск второй копии приложения:

PHP код:

program Project1;

uses
  Windows,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var
  hMutex: THandle;

begin
  hMutex:=CreateMutex(nil, False, 'E191BA0C41924AA9840243D5CAE346AF');
  try
    if GetLastError<>ERROR_ALREADY_EXISTS then
    begin
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      Application.Run;
    end;
  finally
    CloseHandle(hMutex);
  end;
end. 


вообще вариантов может быть много, с таким же количеством достатков и недостатков - сегодня мне нравится такой