Delphi 實現右下角任務欄功能

實現軟件在右下角任務欄很簡單，只需要使用TTrayIcon控件，代碼只要一句就可以了。
指定托盤圖標, 有幾種用法:
1、設計時選擇;
2、把一個 TIcon 對象給它;
3、使用當前程序圖標: TrayIcon1.Icon := Application.Icon;
4、TrayIcon1.SetDefaultIcon; 這也是使用當前程序圖標.
一般使用這個功能都是像QQ那樣，關閉QQ界面，會自動縮到桌面右下角任務欄，代碼如下；

procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
TrayIcon1.Icon:=Application.Icon;
FormMain.Visible:=False;
    if CloseFlag<>4 then //判斷是不是要真正退出
begin
CanClose:=False;
end
else
begin
CanClose:=True;
end;

end;

TTrayIcon控件其他屬性都很好理解，如果感興趣自己摸索一下就可以了。