程序最小化到托盘 TTrayIcon

在程序启动时设置 Application.MainFormOnTaskbar := false;  //delphi XE7中 dpr文件中会默认置为true，删掉

1、最小化的托盘

   利用windows系统消息WM_SYSCOMMAND 

  if (Message = WM_SYSCOMMAND） and (Message.WParam =SC_MINIMIZE ) then begin

      Application.Minimize();
      ShowWindow(Application.Handle, SW_HIDE);
  end else begin
       //如果是其它的SystemCommand 消息则调用系统缺省处理函数处理之。
      DefWindowProc(self.Handle, Message.Msg, Message.WParam, Message.LParam);

  end;

2、还原界面

procedure TForm.TrayIcon1Click(Sender: TObject); //点击托盘图标事件
begin
  ShowWindow(Application.Handle, SW_show);
  Application.Restore;
end;