掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Shell関数で起動したExplorerの終了を認識するには (ID:138346)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お世話になります。 Shell関数で起動したExplorerの終了を認識したいのです。 下記のサムプルを使用したのですが、 dwProcessID = Shell("C:\WINDOWS\NOTEPAD.EXE", 1)のshellの中を("Explorer.exe /root,\\サーバー名\共有フォルダ名", 1)とすると終了を認識してくれません。何か方法はあるのでしょうか。宜しくお願いします。 Public Declare Function GetExitCodeProcess Lib "kernel32" _ (ByVal hProcess As Long, lpExitCode As Long) As Long Public Declare Function OpenProcess Lib "kernel32" _ (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _ ByVal dwProcessID As Long) As Long Public Const PROCESS_QUERY_INFORMATION = &h400 Sub TaskEnd() Dim dwProcessID As Long Dim hProcess As Long Dim lpdwExitCode As Long Dim ret As Long dwProcessID = Shell("C:\WINDOWS\NOTEPAD.EXE", 1) hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, True, dwProcessID) Do ret = GetExitCodeProcess(hProcess, lpdwExitCode) DoEvents Loop While lpdwExitCode MsgBox "メモ帳は終了しました。" End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.