عدم اجرای مجدد برنامه

[فریدی]

چگونه میتوان در صورت اجرا بودن برنامه جلوی اجرای مجدد آنرا گرفت و پیغام لازم را صادر کرد

[Mahdi_S_T]

Uses

     Windows,Forms

Var

    hMutex:THandle;

begin

  hMutex:=CreateMutex(nil,false,'OneConyMute  x');

  if waitforsingleobject(hMutex,0)<>wait_Tim  eOut then

     begin

         Application.Initialize;

          ادامه کدهای موجود در یونیت

     end;

در ضمن کدهای فوق در یونیت پروژه اضافه شود