不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

怎样在程序关闭自己打开的其他EXE文件？

楼主Liusp（夜深千帐灯）2001-12-07 10:39:40 在 Delphi / VCL组件开发及应用提问

问题点数：50、回复次数：9Top

1 楼zzllabc（抱朴子--清心释累，绝率忘情）回复于 2001-12-07 10:50:53 得分 0

先获取要关闭程序的句柄,然后调用API(具体是什么,忘了)Top

2 楼zzllabc（抱朴子--清心释累，绝率忘情）回复于 2001-12-07 10:53:45 得分 5

好像是用FindWindow来查找一个窗体, 用CloseWindow或发送一个WM_CLOSE消息来
关闭一个窗体
function FindWindow(ClassName: pchar; WindowName: pchar): hWnd;
function CloseWindow(wnd: hWnd): boolean;Top

3 楼zzllabc（抱朴子--清心释累，绝率忘情）回复于 2001-12-07 10:56:25 得分 25

想起来了, 最好用PostQuitMessage, (发送WM_QUIT),这样干净利落, :)

依次使用下列WinAPI
CreateToolhelp32Snapshot
Process32First
Process32Next
可以得到
PROCESSENTRY32结构
从中找到您关心的ThreadHandle, or ProcessHandle
Then:
使用
CloseHandle
杀人不眨眼!, :)
)
Top

4 楼w19995（w19995）回复于 2001-12-07 11:04:08 得分 5

gz.Top

5 楼szchengyu（happy.net）回复于 2001-12-07 11:15:18 得分 5

gTop

6 楼Liusp（夜深千帐灯）回复于 2001-12-07 11:15:41 得分 0

zzllabc(龙)能给点代码，我很急，下午就得交活！怎样找到我关心的ProcessHandle?Top

7 楼blackfiles（一个和尚挑水喝）回复于 2001-12-07 11:30:14 得分 10

var
FindHWND:HWnd;
begin
FindHWND:=FindWindow(nil,'窗体名称');
if FindHWND<>0 then
SendMessage(FindHWND,WM_CLOSE,0,0);
end;
是不是你要的？？？Top

8 楼Liusp（夜深千帐灯）回复于 2001-12-07 12:31:29 得分 0

不是，我要关闭的EXETop

9 楼Liusp（夜深千帐灯）回复于 2001-12-07 12:32:03 得分 0

不是，我要关闭的EXE文件没有窗体Top