Свернуть другую программу

[Merano]

Здравствуйте.
Как можно "правильно" свернуть другую программу (которая написана на delphi) на панель задач?
Проблема в том, что не удается свернуть программы (написанные на delphi) на панель задач, вместо этого они сворачиваются в мини окно над кнопкой "Пуск", тогда как с остальными программами все в порядке.
Сворачиваю окна программ таким методом:

...
var
 winh: HWND;
begin
 hwin := GetForegroundWindow;
...
 ShowWindow(hwin, 2);
end;
...

В чем причина? И как это можно исправить/обойти?

[Stilet]

QUOTE]ShowWindow(hwin, 2);[/QUOTE]
Как мнимум ShowWindow(GetParent(hwin), 2);
Но это не выход. Нужно искать главное окно процесса
EnumWindows или FindWindow поможет в этом. Только главное окно свернется корректно. Все те, которые созданы как дочерние так и будут сворачиваться в маленькую полоску внизу экрана.

[Merano]

Stilet, дело в том, что те окна, что я сворачиваю - и являются главными окнами... вот в чем проблема.

UPD:
Да, действительно, если обратиться к главному окну программы, написанной на delphi, то она сворачивается корректно. Получается, что Delphi каким-то образом создает "фоновое" родительское окно, а все остальные (включая Form1) - являются дочерними? О_о

[evg_m]

Получается, что Delphi каким-то образом создает "фоновое" родительское окно, а все остальные (включая Form1) - являются дочерними? О_о Получается, что Delphi каким-то образом создает "фоновое" родительское окно, а все остальные (включая Form1) - являются дочерними? О_о

для кругозора

[Merano]

evg_m, спасибо за статью. Все прояснилось, на счет Delphi.