请问在DELPHI中如何用程序判断系统中有某个程序在运行,如在运行,怎么才能用程序去关闭它?假设程序是af.exe,位于＂c:\af.exe".多谢了．

Question

请问在DELPHI中如何用程序判断系统中有某个程序在运行,如在运行,怎么才能用程序去关闭它?假设程序是af.exe,位于＂c:\af.exe".多谢了

Answer 1

又是这类问题
去我的CSDN上Blog看的关闭的就OpenProcess然后TerminateProcess
找Google去http://lysoft.7u7.net

Answer 2

也可以先findwindow获得句柄后再关闭

Answer 3

比如：你新建一个记事本，然后
procedure TForm1.Button1Click(Sender: TObject);
var
  h: THandle;
begin
  h:= findwindow(nil,'未定标题 - 记事本');
  closewindow(h);
end;

Answer 4

错了，把closewindow(h)换成sendmessage(h,wm_close,0,0);