VB6 SP5にて2重起動確実な防止処理をいれようとCreateMutex 関数を使用しようと思っています。
CreateMutex 関数を埋め込んでEXEを実行すると
実際に対象となるプログラムが起動しているにも関わらず起動してしまいます。
何がいけないのか?検討がつかず困っています。
下記がプログラムになります。
何かわかりましたらご回答の程、よろしくお願い致します。
***Win32API****************
Option Explicit
' CreateMutex 関数
Private Declare Function CreateMutex Lib "KERNEL32.DLL" Alias "CreateMutexA" ( _
ByRef lpMutexAttributes As Long, _
ByVal bInitialOwner As Long, _
ByVal lpName As String _
) As Long
' CloseHandle 関数
Private Declare Function CloseHandle Lib "KERNEL32.DLL" ( _
ByVal hObject As Long _
) As Long
************************************
SUB MAIN*********************************
Public Sub Main()
Dim hMutex As Long
hMutex = CreateMutex(ByVal 0&, 0&, App.Title)
On Error GoTo Err_Main
If Err.LastDllError = 0 Then
Dim cForm As Form1
Set cForm = New Form1
Call cForm.Show(vbModal)
End If
Err_Main:
If hMutex <> 0 Then
Call CloseHandle(hMutex)
End If
End Sub
************************************************
No.1ベストアンサー
- 回答日時:
せっかく作ったミューテックスを獲得する
行為をしていません。つまり、何の制御も
していない状態です。
ミューテックスを獲得するには次のAPIを
使います。
Private Declare Function WaitForSingleOject _
Lib "kernel32" (ByVal ハンドル As Long, _
ByVal 待機時間 As Long) As Long
Const WAIT_TIMEOUT As Long = &H102
Dim 戻り値 As Long
戻り値 = WaitForSingleObject(hMutex, 0)
If 戻り値 = 0 Then
'獲得成功
Else
'獲得失敗(WAIT_TIMEOUTか-1)
End If
戻り値はタイムアウトなら他のプロセスで
ミューテックスを掴まれていることを示します。
ハンドルが無効ですと-1が返ります。
ミューテックスは争奪するもので、唯一つの
ミューテックスを勝ち得たものだけが制御権を
得るのですが、それはそのようにプログラム
しなければいけないと言うことです。獲得でき
ないのに処理を進めてしまったり、用が済んだ
のに解放しないとかはプログラマの責任です。
ご回答ありがとうございます。
補足なのですが
CreateMutexで生成する際、生成エラーで(Err.LastDllError)でエラーコードが入ると思っていましたがエラーになりませんでした。
回答いただきたWaitForSingleObjectを試してみたのですが
戻り値 = WaitForSingleObject(hMutex, 0)
プログラムが起動していても戻り値が0になります。
不慣れなもので何がおかしいのかわからない状況です。
(変更プログラム)
Sub main()
Dim hMutex As Long
Dim ErrCode As Long
Dim LWaitFor As Long
' 新しい Mutex を生成する (Mutex の名前にプロジェクト名を付ける)
hMutex = CreateMutex(ByVal 0&, 0&, App.Title)
' 実行時エラーが発生した場合は Finally ラベルに制御を移す (Mutex へのハンドルを確実に閉じるため)
On Error GoTo Finally
''' ErrCode = err.LastDllError
LWaitFor = WaitForSingleObject(hMutex, 0)
If LWaitFor = 0 Then
Comm.Show
End If
Finally:
' Mutex へのハンドルを閉じる
If hMutex <> 0 Then
Call CloseHandle(hMutex)
End If
End Sub
No.2
- 回答日時:
>プログラムが起動していても戻り値が0になります。
正しくプログラムしていれば絶対にありません。
最初に起動したプログラムは最後までミューテックスを
保持してますか?
正常時のShowメソッドがモーダルになっていないので、
そのままFinallyへ流れてミューテックスを閉じている
ような気がします。閉じてしまってはミューテックスを
手放したのと同じですから、後続のプロセスは問題なく
ミューテックスを捕まえることができ、処理を続行します。
ありがとうございました。
うまく行きました。
デバッグにて最初の起動させていたプログラムにミューテックスの処理が
入っていなかった為、戻り値が0となっていました。(すみません。あせっていたもので!)
助かりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Access(アクセス) Vba Userformを前面に出すについて 3 2022/04/15 12:29
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) VBA リボンののリカバリーでオーバーフローエラーになります 2 2023/07/04 19:07
このQ&Aを見た人はこんなQ&Aも見ています
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
shell関数について
-
VBでExcelが起動されているか知...
-
VB6 二重起動確実防止について
-
ラズパイ3でsocket接続できない。
-
CGIでinit.dで起動したプロセス...
-
ソフトのインストール場所って...
-
Macの手書き漢字入力ツールにつ...
-
exeファイルの実行結果をテキス...
-
誰かにサーバにあるデータを消...
-
ご教授願います PC初心者です。...
-
CPUとOS の違いは?
-
PC/AT互換機は、ほとんどのPCの...
-
Windows95の盛り上がりぶりは何...
-
aptでインストールしたプログラ...
-
Win7でコンピュータ名変更を自動で
-
Sendmail のログの見方について
-
デバッグ停止中 一つ戻る
-
ある特定のフォルダの中に、2つ...
-
今から始めるならどのLINUX?
-
USBオーディアダプタとオーディ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチスクリプト処理でエラー...
-
バッチファイルで多重起動を防ぐ
-
VBでExcelが起動されているか知...
-
Linux環境変数設定(putenv?se...
-
コンソールアプリの起動結果待...
-
MySQLへのDB::connectで、faile...
-
VB6 二重起動確実防止について
-
「応答なし」の状態を監視する方法
-
_access関数が EACCES エラーと...
-
shell関数について
-
コンソールアプリケーションの...
-
仮想メモリ増加
-
CreateProcessでコンソールアプ...
-
Open Office Org 急に起動しな...
-
CreateProcessでうまくexeファ...
-
apache2.2が起動せず困っていま...
-
外部プログラムの起動と監視
-
CPUの使用率が100%から戻りま...
-
PostgreSQLについて
-
XDRIVEのログインをSENDKEYで自...
おすすめ情報