.........
öffentlich
AA: Wort;
.........
procedure tform1.formcreate (Absender: tobject);
Beginnen
// Durchsuchen Sie die Systemdatenbank, um festzustellen, ob das Programm ausgeführt wird
Wenn GlobalFindatom ('' Project1 '' ') = 0 dann // Project1 der Exe -Dateiname ist
// Wenn die EXE -Datei nicht gefunden wird, fügen Sie den Namen der EXE -Datei zur Systemdatenbank hinzu
AA: = GlobalAddatom ('' Project1 '')
anders
Beginnen Sie // Wenn das Programm bereits ausgeführt wird, zeigen Sie die Informationen an und beenden Sie das Programm
Messagedlg ('' Dieses Programm läuft! '', MtWarning, [Mbok], 0);
Halt;
Ende;
Ende;
.........
procedure tform1.FormDestroy (Absender: Tobject);
Beginnen
{Löschen Sie beim Verlassen des Programms den hinzugefügten Dateinamen aus der Datentabelle}
GlobalDeletom (AA);
Ende;