Screenshot an einer bestimmten Stelle

[Steve]

Delphi-Quellcode:

Procedure GetScreenshot(aRect: TRect);
var
  Desktop: HDC;
  bmp    : TBitmap;
begin
  Result  := TBitmap.Create;
  Desktop := GetDC(0);
  try
    bmp.PixelFormat := pf32bit;
    bmp.Width       := aRect.Right-aRect.Left;
    bmp.Height      := aRect.Bottom-aRect.Top;
    BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, Desktop, aRect.Left, aRect.Top, SRCCOPY);
    Result.Modified := True;
  finally
    ReleaseDC(0, Desktop);
    FreeAndNil(bmp);
  end;
end;

.. in Anlehnung an http://www.swissdelphicenter.ch/de/showcode.php?id=140

Gruß
Stephan