模拟用鼠标点击窗体最小化按钮

Question

比如，我下面代码是点击Button2,然后在Button2实现Button1的点击事件
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := 'wudong';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1.OnClick(self); //
end;怎样实现点击Button2，窗体就最小化，不要用sendMessge()..和windstate = csMinine，Application.Minine等。。
我就想模拟用鼠标点击最小化按钮。
谢谢了。。

Answer 1

用CloseWindows（）这个API函数就可以了

Answer 2

不要用sendMessge?恐怕没有几个人会跟你说了

Answer 3

在Windows 里面讨生活，你不用sendMessage？
说明你还是幼稚啊，在Windows 里面，一切都是
消息驱动的。建议你改改思路。

Answer 4

重载syscommand消息。自己编写消息，响应按钮的点击事件