Сворачивание в трей, убрать из панели задач

[grafgrial]

Как убрать программу из панели задач (я сворачиваю прогу в трей, а из панели не получается). Не продлагать компонент cooltray так как мне нужно убрать не главную (первую форму), а второстепенную главная скрыта
сворачиваю

Form1.ShownOnce := False;
ShowWindow(Form1.Handle,SW_HIDE);

Восстановление

Form1.ShownOnce := True;
ShowWindow(Form1.Handle,SW_RESTORE);

[Пепел Феникса]

вместо Form1, берите Application это и будет панель задач.

[zab-zab]

а как сворачивать в трей при нажатии кнопки minimize

[Stilet]

а как сворачивать в трей при нажатии кнопки minimize

А про какую версию Делфи идет речь?
В принципе можно воспользоваться компонентами сторонними либо же компонентом TrayIcon из стандартной поставки некоторых версий.
Что-то вроде

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
 TrayIcon1.Icon:=Application.Icon;
 ShowWindow(Application.Handle,SW_HIDE);
 TrayIcon1.Visible:=true;
end;

Учитывая что событие сворачивания перехватывается компонентом ApplicationEvents

[grafgrial]

Сообщение от zab-zab

а как сворачивать в трей при нажатии кнопки minimize

так же как и у меня написано

[Slippy]

а как сворачивать в трей при нажатии кнопки minimize

если без сторонних компонентов: можно перехватывать сообщение SW_MINIMIZE и в своём обработчике писать код сворачивания в трей, используя ShellApi.

....

const
  WM_MYICONNOTIFY = WM_USER + 123;
....

procedure WMSYSCOMMAND(var msg: TMessage); message WM_SYSCOMMAND;
procedure AddTrayIcon(id: Integer);
procedure HideForm();

....

procedure TForm1.WMSYSCOMMAND(var msg: TMessage);
begin
  inherited;
  if msg.WParam = SW_MINIMIZE then
  begin
    AddTrayIcon(1);
    HideForm;
  end;
end;

procedure TForm1.AddTrayIcon(id: Integer);
var NIData: TNotifyIconData;
begin
  NIData.cbSize := SizeOf(TNotifyIconData);
  NIData.Wnd := Self.Handle;
  NIData.uID := id;
  NIData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
  NIData.uCallbackMessage := WM_MYICONNOTIFY;
  NIData.hIcon := Application.Icon.Handle;
  StrPCopy(NIData.szTip, Application.Title);
  Shell_NotifyIcon(NIM_ADD, @NIData);
end;

procedure TfMain.HideForm;
begin
  Application.ShowMainForm := False;
  ShowWindow(Application.Handle, SW_HIDE);
  ShowWindow(Application.MainForm.Handle, SW_HIDE);
end;