unit Unit1;    interface    uses    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,    Dialogs, ExtCtrls, StdCtrls, AppEvnts;    type    TForm1 = class(TForm)      TrayIcon1: TTrayIcon;      Button1: TButton;      procedure TrayIcon1Click(Sender: TObject);      procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);      procedure Button1Click(Sender: TObject);    end;    var    Form1: TForm1;    implementation    {$R *.dfm}    {关闭}  procedure TForm1.Button1Click(Sender: TObject);  begin    Application.Terminate;  end;    {点击关闭按钮时让窗体最小化到系统托盘}  procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);  begin    Tag := Ord(WindowState);    WindowState := wsMinimized;    TrayIcon1.SetDefaultIcon;    TrayIcon1.Visible := True;    Hide;    CanClose := False;  end;    {点击系统托盘中的图标恢复窗口}  procedure TForm1.TrayIcon1Click(Sender: TObject);  begin    TrayIcon1.Visible := False;    Show;    WindowState := TWindowState(tag);    SetForegroundWindow(Handle);  end;    end.  --------------------------------------------------------------------------------    窗体文件:  --------------------------------------------------------------------------------      object Form1: TForm1    Left = 0    Top = 0    Caption = ‘Form1‘    ClientHeight = 206    ClientWidth = 339    Color = clBtnFace    Font.Charset = DEFAULT_CHARSET    Font.Color = clWindowText    Font.Height = -11    Font.Name = ‘Tahoma‘    Font.Style = []    OldCreateOrder = False    OnCloseQuery = FormCloseQuery    PixelsPerInch = 96    TextHeight = 13    object Button1: TButton      Left = 232      Top = 40      Width = 75      Height = 25      Caption = ‘Button1‘      TabOrder = 0      OnClick = Button1Click    end    object TrayIcon1: TTrayIcon      OnClick = TrayIcon1Click      Left = 160      Top = 104    end  end