一个简单的问题：如何关闭正在运行的程序？？在线。。。。

Question

一个简单的问题：如何用代码实现关闭正在运行的程序？？在线。

Answer 1

var
   wnd:HWND;
begin
   wnd:=Findwindow(nil,'dyyd.pas - 记事本');//根据标题查找句柄
   if wnd>0 then
      sendMessage(wnd,WM_CLOSE,0,0);//发送关闭消息

Answer 2

Application.Terminate肯定不行，他不会释放资源，如dll,com
还是应该发消息

Answer 3

消息函数，
sendMessage(wnd,WM_CLOSE,0,0);
wnd->为要关闭程序的句丙