delphi7如何设置最小化托盘？

各位大神，问一下delphi7里怎样设置托盘？一定要外置控件吗。

Delphi 有一个控件TrayIcon，通过它可以容易地设置托盘程序了。
TrayBarIcon。

进入托盘代码:
AddIcon(handle);
hide;

uses
shellapi;

var
ntida: TNotifyIcondataA;

begin

ntida.cbSize := sizeof(tnotifyicondataa);
ntida.Wnd := handle;
ntida.uID := iid;
ntida.uFlags := nif_icon + nif_tip + nif_message;
ntida.uCallbackMessage := mousemsg;
ntida.hIcon := form1.Icon.Handle;
ntida.szTip := 'TIP';

shell_notifyicona(NIM_ADD, @ntida);

end;

大致这样调用，你可以试试。