Excel VBA質問箱 IV

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

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


60205 / 76732 ←次へ | 前へ→

【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
1 hits

【21078】Windowsのシャットダウン時に処理を実行したい G-Luck 05/1/11(火) 11:43 質問
【21079】Re:Windowsのシャットダウン時に処理を実行... IROC 05/1/11(火) 11:54 回答
【21098】Re:Windowsのシャットダウン時に処理を実行... G-Luck 05/1/11(火) 18:40 回答
【21100】Re:Windowsのシャットダウン時に処理を実行... IROC 05/1/11(火) 21:28 回答
【21138】Re:Windowsのシャットダウン時に処理を実行... G-Luck 05/1/12(水) 19:49 質問
【21102】Re:Windowsのシャットダウン時に処理を実行... ぎこにゃーにゃん 05/1/11(火) 23:09 回答
【21103】Re:Windowsのシャットダウン時に処理を実行... ちゃっぴ 05/1/11(火) 23:40 発言
【21137】Re:Windowsのシャットダウン時に処理を実行... G-Luck 05/1/12(水) 19:46 質問
【21141】Re:Windowsのシャットダウン時に処理を実行... ちゃっぴ 05/1/13(木) 0:31 発言
【21142】Re:Windowsのシャットダウン時に処理を実行... ちゃっぴ 05/1/13(木) 0:45 回答
【21155】Re:Windowsのシャットダウン時に処理を実行... G-Luck 05/1/13(木) 15:37 発言
【21139】Re:Windowsのシャットダウン時に処理を実行... tester 05/1/12(水) 21:15 回答
【21154】Re:Windowsのシャットダウン時に処理を実行... G-Luck 05/1/13(木) 15:33 発言
【21156】すぐに終了を表示させない G-Luck 05/1/13(木) 15:45 発言
【21169】一瞬の取得成功 G-Luck 05/1/13(木) 18:09 発言
【21175】取得に成功 G-Luck 05/1/13(木) 20:23 お礼
【21185】Re:取得に成功 G-Luck 05/1/14(金) 11:00 回答
【21209】Re:取得に成功 [名前なし] 05/1/15(土) 2:22 発言
【21210】Re:取得に成功 ちゃっぴ 05/1/15(土) 2:39 発言
【21211】Re:取得に成功 [名前なし] 05/1/15(土) 3:08 発言
【21223】Re:取得に成功 G-Luck 05/1/15(土) 19:30 発言

60205 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free