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是不是还支持它呢?可是都找不到函数声明,没辙了~~~
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货