Height von Taskleiste ermitteln

[Tim-94]

Hi Leute ich hab mal wieder eine Frage: Wie ermittle ich die Höhe der Taskleiste?

Vielen Dank im Vorraus

[jaenicke]

Schau dir einmal das an:

Delphi-Quellcode:

Screen.Monitors[0].BoundsRect;
Screen.Monitors[0].WorkareaRect;

Das gibt es für jeden Monitor.

Screen hat auch noch weitere interessante Eigenschaften, z.B. Screen.WorkAreaRect, Screen.Height, Screen.WorkAreaHeight, ...

[Tim-94]

Ja vielen Dank funktioniert super mit Screen.WorkAreaHeight!
Ich habe es vorher mit Screen.Height versucht.

[markus5766h]

Hallo,
alternativ geht auch

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;

ist aber im Prinzip das Gleiche

[mleyen]

Beachte aber das die auch rechts an der Seite positioniert sein kann.
K, WorkAreaHeight schein ja dein Problem gelöst zu haben.

[jaenicke]

Wobei dir klar sein muss, dass die Taskleiste nicht unten sein muss usw.

Das heißt die Frage ist: Worauf kommt es dir an? Auf die Ausmaße des nutzbaren Bildschirmbereichs oder auf die Größe der Taskleiste an sich? Ich bin bei meiner Antwort von ersterem ausgegangen.