tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^3: sleep関数の待機について
投稿日: 2008/09/10(Wed) 18:24
投稿者花ちゃん
そのまま使用すればよかったはずですが。

下記を貼り付けて、CAD のパスだけ書き換えて試して見て下さい。

Option Explicit

Private Declare Function OpenProcess Lib "kernel32" _
   (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Boolean, _
    ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" _
   (ByVal hObject As Long) As Long
Private Declare Function WaitForInputIdle Lib "user32" _
   (ByVal hProcess As Long, ByVal dwMilliseconds As Long) As Long
Private Const SYNCHRONIZE As Long = &H100000

Private Sub Command1_Click()
   Dim TaskID As Long
   Dim hProcess As Long
   Dim Ret      As Long
  
   TaskID = Shell("C:\Program Files\CAD\***.exe", vbMaximizedFocus)
  
   hProcess = OpenProcess(SYNCHRONIZE, False, TaskID)
   If hProcess = 0 Then
      MsgBox "ハンドルが取得できません"
      Exit Sub
   End If
   Ret = WaitForInputIdle(hProcess, &HFFFF)
   Call CloseHandle(hProcess)
   MsgBox "表示しました"
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。