今日は二重起動の防止処理を入れました。

※今日の日記は、かなりマニアックです。


アイコンのダブルクリックを勢い余って、トリプルクリックすると、
プログラムが二重起動してしまいますよね。


それを避けるルーチンをＨＳＰで実現できるみたいなので、組み込んでみました。
スクリプトは、こちらを参考にさせていただきました。




HSPで二重起動を防止するには、３つの方法があるみたいです。

●方法１．

 (1) プログラム起動時になんでもいいからファイルを作成する。

 (2) (1)で作ったファイルがあったら、強制終了

 (3) プログラム終了時に(1)のファイルを消す

 ⇒二番目に起動したプログラムは(2)ではじかれて終了する。
●方法２．

 (1) 起動プログラムにtitleを設定

 (2) HSPEXT.DLLのaplsel関数で、(1)と同じタイトルのプログラムを探す

 (3) (2)が見つかったら、強制終了

 ⇒二番目に起動したプログラムは(3)ではじかれて終了する。
●方法３．

 Kernel32.dllのミューテックス関数を使う方法 
　　#uselib "kernel32.dll"

　　#func CreateMutexA "CreateMutexA" sptr,int,sptr

　　#func CloseHandle "CloseHandle" sptr

　　#func GetLastError "GetLastError"
　　#define ERROR_ALREADY_EXISTS 183
    CreateMutexA 0,0,"yonkoushi"

    mutex_handle=stat			; Mutexのハンドルを取得
    ; エラーを確認

    GetLastError
    ; すでにMutexが存在していた！（存在していてMutexが作成できなかった）

    if stat=ERROR_ALREADY_EXISTS {

 	dialog "２重起動されています!!",1

	end

    }

３つ方法がありますが、私は方法３を選びました。
アトミックなレベルの処理に堅牢性がありそうだと思ったのです。


アトミックなレベルとは、例えば、
以下のスレッド１とスレッド２が同時に実行されてようないるとき、

＜スレッド１＞

＊aaa

if( flag = 0 ){

   flag += 1

   処理１

   flag = 0

}

else{

  goto ＊aaa

}
＜スレッド２＞

＊bbb

if( flag = 0 ){

   flag += 1

　 処理２

   flag = 0

}

else{

  goto ＊bbb

}

上のスレッド１とスレッド２が同時に実行されているとき、
処理１と処理２は、flag変数の関係で、
同時には実行されないかのように見えます。


ところが、『flag += 1』をマシン語レベルで見ると、

メモリから読み出す。

加算する

書き込む

となっているわけです。



で、二重起動のタイミングが悪いと、

１番目のプログラムが起動する

メモリから読み出す(flag == 0)

加算する

　　２番目のプログラムが起動する

　　メモリから読み出す(flag == 0)

書き込む(flag == 1)

　　加算する

　　書き込む(flag == 1)

となって二重起動を防げないわけです。
その点、ミューテックスを使えば、マシン語のレベルで
競合を回避できるということですね！


ただ１つ気になるのは、VISTAとかでもちゃんと動くのかなってことですかね？
大丈夫だとは思うのですが…。