外部プログラムの起動後の処理 (ID:82279)

名前

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

本文

やってみたこともない code 例示したりはしないけど，必ず上手
くいくわけじゃないのは暗黙値ってことで…．

な事のためにこんなんするか？わしゃあの２行で充分だとおもうけどぉ…

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 As Long = &H400&
Private Declare Function GetExitCodeProcess Lib "kernel32" _
                            (ByVal hProcess As Long, _
                             lpExitCode As Long) As Long
Private Const STILL_ACTIVE              As Long = &H103&
Private Declare Function CloseHandle Lib "kernel32" _
                            (ByVal hObject As Long) As Long

Private Function ProgramExists(lTask As Long) As Boolean
    Dim lProcHandle As Long
    Dim lExitCode   As Long
    Dim lState      As Long

lProcHandle = OpenProcess(PROCESS_QUERY_INFORMATION, True, lTask)
    If lProcHandle = 0 Then
        ProgramExists = False
        Exit Function
    End If
    lState = GetExitCodeProcess(lProcHandle, lExitCode)
    If lExitCode = STILL_ACTIVE Then
        ProgramExists = True
    Else
        ProgramExists = False
    End If
    lState = CloseHandle(lProcHandle)
End Function

Private Sub Command1_Click()
   Dim lTask As Long
  
   lTask = Shell("notepad.exe", vbNormalFocus)
   Do Until ProgramExists(lTask): Loop
   SendKeys "ここに文字をいれてください．"
End Sub

ま，なんでもやってみてくれ．

←解決時は質問者本人がここをチェックしてください。

戻る