最小化到托盘任务栏不显示

//工程文件中

Application.MainFormOnTaskbar := False;

//最小化到托盘

procedure TForm1.btn2Click(Sender: TObject);
begin
     Application.Minimize();
     ShowWindow(Application.Handle, SW_HIDE);
end;

//TrayIcon 的click事件

procedure TForm1.trycn1Click(Sender: TObject);
begin
   ShowWindow(Application.Handle,SW_SHOW);     //次序不能变
   Application.Restore ;
end;