.........
publique
aa: mot;
.........
Procédure TForm1.FormCreate (Sender: Tobject);
Commencer
// Recherchez la base de données système pour voir si le programme s'exécute
Si globalFindatom ('' project1 '') = 0 alors // project1 est le nom du fichier exe
// Si le fichier EXE n'est pas trouvé, ajoutez le nom du fichier EXE à la base de données système
aa: = globaladdatom ('' project1 '')
autre
commencer // Si le programme est déjà en cours d'exécution, affichez les informations et sortez du programme
Messagedlg ('' Ce programme est en cours d'exécution! '', Mtwarning, [MBOK], 0);
Arrêt;
fin;
fin;
.........
Procédure tform1.formDestroy (expéditeur: tobject);
Commencer
{Lorsque vous sortez du programme, supprimez le nom de fichier ajouté de la table de données}
GlobaldeleTeate (AA);
fin;