遇到难题！高手请进。

Question

老兄，这样的帖子发过十几二十次了。你搜索一下“最小化”.

Answer 1

任务栏隐藏:
procedure TForm1.FormCreate(sender:TObject);
begin
  SetWindowLong(Application,Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;
放到右下角:
Procedure AddTrayIcon;
  Var IconData : TNotifyIconData;
Begin
  With IconData do Begin
    cbSize := SizeOf(IconData);
    Wnd := MainWindow;
    uID := 0;
    uFlags := nif_Icon Or nif_Message Or nif_Tip;
    uCallBackMessage := wm_MyCallBack;
    hIcon := LoadIcon(hInstance,'MYICON');
    StrCopy(szTip,PChar(TrayIconTip));
  End;
  Shell_NotifyIcon(nim_Add,@IconData);
End;
........