proceslinjens højde

procedure TForm1.Button1Click(Sender: TObject);
var
  hTaskBarWindow : HWnd;
  Rect : TRect;
  Width : Integer;
  Height : Integer;
begin
  hTaskBarWindow:=FindWindow('Shell_TrayWnd',nil);
  GetWindowRect( hTaskBarWindow, Rect );
  Width := Rect.Right - Rect.Left;
  Height := Rect.Bottom - Rect.Top;
  showmessage('Bredde ' + (inttostr(width))+ ' Højde ' + inttostr(height));
end;

Stoney

det fandme i orden hurtigt svar!
tester det lige så får du pointene...

stoney, du er dagens mand i skysovs... tak forhjælpen!
Go' påske :)

troede faktisk ikke jeg ville få så nemt et svar...