起動したプログラムが終了したのかを知るには (ID:79090)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 さすがです魔界の仮面弁士さん。 余談ですがいつも勉強させていただいてます。 ありがとうございます。 ちなみにShellを使うとこんなにややこしい事になります。 'プロセスのハンドルを取得 Private Declare Function OpenProcess Lib "kernel32" _ (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As Long Private Const PROCESS_QUERY_INFORMATION = &H400& 'プロセスの終了を取得 Private Declare Function GetExitCodeProcess Lib "kernel32" _ (ByVal hProcess As Long, lpExitCode As Long) As Long Private Const STILL_ACTIVE = &H103& 'ハンドルの開放 Private Declare Function CloseHandle Lib "kernel32" _ (ByVal hObject As Long) As Long Private Sub Command1_Click() Dim mhWnd As Long Dim proID As Long Dim mEnd As Long mhWnd = Shell(Text1.Text, vbNormalFocu) proID = OpenProcess(PROCESS_QUERY_INFORMATION, 1, mhWnd) Do GetExitCodeProcess proID, mEnd DoEvents Loop While mEnd = STILL_ACTIVE CloseHandle proID Unload Me End Sub