结束一个进程

Question

各位大虾：
要在一个应用程序中结束一个正在运行中的进程（应用程序my.exe）,应该怎么做啊
最好有代码，先谢了！！！

Answer 1

var
  HWndPro : HWnd ;
begin
//...
  HWndPro:=FindWindow(nil,'HIS.exe');
  if HWndPro<>0 then
   SendMessage(HWndPro,WM_CLOSE,0,0);
//...

Answer 2

var
  HWndPro : HWnd ;
begin
//...
  HWndPro:=FindWindow(nil,'my.exe');//你的...
  if HWndPro<>0 then
   SendMessage(HWndPro,WM_CLOSE,0,0);
//...

Answer 3

HWndPro:=FindWindow(nil,'my.exe');//你的...
  执行这条语句，HWndPro还是等于0;
  也就是说找不到my.exe,就是怎和以回事啊

Answer 4

当然找不到啦！
HWndPro:=FindWindow(nil,'my.exe');
中的“my.exe”不是程序名，是你程序标题栏上的文字！
如记事本什么的。

Answer 5

是的，findwindow(nil,'你要结束的进程的标题'):hwnd;