Einzelnen Beitrag anzeigen

Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
2.272 Beiträge
 
Delphi 10.4 Sydney
 
#1

Screenshot machen (zum 125.000sten Mal *gg*)

  Alt 9. Aug 2012, 13:31
Hallo!

Ich möchte mir so eine Screenshot-Routine bauen, wie sie z.B. der PaintShopPro hat. Bisher mache ich das so:
Delphi-Quellcode:
procedure GrabScreenshotFromWindow(AHandle: HWND;
  ATargetBitmap: Graphics.TBitmap);
var
  C: TCanvas;
  R: TRect;
begin
  C:=TCanvas.Create;
  C.Handle:=GetWindowDC(AHandle);
  GetWindowRect(AHandle, R);
  ATargetBitmap.Width:=R.Right - R.Left;
  ATargetBitmap.Height:=R.Bottom - R.Top;
  ATargetBitmap.Canvas.CopyRect(R, C, R);
  ReleaseDC(0, C.Handle);
  C.Free;
end;
Geht auch erstmal soweit. Ich hole mir mit GetForegroundWindow das Handle vom aktiven Fenster. Passt. Das Problem dabei: Ich möchte dabei auch evtl. aufgeklappte Menüs mit erfassen. Die verschwinden aber wie von Zauberhand im Screenshot.

Ich vermute, die Routine im PaintShopPro arbeitet ein bisschen anders. Die holt sich zwar das WindowRect vom betreffenden Fenster, "schnappschießt" dann aber den kompletten Bildschirminhalt und schneidet dann den nicht relevanten Teil weg.

Die Preisfrage ist also: Wie "schnappschießt" man den kompletten Bildschirminhalt mit allen Fenstern, auch denen mit "exotischen" Zuständen wie aufgeklappte Menüs?

Grüße
Cody
  Mit Zitat antworten Zitat