procedure TForm1.FormCreate(Sender: TObject);<br>var<br> nia: TNotifyIconDataA;<br>begin<br> nia.cbSize := SizeOf(TNotifyIconDataA);<br> nia.Wnd := Handle;<br> nia.uFlags := NIF_TIP;<br> nia.szTip := 'abcd';<br> Shell_NotifyIcon(NIM_ADD,@nia);<br>end;<br>uses ShellAPI,做漂亮点,加个icon,增加菜单,处理些消息,无非就这个函数和这个函数相关的几个消息