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

از منوی project زیر منوی view source رو انتخاب کن بعد متن مثل زیر تغییر بده





کد:

کد:
program Project2;

uses
Forms,windows,
Unit1 in "Unit1.pas" {Form1};

{$R *.res}

var
MutexHandle: THandle;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
MutexHandle:=CreateMutex(nil,TRUE,"NameofMyProgram-version1.2.3");
If MutexHandle<>0 then
If GetLastError=ERROR_ALREADY_EXISTS then
begin
Application.MessageBox(&quot;This program is runing&quot;,&quot;Error!&quot;,mb_ok);
Application.Terminate;
end;
Application.Run;
end.