大家给看看问题出在哪？关于进程是否关闭的问题

Question

当我关闭了相关程序，为什么退不IsRunning这个循环，大家给指点，谢谢
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Const SYNCHRONIZE = &H400  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  '建立下面函数，用以判断程序是否在运行，如果是，则在运行时返回True。
  'RetVal为程序返回参数,通过该参数返回句柄
  '成检测到时为TRUE，没有检到时为FALSE
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      Function IsRunning(ByVal ProgramID) As Boolean            '传入进程标识ID
          Dim hProgram As Long         '被检测的程序进程句柄
          hProgram = OpenProcess(SYNCHRONIZE, False, ProgramID)
          If Not hProgram = 0 Then
             IsRunning = True
          Else
             IsRunning = False
          End If
          CloseHandle hProgram
      End Function
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  Private Sub Command1_Click()
  '例调用某程序
         Dim RetVal
         MsgBox "开始运行"
         RetVal = Shell("notepad.exe", 1)
         While IsRunning(RetVal)
             DoEvents
         Wend
         MsgBox "结束运行"
  End Sub

Answer 1

在我这里,程序根本就没退出,仍在运行,似乎 CloseHandle hProgram不起作用

Answer 2

我的问题是说，这个程序在我的电脑上以前也是可以的，但现在不知道是什么原因运行它时，当我关闭了记事本，但程序在循环不往下执行，MsgBox "结束运行"出不来！

Answer 3

建议 CloseHandle 改用ExitProcess

Answer 4

While IsRunning(RetVal)
             DoEvents
         Wend
无用,直接调用IsRunning

Answer 5

      
  Private Sub Command1_Click()
     '例调用某程序
         Dim RetVal
         MsgBox "开始运行"
         RetVal = Shell("notepad.exe", 1)
         
         While IsRunning(RetVal): MsgBox "结束运行": Exit Sub'在这里加上这个试试
             DoEvents
         
         Wend
        
     
      
  End Sub
DoEvents 系统可能处理其他事件,所以腿不出来,
可以在IsRunning(RetVal)为true 时加上MsgBox "结束运行": Exit Sub可以退出来

Answer 6

  看看可以吗
  Private Sub Command1_Click()
          Dim RetVal
         MsgBox "开始运行"
         RetVal = Shell("notepad.exe", 1)
         
         While IsRunning(RetVal): If IsRunning(RetVal) = False Then MsgBox "结束运行": Exit Sub
                
            
             DoEvents
         
         Wend
        
     
      
  End Sub

Answer 7

估计是调用的函数库有问题,可以把好的kernel32.dll库拷过来到有问题的机子上试试把

Answer 8

我晕，这个Dll文件是不是要在DOS下才能换，换不过去。。晕

Answer 9

谢谢各位，就是dll文件的问题！呵呵解决了！结贴