Herausfinden ob ein Fenster einen Taskbareintrag hat

[Hyperspacer]

Hallo alle zusammen!
Ich wüsste gern, ob es eine Möglichkeit gibt, mit dem Handle eines fremden Fensters herauszufinden, ob dieses Fenster einen sichtbaren Taskbareintrag hat.

Viele Grüße
Daniel

[bitsetter]

Hi,

das könnte man so machen

Delphi-Quellcode:

function EnumWin(hWnd: THandle; FindHwnd: PCardinal): Boolean; stdcall;
begin
  Result := True;
  if (FindHwnd^ = hWnd) and IsWindowVisible(hWnd) and not
    boolean(GetWindowLong(hWnd, GWL_HWNDPARENT)) then
      result := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FindWin: HWnd;
begin
  FindWin:= ...;
  if not EnumWindows(@EnumWin, integer(@FindWin)) then
    ShowMessage('sichtbarer Taskbareintrag');
end;

ist leider auch nicht zu 100% sicher ob es sich wirklich um einen sichtbaren Taskbareintrag handelt.

[SirThornberry]

ist klar das es nicht sicher ist weil hier gar nicht der windowstyle geprüft wird (toolwindow etc.)

[Billi Berserker]

Delphi-Quellcode:

  function EnumWindowsProc(Wnd: HWND; LParam: LPARAM): BOOL; stdcall;
  begin
    if (GetWindowLong(Wnd, GWL_STYLE) and WS_SYSMENU <> 0) and
       ((IsWindowVisible(Wnd) or IsIconic(wnd)) and
       ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
       (GetWindowLong(Wnd, GWL_HWNDPARENT) = GetDesktopWindow)) and
       (GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0))  then
    begin
      // fenster hat Taskbar Eintrag...
    end;
    result := True;
  end;

Das ganze sollte alle möglichkeiten erschlagen