VB5.0 二重起動防止の方法は？

質問

• OSWin98/VB5.0を使用しています。同一のシステムの重複起動を防止したいのです。
• App.PrevInstanceで判断できると思うのですが、例１と同じ方法でもこの場合は、二重起動を防ぐことができません。
• 他によい方法がある、ここがおかしいんじゃないの？等ありましたら、教えてください。

回答No.1

noname#5584

App.PrevInstanceプロパティを利用する方法は下記の通りです。(一例)

' 指定されたクラス名とウィンドウ名を持つトップレベルウィンドウを探す。
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
' 指定されたウィンドウが所有するポップアップウィンドウのうち、
' 直前にアクティブであったウィンドウを調べる。
Private Declare Function GetLastActivePopup Lib "user32" _
(ByVal hWndOwnder As Long) As Long
' 指定されたウィンドウを作成したスレッドをフォアグラウンドにし、そのウィンドウをアクティブにする。
Private Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long
' 指定されたウィンドウの表示状態を設定する。
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Private Const SW_RESTORE = 9

Public Sub Main()
Dim strAppCaption As String
Dim lngFirstTophWnd As Long
Dim lngFirstPophWnd As Long
Dim lngResult As Long

If App.PrevInstance Then
' 多重起動の禁止。
' アプリケーションのキャプションを得る。
strAppCaption = App.Title
' 自アプリのキャプションを変更する。
App.Title = strAppCaption & " "
' トップレベルのウィンドウハンドルを得る。
lngFirstTophWnd = FindWindow("ThunderRT5Main", strAppCaption)
' Visual Basic 6.0アプリの場合。
'lngFirstTophWnd = FindWindow("ThunderRT6Main", strAppCaption)
' 直前にアクティブなウィンドウハンドルを得る。
lngFirstPophWnd = GetLastActivePopup(lngFirstTophWnd)
' ウィンドウをアクティブにする。
lngResult = SetForegroundWindow(lngFirstPophWnd)
' 最小化されタスクバーに格納されてある場合があるので、ウィンドウを通常表示にさせる。
lngResult = ShowWindow(lngFirstPophWnd, SW_RESTORE)
' アプリケーションを終了させる。
End
End If
End Sub

ただし、.NETでは、このコードは使用できません。
VB以外の開発ツールでは、Mutex等を使用する方法が一般的なようです。

http://dobon.net/vb/dotnet/process/checkprevinstance.html

参考URL：

http://dobon.net/vb/dotnet/process/checkprevinstance.html

補足

ありがとうございます。教えていただいたとおりにやっているのに、それでも二重起動ができてしまうとしたら、何か考えられる問題があるでしょうか。お心あたりがありましたら教えてください。