في هذا الدرس الجديد من سلسلة دروس الدلفي
كثير من الأحيان نقوم ببرمجة تطبيقات خاصة في الدلفي مهما كانت و خاصة المتعلقة منها بالتسيير اي استخدام قاعدة البيانات
و لكن عند استعمالها يمكن ان ننفذها عدة مرات في نفس الوقت مما يسبب بعض التشنجات في البرامج
و كذلك بعض الإختلالات في تخزين المعلومات في قواعد البيانات لذلك نقدم لكم في هذا الدرس
الكود الخاص بمنع تشغيل البرنامج لأكثر من مرة
هذا الكود وظيفته عدم السماح بتكرار تنفيذ التطبيق عن طريق اسمه بإظهار رسالة تنبيه او تحذير من ذلك
و التي يمكن الإستغناء عنها اي رسالة التحذير و الإكتفاء فقط
بعدم تكرار تنفيذ التطبيق
الكود :
program Project1
uses
windows, forms , dialogue,
unit 1 in 'unit1.pas' {form1};
{$R *.RES}
var
H : Thandle;
Erreur : integer;
begin
setlastError(NO_ERROR);
H := CreateMutex (nil, False, 'إسم التطبيق حسب الحفظ');
if (Erreur = ERROR_ALREADY_EXISTS) or (Erreur = ERROR_ACCESS_DENIED)
then
begin
showmessage('البرنامج مشغل');
exit;
end;
Application.initialize;
Application.CreatForm(Tform1, Form1);
Application.Run;
CloseHandle(H);
end.
قد يعجبك ايضا