اجرا نشدن دوباره برنامه

[beny]

با سلام و احترام

میخوام کدی باشه که اگه برنامه اجرا باشه یعنی تو حافظه باشه دوباره اجرا نشه پیغام بده . اگه ممکنه راهنماییم کنید.

ممنون

[meyti]

از این کد استفاده کن :



var
Form1: TForm1;
handle_temp:THandle;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
handle_temp:=CreateMutex(nil,TRUE,'project');

If handle_temp<>0 then

If GetLastError=ERROR_ALREADY_EXISTS then

begin

Application.MessageBox('This program is runing','Error!',mb_ok);

Application.Terminate;

end;

end;