把窗口最小化到任务栏的代码怎么写？

Question

把窗口最小化到任务栏的代码怎么写？

Answer 1

有是这种问题！
唉~~~
不会自己找资料嘛！？有那么多源代码可以参考！随便搜搜就有，像：TrayIcon.pas之类的！·

Answer 2

我知道啦：
application.Minimize;

Answer 3

搜一搜以前的帖子就可以拉加段代码吧，前两天刚贴过，拦截窗体最小化消息的；private
  { Private declarations }
  Procedure WMSysCommand(Var msg : TMessage);Message M_SYSCOMMAND;  
......
procedure TForm1.WMSysCommand(var msg: TMessage);
begin
 if (msg.WParam=SC_MINIMIZE) then
  begin
     application.minimize;
  end
  else
    Inherited;
end;

Answer 4

star_of_light(星星之光):你的方法不能满足我的要求，
ShowWindow(Form1.Handle,SW_MINIMIZE);不能最小化到任务栏，其结果和
设置windowstate:=wsMinimize 一样。
只有application.Minimize;符合要求。
silverwonder(刷卡太快请重刷);
  象你这么写有什么好处吗？为何要写这么多呢？

Answer 5

没什么，就是在点击窗口最小化按钮时，使整个application最小化到任务栏。