[Danik007]

В общем более-менее разобрался. Только я не знаю как сделать так, чтобы программа НЕ отображалась на панели задач, но отображалась на рабочем столе.
Это код добавления иконки блокнота в трей:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
HTD:=FindWindow('Notepad', nil);
IC:=GetClassLong(HTD ,GCL_HICON); //Пытаемся достать
 with TrayIconData do
  begin
    cbSize := SizeOf(TrayIconData);
    Wnd := HTD;
    uID := 0;
    uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
    uCallbackMessage := WM_ICONTRAY;
    hIcon := IC;
    StrPCopy(szTip, 'In Tray');
  end;
  Shell_NotifyIcon(NIM_ADD, @TrayIconData);
end;

А этот код должен скрывать кнопку на панели задач, он это и делает только коверкает окно блокнота. Чем его(код) можно заменить или как исправить?

Код:

  begin
  ShowWindow(HTD, SW_HIDE);
  SetWindowLong(HTD, GWL_EXSTYLE, GetWindowLong(HTD, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
  ShowWindow(HTD, SW_SHOW);
end;

Почти дописал, помогите пожалуйста!!!