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

[فریدی]

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

[Mahdi_S_T]

Uses
Windows,Forms
Var
hMutex:THandle;
begin
hMutex:=CreateMutex(nil,false,'OneConyMutex');
if waitforsingleobject(hMutex,0)<>wait_TimeOut then
begin
Application.Initialize;
ادامه کدهای موجود در یونیت
end;

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