如何关闭其它应用程序

Question

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

Answer 1

这种方法对于要发关闭IE的像不好用其标题对于游览不同网站而不一样的呵！可用TerminateProcess()

Answer 2

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

Answer 3

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

Answer 4

来自：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)
就这么简单：) 
//转自大富翁

Answer 5

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

Answer 6

这里面要看你用是怎么用的了如果是硬编码来关闭一个程序的吧这样你一般是知道这个程序的标题的呵！而对于IE 这样的窗口则要用其它的方法来得到其句柄了！如TLHelp32里的不知道你是要怎么用的呵！如果是写一个程序来列举系统进程，然后来Kill 掉那实现方法又不一样了！

Answer 7

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