Затем в обработчике событий форм креатэ дописываем:
procedure TForm1.FormCreate(Sender: TObject); begin if WaitForSingleObject(h, 0)<>0 then begin ShowMessage('Программа уже запущена!'); Application.Terminate; end; end;
initialization h := CreateMutex(nil, True, PChar(ExtractFileName(Application.ExeName))); finalization CloseHandle(h); end.