Screenshot machen (zum 125.000sten Mal *gg*)

[Codehunter]

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