کدی برای نشون دادن برنامه هایی که قبلاً اجرا شده بود !

[shahin_man]

من کد برای دلفی می خوام:
کدی که نشون بده که برنامه من قبلا اجرا شده یا نه و اگه اجرا شده بود و در حال اجرا بود برنامه من دیگه اجرا نشه.

[joker]

من کد برای دلفی می خوام:
کدی که نشون بده که برنامه من قبلا اجرا شده یا نه و اگه اجرا شده بود و در حال اجرا بود برنامه من دیگه اجرا نشه.

program Project1;



uses

  windows,

  Forms,

  Unit1 in 'Unit1.pas' {Form1}

;



{$R *.RES}



    var

    HMutex : THandle ;

    begin

    HMutex := CREATEmutex(nil,false,'One Copy');

    if WaitForSingleObject(hmutex,0) <> wait_timeout then

    BEGIN

begin

  Application.Initialize;

  Application.CreateForm(TForm1, Form1);

  Application.Run;

  END;

  end;

end.

[Mahmood_M]

من کد برای دلفی می خوام:
کدی که نشون بده که برنامه من قبلا اجرا شده یا نه و اگه اجرا شده بود و در حال اجرا بود برنامه من دیگه اجرا نشه.

با اجازه از دوست عزیزمون Joker، ولی فکر کنم این یکی راحت تر باشه.

Function IsRunningApp:Boolean;

var

    Hwnd:Thandle;

begin

    hwnd:=CreateMutex(nil,False,'OneCopyMutex');

    Result:=false;

    If not(WaitForSingleObject(Hwnd,0)<>Wait_TimeOut) then

    Result:=true;

end;

طریقه استفاده از این کد :
می تونی این کد رو توی یونیت فرم اصلی قرار بدی و بعد مثلا در رویداد OnActivate یا OnShow مربوط به فرم اصلی چک کنی که برنامه داره اجرا می شه یا نه، اگه داره اجرا می شه یک پیغام نشون بدی و فرم اصلی برنامه رو ببندی، مثلا :

if IsRunningApp = True then

   MessageBox(Handle, 'Program is Running', '', MB_OK+MB_ICONEXCLAMATION);

   Form1.Close;