投稿日 | : 2003/06/04(Wed) 16:46 |
投稿者 | : たくみ |
URL | : |
タイトル | : アプリケーションの二重起動を防ぎたいのですが。 |
VBから、コマンドボタンを押して、ヘルプファイルを呼び出すプログラムを
作成したのですが、押すたびに起動してしまうことに気づきました。
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)