PDA

نسخه کامل مشاهده نسخه کامل : چگونه تشخيص دهيم که یک برنامه در حال اجراست؟



hesam
22-12-2004, 15:28
گاهي پيش مي آيد كه بخواهيم زماني كه برنامه ما در حال اجرا مي باشد كاربر نتواند آن را مجددا اجرا كند . چرا كه ممكن است در منابع بكار گرفته شده توسط برنامه خللي ايجاد گردد . اين ترفند بخصوص در برنامه هاي بانك اطلاعاتي كاربرد زيادي مي تواند داشته باشد چرا كه اجراي مجدد برنامه و دستكاري آن در ركوردهاي بانك اطلاعاتي همان برنامه ( به شرط آنكه بانك اطلاعاتي توسط اجراي اول تسخير نشده باشد چرا كه در آن صورت تا زمانيكه اجراي اول فايل را آزاد نكند دستكاري ركورد ها غير ممكن است ) اختلالات جبران ناپذيري بوجود مي آورد . پس در ابتداي كار لازم است بدانيم آيا برنامه ما در حال اجرا مي باشد يا نه سپس تصميمات لازم را اخذ كنيم . بطور مثال براي كاربر پيغام دهيم كه برنامه هم اكنون در حال اجرا مي باشد .

ابتدا بلاك اصلي پروژه را باز كنيد . اين عمل را مي توانيد با فشردن كليدهاي Ctrl + F12 و سپس انتخاب يونيت اصلي پروژه انجام دهيد .

در ابتدا در قسمت معرفي يونيت ها يونيت Windows را اضافه كنيد :


Uses Windows;



حال در قسمت تعريف متغير ها , متغيري از نوع THandle تعريف كنيد :


Var Mutex : THandle;



Mutex يك مقدار 32 بيتي براي تشخيص يكتا بودن يك منبع مي باشد.

حال به بلاك اصلي برنامه مي رسيم كه مي بايست كد آن را به صورت زير تغيير دهيد :


begin
Mutex:=CreateMutex(nil,False,'OneCopyMutex');
if WaitForSingleObject(Mutex,0) <> wait_TimeOut then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.




تابع CreateMutex متغيري كه از نوع THandle تعريف كرده ايد را با مقدار اوليه OneCopyMutex مقدار دهي مي كند . توجه داشته باشيد كه در واقع منظور از اين مقدار دهي اوليه قرار دادن رشته OneCopyMutex در متغير نيست بلكه متغير براي تشخيص وجود يك كپي از يك منبع مقدار دهي اوليه مي شود.

حال با استفاده از شرط if WaitForSingleObject(Mutex,0)<>wait_TimeOut then تشخيص مي دهيم كه آيا يك كپي ديگر از Mutex تعريف شده است يانه. كه چنانچه مقدار برگشتي تابع WaitForSingleObject برابر با wait_TimeOut باشد مسلم است كه برنامه در حال اجرا مي باشد .

MaSoOd
14-01-2005, 07:47
ممنون از مقالت حسام جان
اینم لینکش :


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

توجه : این سایتی که برا آپلود انتخاب شده محدودیت پهنای
باند و ... نداره
حالا اگه کسی به هر دلیلی نتونست این مقاله رو دانلود کنه تو تاپیکی که " تمام مقالات انجمن آموزش رو بصورت PDF دریافت کنید بالای انجمن هست یه پست بده و اسم مقاله رو بگه تا من براش مقاله رو ایمیل بزنم انتخاب با شما بصورت word یا pdf