VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 在vb中用shell运行完一个ms_dos程序后,弹出一个"黑黑的"dos窗口,如何将其去掉!
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:10396, 日期:2001-06-21

影子 答:
取得窗口标题,用 PostMessage 关闭窗口,PostMessage 用法看下面的文章。

ipzone 答:

Public Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Public Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long

exam:
p_handle=shell("abc.exe",1)
h_program=OpenProcess(0,flase,p_hamdle)

`h_program=0,正在运行
`h_program<>0,运行完毕
Public Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Public Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long

exam:
p_handle=shell("abc.exe",1)
h_program=OpenProcess(0,flase,p_hamdle)

`h_program=0,正在运行
`h_program<>0,运行完毕