-
สาธารณะ
AA: Word;
-
ขั้นตอน TFORM1.FormCreate (ผู้ส่ง: TOBJECT);
เริ่ม
// ค้นหาฐานข้อมูลระบบเพื่อดูว่าโปรแกรมกำลังทำงานอยู่หรือไม่
ถ้า globalfindatom ('' project1 '') = 0 แล้ว // project1 คือชื่อไฟล์ exe
// หากไม่พบไฟล์ exe ให้เพิ่มชื่อไฟล์ exe ลงในฐานข้อมูลระบบ
AA: = GlobalAdDatom ('' Project1 '')
อื่น
เริ่มต้น // หากโปรแกรมทำงานอยู่แล้วให้แสดงข้อมูลและออกจากโปรแกรม
MessageGlg ('' โปรแกรมนี้กำลังทำงานอยู่! '', mtwarning, [mbok], 0);
หยุด;
จบ;
จบ;
-
ขั้นตอน TFORM1.FormDestroy (ผู้ส่ง: TOBJECT);
เริ่ม
{เมื่อออกจากโปรแกรมให้ลบชื่อไฟล์ที่เพิ่มออกจากตารางข้อมูล}
Globaldeleteatom (AA);
จบ;