怎样把Delphi窗口最小化放入Windows开始状态的第四格中？

Question

如果你只是想实现的话，用iconize控件，如果你想研究的话，建议你看看关于wm_notify消息的相关.还有，关于iconize的实现已经有很多人回过了，你问这个问题说明你没有查过以前的资料！

Answer 1

我是一位新手，上网也不是很方便，所以还请你多多原谅，不过你给我的解答我还是不明白，我找不到iconize控件和wn_notify消息，还请你详细指教，谢谢，

Answer 2

首先需要捕获窗口最小化或关闭事件，改写之。至于如何实现托盘程序,可以找资料或使用Rxlib控件，很简单。
如下面例程：
procedure WMSysCommand(var Message:TMessage);message WM_SYSCOMMAND;implementationprocedure TfrmMain.WMSysCommand(var Message:TMessage);
begin
  if (Message.WParam = SC_ICON)
    or (Message.WParam = SC_CLOSE) then
  begin
    Visible := false;
  end
  else
    if (Message.WParam = SC_RESTORE) then
    else
    begin
      DefWindowProc(Handle,Message.Msg,Message.WParam,message.LParam);
    end;
end;