[Virus]

Кто подскажет код для сворачивания формы на панель задач.

CloseWindow(Form1.Handle);

-НЕ подходит

[Virus]

Для кнопки код скажите

[:S.p.a.m.]

Сообщение от Virus

Для кнопки код скажите

Код:

Application.Minimize;

Программно свернуть приложение

[Virus]

Ой это же я давно знаю, спасибо!!!

[Михалыч]

А если надо свернуть в иконку рядом с часами, тогда какой код?

[AlexSku]

Флаги - это какие поля будут обслуживаться:
NIF_ICON, NIF_MESSAGE, NIF_TIP.
Команды (dwMessage):
NIM_ADD, NIM_DELETE, NIM_MODIFY.

Код:

var
  tnd: TNotifyIconData;
begin
  with tnd do
  begin
    cbSize:= SizeOf(TNotifyIconData);
    Wnd:= Handle; // Окно, к-е ловит сообщение
    uID:= 1;   // Номер пиктограммки
    uFlags:= { набор флагов по ИЛИ}; 
    uCallbackMessage:= IconMessage; { номер сообщения, которое будет перехватывать ф-ция}
    hIcon:= FIcon.Handle; // хэндл пиктокграммки
    szTip:= 'Текст подсказки'#0;
  end;
  Result:= Shell_NotifyIcon(dwMessage, @tnd);
end;

[vah-smile]

А как определить то, что была нажата кнопка сворачивания окна, тоисть:

if (Application.Minimize = True) then begin процедура end;

или же процедурно через OnMinimize (если так можна)?