| 投稿日 | ： 2003/06/04(Wed) 17:28 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: アプリケーションの二重起動を防ぎたいのですが。 |
ある掲示板に下記のような回答がありました。
ShellExecute では不可能です。
ShellExecuteEx API関数で fMask にSEE_MASK_NOCLOSEPROCESS を指定して起動すれば
hProcessが得られるので、WaitForSingleObject API関数で待機、
CloseHandle API関数でhProcessを破棄
という手順で良いでしょう。
又、下記のような起動方法もあります。
Private Sub Command1_Click()
Dim Ret As Long
Ret = Shell(Environ("ComSpec") & " /c start C:\Test.hlp", vbHide)
End Sub