複数の同一のEXEプログラムが同時に実行されないようにします

.........

公共

aa：word;

.........

手順tform1.formcreate（sender：tobject）;

始める

//システムデータベースを検索して、プログラムが実行されているかどうかを確認します

GlobalFindatom（ '' Project1 ''）= 0の場合、// Project1はexeファイル名です

// exeファイルが見つからない場合は、exeファイル名をシステムデータベースに追加します

aa：= globaladdatom（ '' project1 ''）

それ以外

//プログラムが既に実行されている場合は、情報を表示してプログラムを終了します

mesagedlg（ ''このプログラムは実行されています！ ''、mtwarning、[mbok]、0）;

停止;

終わり;

終わり;

.........

手順tform1.formdestroy（sender：tobject）;

始める

{プログラムを終了するときは、データテーブルから追加されたファイル名を削除します}

GlobalDeleTeatom（AA）;

終わり;