请教一个外挂的exe程序退出的问题？

Question

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var H: HWND;
begin
  H := FindWindow(nil,'我的外部程序');
  PostMessage(H,WM_SYSCOMMAND,SC_CLOSE,0);
end;

Answer 1

修改他的属性Style为csOwnerDrawFixed

Answer 2

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var H: HWND;
begin
  H := FindWindow(nil,'我的外部程序');
  PostMessage(H,WM_SYSCOMMAND,SC_CLOSE,0);
end;这个方法不行.

Answer 3

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var H: HWND;
begin
  H := FindWindow(nil,'我的外部程序名,不用带路径例如如果note.exe则需要写成note就可以了');
  PostMessage(H,WM_SYSCOMMAND,SC_CLOSE,0);
end;
你们用上述实验一下,我已经成功了!