Dim cmdline As String
        Dim hWnd As Integer
        cmdline = "c:\dos\ARJ.exe "
        hWnd = WinExec(cmdline, 0) ’参数为0则隐藏窗体
        If HWND <32 Then ’hWin<32则启动应用程序失败
        MsgBox "error!"
        Exit Sub
        End If
        While GetModuleUsage(HWND%)
        mousepointer = 11 '鼠标呈沙漏状
        WAIT% = DoEvents()
        Wend
        mousepointer = 1 '鼠标复原为箭头
        End Sub这个函数难道是自定义出来的?然后用CreateProcess()和CloseHandle()来检测?汗~~~~~
刚查到一个,原来它是用于16位Windows的老函数,现在已经不用了。不过,根据向下兼容,在WINXP是不是还支持它呢?可是都找不到函数声明,没辙了~~~