برنامه فقط یکبار اجرا شود

[farzaneh23]

من چی کار باید بکنم که برنامه ای که ساختم فقط یک بار در هر دفعه اجرا بشه. یعنی اگه برنامه رو اجرا کردم همزمان نتونم با کلیک روی ایکون اون دوباره اجراش کنم

[meyti]

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

از منوی 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.

[hooch]

کد فوق موقع اجرا خطای زیر را می دهد

[admin]

سلام.
لطفا در نوشتن کد دقت کنید :
شما در خط چهارم بایستی

کد:

windows,

رو به کدتون اضافه کنید.
یعنی بشود

کد:

Forms,windows,

موفق و موید باشید.