実行ファイルが終了するまで待機する (ID:107503)

名前

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

本文 > CreateProcess、WaitForSingleObjectを使用して起動させました。 > すると、その実行可能ファイル以外の描画が真っ白になってしまいました。 替わりに、WshShellオブジェクトのRunメソッドが使えないでしょうか。 Private Sub Command1_Click() Dim S As String Dim R As Long Me.Enabled = False S = "C:\Project1.exe" MsgBox S & "を起動します。", vbInformation Or vbSystemModal R = CreateObject("WScript.Shell").Run(S, vbNormalFocus, True) MsgBox "終了しました。戻り値=" & CStr(R), vbInformation Or vbSystemModal DoEvents Me.Enabled = True End Sub