Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

60209 / 76736

←次へ　｜　前へ→


	【21169】一瞬の取得成功

G-Luck - 05/1/13(木) 18:09 -


	引用なし

	パスワード

一瞬の取得に成功
下記、コードを標準モジュールに書き、実行している状態でシャットダウンをすると、一瞬メッセージボックスが表示されました。
どなたか、WM_QUERYENDSESSION　などを確実に捕らえて処理を追加できる方法をご存じないでしょうか？

Type tagMSG
　　hWnd　　　　As Integer
　　message　　 As Integer
　　wParam　　　As Integer
　　lParam　　　As Long
　　time　　　　As Long
　　pt　　　　　As POINTAPI
End Type

Public Declare Function GetMessage Lib "user32.dll" Alias "GetMessageA" _
　　　　(ByRef MSG As tagMSG, ByVal h_wnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long

Private Sub myGet()

　　Dim myMes As tagMSG
　　
　　Do
　　If GetMessage(myMes, 0, 0, 0) Then
　　　　If myMes.message = WM_QUERYENDSESSION Then
　　　　　　MsgBox "WM_QUERYENDSESSIONを検知した！！"
　　　　End If
　　End If
　　Loop
End Sub

0 hits

▼

【21078】Windowsのシャットダウン時に処理を実行したい G-Luck 05/1/11(火) 11:43