Hallo,
mittels folgenden Code mache ich von einem aktiven Fenster einen ScreenShot:
Delphi-Quellcode:
procedure ScreenShot_aktives_Fenster(Bild: TBitMap);
var
c: TCanvas;
r, t: TRect;
h: THandle;
begin
c := TCanvas.Create;
c.Handle := GetWindowDC(GetDesktopWindow);
h := GetForeGroundWindow;
If h <> 0 then
GetWindowRect(h, t);
try
r := Rect(0, 0, t.Right - t.Left, t.Bottom - t.Top);
Bild.Width := t.Right - t.Left;
Bild.Height := t.Bottom - t.Top;
Bild.Canvas.CopyRect(r, c, t);
finally
ReleaseDC(0, c.Handle);
FreeAndNil(c);
end;
end;
Dummerweise hab ich eine Software (nicht von mir, ist vom Siemens) dessen Inhalt der Form
zu groß für das maximierte Fenster ist, so dass die Scrollbars angezeigt werden.
Wie könnt ich nun einen Screenshot des kompletten (großen) Inhalts des Fensters machen?
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<