| 投稿日 | ： 2003/06/04(Wed) 16:46 |
| 投稿者 | ： たくみ |
| ＵＲＬ | ： |
| タイトル | ： アプリケーションの二重起動を防ぎたいのですが。 |
ＶＢから、コマンドボタンを押して、ヘルプファイルを呼び出すプログラムを
作成したのですが、押すたびに起動してしまうことに気づきました。
FindWindowを使うのではなく、プロセスIDを取得してオブジェクトの存在を
判別して処理をしたいと考えたのですが、初心者なもので、よくわかりません。
（使用するのは、WaitForSingleObjectでよろしいのでしょうか？）
どのようにしたらよいのでしょうか。どなたか教えてください。
呼び出すまでの流れは以下のような感じです。
Dim File As String
Dim ret As Long
File = App.path & "\aaa.hlp"
ret = ShellExecute(Me.hwnd, "Open", File, _
vbNullString, vbNullString, SW_SHOWNORMAL)