Höhe der Taskbar

[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