Höhe der Taskbar

[Privateer3000]

Greetz folks,

wie bekommt man die genaue Höhe der taskbar heraus
um sie in ein Integer zu packen?

Grüße
Privateer

[Christian Seehase]

Moin Privateer,

schau Dir doch mal SHAppBarMessage / SHAppBarMessage an

[mbamler]

Zitat von Privateer3000:

Greetz folks,

wie bekommt man die genaue Höhe der taskbar heraus
um sie in ein Integer zu packen?

Grüße
Privateer

Delphi-Quellcode:

function GetTaskbarHeight: integer;
var
  SysTray: Windows.HWND;
  Rect: TRect;
begin
  Result := -1;
  SysTray := FindWindow('Shell_TrayWnd', nil);
  If SysTray <> INVALID_HANDLE_VALUE then begin
    If GetWindowRect(SysTray, Rect) then begin
      Result := Screen.Height - Rect.Top;
    end;
  end;
end;




function GetTaskbarWidth: integer;
var
  SysTray: Windows.HWND;
  Rect: TRect;
begin
  Result := -1;
  SysTray := FindWindow('Shell_TrayWnd', nil);
  If SysTray <> INVALID_HANDLE_VALUE then begin
    If GetWindowRect(SysTray, Rect) then begin
      Result := Rect.Right - Rect.Left;
    end;
  end;
end;

Gruß
Matthias

[Privateer3000]

Danke, alles klar!
Nochwas, ich glaube 'Shell_TrayWnd'
funktioniert erst ab NT4.
Sollte man das lieber abfangen und
dafür einen Standardwert setzen?
Oder was passiert, wenn ein niedriegeres
OS darauf stösst?

Greetz

[cramer]

Kleine Ergänzung, für alle, die die Taskbar oben im Desktop haben (wo sie hingehört :-)

Delphi-Quellcode:

if Rect.Top <= 1 then Result := Rect.Bottom // Taskbar ist oben *)
                 else Result := Screen.Height - Rect.Top;

*) bei mir (wxp.sp2.d5.ep) ist Top dann -2 und nicht wie ich erwartet hatte 0 oder 1.
Uwe