学步园

启动程序时如何才可以最小化到托盘区,单击窗体最小化时,可以最小化到托盘区(状态栏不显示).  
  下面的的一些代码:  
          unit   FrmTest;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,ShellAPI;  
   
  const  
      WM_NOTIFYICON=WM_USER+1;  
   
  type  
      TForm1   =   class(TForm)  
          procedure   FormCreate(Sender:   TObject);  
          procedure   FormClose(Sender:   TObject;   var   Action:   TCloseAction);  
      private  
          {   Private   declarations   }  
        //   lN:TNotifyIcon;  
          FNotifyIcon   :TIcon;  
          //系统最小化时显示小图标  
          procedure   WMSysCommand(var   Msg:   TWMSysCommand);   message   WM_SYSCOMMAND;  
          //响应系统消息;  
          procedure   WMNotifyIcon(var   Msg:   TMessage);   message   WM_NOTIFYICON;  
      public  
          Procedure   AddNotifyIcon;  
          procedure   DeleteNotifyIcon;  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
   
  procedure   TForm1.AddNotifyIcon;  
  var  
      lIconData:NotifyIconDataA;  
  begin  
      lIconData.cbSize   :=SizeOf(lIconData);  
      lIconData.Wnd   :=   self.Handle;  
      lIconData.hIcon   :=   FNotifyIcon.Handle;  
      lIconData.uCallbackMessage   :=   WM_NOTIFYICON;  
      lIconData.uID   :=   0;  
      lIconData.szTip   :=   '短信发送'   ;  
      lIconData.uFlags   :=   NIF_MESSAGE   OR   NIF_ICON   OR   NIF_TIP;  
      Shell_NotifyIcon(NIM_ADD,@lIconData);  
  end;  
   
  procedure   TForm1.DeleteNotifyIcon;  
  var  
      lIconData:NotifyIconDataA;  
  begin  
      lIconData.cbSize   :=SizeOf(lIconData);  
      lIconData.Wnd   :=   self.Handle;  
      lIconData.uID   :=   0;  
      Shell_NotifyIcon(NIM_DELETE,@lIconData);  
  end;  
   
  procedure   TForm1.FormCreate(Sender:   TObject);  
  begin  
      FNotifyIcon   :=   TIcon.Create;  
      FNotifyIcon.LoadFromFile('TECHNLGY.ICO');  
      AddNotifyIcon;  
  end;  
   
  procedure   TForm1.FormClose(Sender:   TObject;   var   Action:   TCloseAction);  
  begin  
      DeleteNotifyIcon;  
      FNotifyIcon.Free;  
  end;  
   
  procedure   TForm1.WMSysCommand(var   Msg:   TWMSysCommand);  
  begin  
      inherited;  
      if   Msg.CmdType   =   SC_MINIMIZE   then  
      begin  
          self.Visible:=false;  
          //AddNotifyIcon;  
      end;  
  end;  
   
  procedure   TForm1.WMNotifyIcon(var   Msg:   TMessage);  
  begin  
      if   Msg.LParam=WM_LBUTTONDBLCLK     then  
      begin  
          SELF.Visible:=TRUE;  
          Application.Restore;  
          Application.BringToFront;  
      end;  
  end;  
   
  end.