Delphi implementation Right bottom corner taskbar function

The implementation software in the lower right corner of the taskbar is very simple, only need to use the Ttrayicon control, the code as long as one sentence can be.
Specify a tray icon for several uses:
1, design time selection;
2, put a Ticon object to it;
3, using the current program icon: trayicon1.icon: = Application.icon;
4, Trayicon1.setdefaulticon; This also uses the current program icon.
The general use of this function is like QQ, close the QQ interface, will automatically shrink to the bottom right of the desktop taskbar, code as follows;

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

The other properties of the Ttrayicon control are well understood and can be explored if you are interested.

Delphi implementation Right bottom corner taskbar function