不太难问题:VB中如何关闭shell打开的外部EXE程序

wine 2000-05-27 05:33:00
VB中如何关闭shell打开的外部EXE程序
...全文
192 2 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Chen_Lin 2000-05-28
Private Declare Function TerminateProcess Lib "kernel32" _
(ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Const PROCESS_QUERY_INFORMATION = &H400
Private hProcess As Long
-----------------在程序中------------------
Dim pid As Long

pid = Shell("notepad.exe", vbNormalFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
----------------如果要关闭-----------------
If hProcess <> 0 Then
aa = TerminateProcess(hProcess, 3838)
End If

  • 打赏
  • 举报
回复
kxy 2000-05-27
关闭一个外部的exe程序,和他是不是Shell打开的有关系吗.
如果你是在VB中用CreateProcess来打开Exe,可以很方便的得到他的Handle.
  • 打赏
  • 举报
回复
发帖
VB基础类
加入

7607

社区成员

VB 基础类
社区管理员
  • VB基础类社区
申请成为管理员
帖子事件
创建了帖子
2000-05-27 05:33
社区公告
暂无公告