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

名前

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

本文 このたび初めてお世話になります。 二重起動防止策については、ずいぶん過去ログとかに掲載されておりました がサンプルコードを実験してみて、一度もヒットした試しがありません。 原因は分かりませんが、素人判断でDelphiのバージョンが違うのか (今回は バージョン 5)、サンプルコードはFORM付きのアプリケーションで すが、小生のはコンソールアプリケーションだからどこか違うのかと、 思いあぐんでいます。 勝手な事情ですが納期が迫っています、どなたか成功例をご存知の方、宜し くご指導ください。 下記にプロジェクトの部分を参考までに掲載さしていただきました。 program liveif; {$APPTYPE CONSOLE} uses SysUtils, module1 in 'module1.pas' {DataModule1: TDataModule}; begin datamodule1 := Tdatamodule1.create(nil); try datamodule1.LOGcount; datamodule1.makefile; datamodule1.ASdataread; datamodule1.rename; finally datamodule1.free; end; end.