.........
عام
AA: كلمة ؛
.........
الإجراء tform1.formcreate (المرسل: tobject) ؛
يبدأ
// ابحث في قاعدة بيانات النظام لمعرفة ما إذا كان البرنامج يعمل
إذا كان GlobalFindatom ('' project1 '') = 0 ثم // project1 هو اسم ملف exe
// إذا لم يتم العثور على ملف exe ، فأضف اسم ملف exe إلى قاعدة بيانات النظام
AA: = GlobaladDatom ('' Project1 '')
آخر
ابدأ // إذا كان البرنامج قيد التشغيل بالفعل ، فقم بعرض المعلومات والخروج من البرنامج
messagedlg ('' 'هذا البرنامج قيد التشغيل!' '، mtwarning ، [mbok] ، 0) ؛
وقف؛
نهاية؛
نهاية؛
.........
الإجراء tform1.formdestroy (المرسل: tobject) ؛
يبدأ
{عند الخروج من البرنامج ، احذف اسم الملف المضافة من جدول البيانات}
Globaldleteatom (AA) ؛
نهاية؛