Свернуть чужую программу в трей

[grafgrial]

Как из заголовка узнали, нужно сделать так но не знаю как. потому что вообще не работал с другими программами из delphi. Поясните подробнее
С треем работал, а вот как передать ей ...

[MaxNik2009]

вот тебе пример:

procedure TForm1.Button1Click(Sender: TObject);
var
  h: HWND;
begin
  h:= FindWindow(nil, 'new  1 - Notepad++'); // ищем нужное окно по заголовку
  if h<>0 then                               // если окно найдено
  begin
    PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0); // посылаем ему команду "свернуть"
  end;
end;

[Stilet]

По-моему вообще никак нельзя это сделать...
Вернее можно, но стоимость этих усилий равна стоимости полета на марс.

MaxNik2009

Панель задач теперь треем называется?

[MaxNik2009]

Панель задач теперь треем называется?

Нет конечно...
как вариант можно прятать чужое окно через ShowWindow, а из своей проги добовлять значек в трей.

[Stilet]

а из своей проги добовлять значек в трей.

Можно. Это называется "Через тернии к терниям"

[Lime]

А есть альтернативные решения "скрытию программы" и добавлению управляющей иконки в трей? Помоему вполне рабочий и не такой уж трудоемкий способ, особенно если кол-во "свернутых" программ будет фиксированным.

[JTG]

TrayIt! никто не использует чтоли? Мелкая утилита, внедряет свою библиотеку во все процессы и через Get/SetWindowLong подменяет оконную процедуру, в ней ловит WM_SYSCOMMAND/WM_KEYDOWN так, что при клике на "свернуть" с зажатым шифтом, окно сворачивается в трей. Очень удобно