ClientHeight, ClientWidth, Top und Left eines externen Fensters ermitteln

[Amateurprofi]

Zitat von Luckie:

Und dann kann man die Rahmendicke abziehen, die man über GetSystemmetrics abfragen kann.

Und was ist, wenn das Fenster eine Caption hat, und vielleicht auch ein Menu?

Ich denke GetClientRect wäre sinnvoller.

[Luckie]

Kann man auch alles abfragen. Aber wenn es dafür eine schon fertige Funktion gibt, ist es natürlich einfacher diese zu benutzen.

[Helmi]

Zitat von Luckie:

Kann man auch alles abfragen. Aber wenn es dafür eine schon fertige Funktion gibt, ist es natürlich einfacher diese zu benutzen.

Nur leider brauch ich das für ein externes Fenster - nicht für eine eigene Form...


Mit GetWindowRect ermittle ich ja das Rect des (sichtbaren) Fensters. Aber gibt es auch die Möglichkeit das Rect eines Fensters zu ermitteln, das größer ist, als der sichtbare Bereich, also mit Scrollbalken?

Wie gesagt, ich bin in einem externen Fenster

[Der.Kaktus]

fremdes Fenster ist doch nicht anders..nur HWnd suchen und los gehts

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
    hNotepadWindow: HWND;
    lpr:TRect;
begin
    hNotepadWindow := FindWindow('notepad', nil);
    getwindowrect(hNotepadWindow,lpr);
end;

[Helmi]

Zitat von Der.Kaktus:

fremdes Fenster ist doch nicht anders..nur HWnd suchen und los gehts

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
    hNotepadWindow: HWND;
    lpr:TRect;
begin
    hNotepadWindow := FindWindow('notepad', nil);
    getwindowrect(hNotepadWindow,lpr);
end;

das hatte ich ja selbst schon rausgefunden (siehe Post #2)

[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;

[Helmi]

Zitat von 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;

Danke für den Code.
Ich hab aber leider noch eine Frage:
Mit dem oberen Code kann ich die sichtbare Größe des externen Fensters auslesen.
Wenn aber das Fenster Scrollbars hat, dann ist ja die sichtbare Größe kleiner als die maximale Größe des Fensters.
Wie kann ich denn die komplette (maximale) Größe des externen Fensters auslesen?