アプリケーションの二重起動を避けるためには (ID:9650)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 HOtaさんありがとう御座いました。 早速実行してみました。 が現象は変わりませんでした。 下記の書き方に誤りがあるでしょうか。 program liveif; {$APPTYPE CONSOLE} uses SysUtils, windows,dialogs, module1 in 'module1.pas' {DataModule1: TDataModule}; const FMutexStr: string = 'KENSASTR'; var FMutex : THandle; begin // ここにプログラムコードを書いてください。 FMutex := OpenMutex(MUTEX_ALL_ACCESS,False,PChar(FMutexStr)); if FMutex <> 0 then begin exit; end else begin FMutex := CreateMutex(nil,False,PChar(FMutexStr)); end; datamodule1 := Tdatamodule1.create(nil); try datamodule1.LOGcount; datamodule1.makefile; datamodule1.ASdataread; datamodule1.rename; finally datamodule1.free; releaseMutex(FMutex); end; end.