.........
público
AA: palavra;
.........
procedimento TForm1.FormCreate (remetente: Tobject);
Começar
// Pesquise o banco de dados do sistema para ver se o programa está em execução
Se GlobalFindatom ('' 'Project1' ') = 0 Então // Project1 é o nome do arquivo exe
// Se o arquivo exe não for encontrado, adicione o nome do arquivo exe ao banco de dados do sistema
AA: = GlobalAddatom ('' 'Project1' ')
outro
Begin // Se o programa já estiver em execução, exiba as informações e saia do programa
Messagedlg ('' Este programa está em execução! '', Mtwarning, [mBok], 0);
Parada;
fim;
fim;
.........
procedimento TFFORM1.FORMDESTROY (remetente: Tobject);
Começar
{Ao sair do programa, exclua o nome do arquivo adicionado da tabela de dados}
Globaldeleteatom (AA);
fim;