Реализация панели Пуск.

[pavellyba]

Пытаюсь реализовать TaskBar
Этот код подходит:

procedure TForm1.Button1Click(Sender: TObject);
var
Wnd: hWnd;
buff: array [0..127] of char;
Begin
ListBox1.Clear;
Wnd := GetWindow(Handle, gw_HWndFirst);
While Wnd <> 0 do Begin // Не показываем:
If (Wnd <> Application.Handle) // Собственное окно
and IsWindowVisible(Wnd) // Невидимые окна
and (GetWindow(Wnd, gw_Owner) = 0) // Дочерние окна
and (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) Then Begin
GetWindowText(Wnd, buff, sizeof(buff));
ListBox1.Items.Add(StrPas(buff));
End;
Wnd := GetWindow(Wnd, gw_hWndNext);
End;
ListBox1.ItemIndex := 0;
End;

Но каким параметром задать, что если приложение(дескриптор) не отображает свою иконку, тогда не добавлять в список?

[pavellyba]

Узнать иконку запущенного приложения:

CopyIcon(GetClassLong(Wnd, GCL_HICON));

Узнать названия окна:

GetWindowText(Wnd, buff, sizeof(buff));

Узнать полный путь к программе создающая процесс:

GetWindowModuleFileName(Wnd, buff, sizeof(buff));

Развернуть окно процесса:

ShowWindow(Wnd, 5);

Каким параметром задать, что если приложение(дескриптор) не отображает свою иконку, тогда не добавлять в список?

[GunSmoker]

Подсказка: чему равен результат GetWindowsICO для таких приложений?

[pavellyba]

У таких приложений есть иконка, у них параметр есть, что не отображать на TaskBar.
Выполняется это при помощи кода:

Application.CreateHandle;
ShowWindow(Application.Handle, SW_HIDE);
Application.ShowMainForm := FALSE;

А какая обратная функция, чтоб это узнать?

И появилась еще одна проблема, функция CopyIcon(GetClassLong(Wnd, GCL_HICON)) узнает иконки почему то не у всех программ. Как в таком случае узнать иконку?

[GunSmoker]

IsWindowVisible?