Delphi FAQ - Как сделать так, чтобы запущенная программа не была видна на панели задач?

Как сделать так, чтобы запущенная программа не была видна на панели задач?

Во-первых, можно по примеру Back Orifice воспользоваться функцией
RegisterServiceProcess.

Во-вторых, предположим, вы пользуетесь компонентой TrxTrayIcon из rxLib,
иначе непонятно, как вы будете возвращать программу обратно из
минимизированного состояния.

(EM, DS):

type
   TForm1 = class(TForm)
     Label1: TLabel;
     RxTrayIcon1: TRxTrayIcon;
     procedure FormCreate(Sender : TObject);
     procedure RxTrayIcon1DblClick(Sender: TObject);
   private
     { Private declarations }
     procedure ApplicationMinimize(Sender : TObject);
     procedure ApplicationRestore(Sender : TObject);
   public
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.DFM}
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Application.OnMinimize := ApplicationMinimize;
   Application.OnRestore := ApplicationRestore;
   ShowWindow(Application.Handle, SW_HIDE);
 end;
 
 procedure TForm1.ApplicationMinimize(Sender : TObject);
 begin
   ShowWindow(Application.Handle, SW_HIDE);
 end;
 
 procedure TForm1.ApplicationRestore(Sender : TObject);
 begin
   ShowWindow(Application.Handle, SW_HIDE);
 end;
 
 procedure TForm1.RxTrayIcon1DblClick(Sender: TObject);
 begin
   Application.Restore;
   Application.BringToFront;
 end;

(AK):
Только сpазу предупреждаю про грабли, на которые я наступал -- будь готов к
тому, что если пpи попытке закрытия приложения в OnCloseQuery или OnClose
выводится вопрос о подтверждении, то могут быть проблемы с автоматическим
завершением пpогpаммы пpи shutdown -- под Win95 просто зависает, под WinNT
не завершается. Очевидно, что сообщение выводится, но его не видно (причем
SW_RESTORE не сpабатывает). Решение -- ловить WM_QUERYENDSESSION и после
всяких завеpшающих действий и вызова CallTerminateProcs выдавать Halt.