我如何关闭一个外部程序（非windows程序）？？？非常感谢！！

Question

我如何关闭一个外部程序（任意一个程序，非windows程序）？？？
非常感谢！！

Answer 1

PostThreadMessage(MainThreadId,WM_QUIT,0,0)
或
PostMessage(MainWindowHandle,WM_CLOSE,0,0)

Answer 2

你可以这样做procedure Tform1.button1onclick(sender:object);
var
i:integer;
h:=hwnd;
begin
for i:=0 to screen.formcount-1 do
begin
 if screen.form[i].caption:='那个程序窗体的名称');
  h:=screen.form[i].hwand;
break;
end;
PostMessage(H,WM_CLOSE,0,0)end;