多重起動チェックテンミニッツサイトストラテジーサンデーアマグラマーNorimakiの開発日誌。その他Tipsども、Norimakiです。今回は多重起動チェックを。ミューテックスを使って多重起動チェックをする方法があるそうです。どこからかコードを引っ張ってきて書いたものです。どこから引用したものか失念してしまいました。これは僕が使っているコードですので、そのままコピペでは使えません。必要に応じて書き換えて使用してください。NV_FatalErrorCode:=Ord(ecApplicarionAlreadyRunning);end;多重起動をチェックし多重起動していればFalseを返す関数です。(正確にはアプリケーション起動チェックをする関数です)しかし、多重起動を許すフラグ(NV_MultiRunning)が立っていたら多重起動していてもTrueが返ってきます。この関数を呼び出す際は、メインフォームのクラス名をNV_MainFormClassNameという変数に設定した上で呼び出します。設定されていない場合は致命的エラーコードを設定して戻ります。多重起動であれば致命的エラーコードを設定し戻ります。致命的エラーコードを設定する変数は、NV_FatalErrorCodeという変数です。今の自分にはこれが精一杯。