ClientHeight, ClientWidth, Top und Left eines externen Fensters ermitteln

[Bummi]

Delphi-Quellcode:

var
    hand: HWND;
    WndRect,ClntRect:TRect;
begin
    hand := FindWindow('notepad', nil);
      if handle <> 0 then
        begin
          GetWindowRect(hand,WndRect);
          Windows.GetClientRect(hand,ClntRect);
          Showmessage(Format('Window Top: %d Left: %d Right: %d Bottom %d'#13#10
                             +'Client Top: %d Left: %d Right: %d Bottom %d'#13#10
                             ,[WndRect.Top,WndRect.Left,WndRect.Right,WndRect.Bottom
                             , ClntRect.Top,ClntRect.Left,ClntRect.Right,ClntRect.Bottom]));
        end;
end;