Suche "echte" Screenshot Funktion

[Namenloser]

Hatte in einem Screenshot-Programm von mir folgenden Code erfolgreich im Einsatz:

Delphi-Quellcode:

var
  DesktopDC: HDC;

const
  CAPTUREBLT = $4000000;

procedure TakeScreenshot(Dest: TBitmap; const CaptureRect: TRect);
begin
  Dest.SetSize(CaptureRect.Right-CaptureRect.Left,
    CaptureRect.Bottom-CaptureRect.Top);
  BitBlt(Dest.Canvas.Handle,
    0, 0,
    Dest.Width, Dest.Height,
    DesktopDC,
    CaptureRect.Left, CaptureRect.Top,
    SRCCOPY or CAPTUREBLT);
end;

initialization
  DesktopDC := CreateDC('DISPLAY', nil, nil, nil);

finalization
  DeleteDC(DesktopDC)