如何关闭其它应用程序

[GodHack]

想用DELPHI来实现关闭其它应用程序的方法，比如当前应用程序有IE，DELPHI，WINAMP，等等，我想通过DELPHI实现关闭IE，或者WINAMP程序请问如何实现

[kevin_gao]

先用findwindow找到应用程序的句柄。
然后用sendmessage发送一个WM_CLOSE消息给它们就可以了。

[GodHack]

可以说一下具体的实现办法吗？

[vine]

这种方法对于要发关闭IE的像不好用

其标题对于游览不同网站而不一样的呵！

可用TerminateProcess()

[GodHack]

terminateprocess()的参数是什么？如何取得它的参数

[baicolt]

BOOL TerminateProcess(

HANDLE hProcess, // handle to the process
UINT uExitCode // exit code for the process
);
delphi帮助上有的。

[baicolt]

来自：iamfly, 时间：2001-3-29 15:10:00, ID：484677
这是我的部分代码(我自己做的小程序中的，肯定可以，98下和2000下都通过了)
var
dwProc:THandle;
mypro:string;
processid:cardinal;
id1:variant;
begin
....
//取得当前要关闭的程序的句柄,processid是一个进程的ID
dwProc:=OpenProcess(PROCESS_ALL_ACCESS or PROCESS_TERMINATE,FALSE,dword(ProcessID));
terminateprocess(dwProc,0)
就这么简单：)


//转自大富翁

[GodHack]

dwProc:=OpenProcess(PROCESS_ALL_ACCESS or PROCESS_TERMINATE,FALSE,dword(ProcessID));
如何得到这个PROCESSID

[vine]

这里面要看你用是怎么用的了

如果是硬编码来关闭一个程序的吧

这样你一般是知道这个程序的标题的呵！

而对于IE 这样的窗口则要用其它的方法来得到其句柄了！如TLHelp32里的

不知道你是要怎么用的呵！

如果是写一个程序来列举系统进程，然后来Kill 掉那实现方法又不一样了！

[cszhz]

//关闭天网，呵呵！！！
if findwindow(nil,pchar('PFW'))>0 then
sendmessage(findwindow(nil,pchar('PFW')),wm_close,0,0);