Screenshot an einer bestimmten Stelle

[-NIP-]

Hi!

Ich habe ein Problem. Und zwar :lol: habe ich schon überall gesucht, aber
nur gefunden, wie man einen Screenshot macht. Ich will aber einen bestimmt großen Screenshot an einer bestimmten Stelle des
Bildschirms machen.
Bitte helft mir!
(Vielleicht hab ich nicht gut genug gesucht :roll: )

-NIP-

[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 :zwinker:

Gruß
Stephan

[-NIP-]

Danke schonmal! :thumb:
Gibt es denn auch eine Möglichkeit eine Paintbox komplett
in einem Image anzeigen zu Lassen? :-D

-NIP-

[moritz]

Was?

[-NIP-]

Na den Inhalt einer PaintBox, wenn da schon was drauf gezeichnet wurde etc.
Das will ich in einem Image anzeigen lassen.

-NIP-

[fkerber]

Hi!

Schau mal nach

BitBlt

Ciao Frederic

[-NIP-]

Sorry in der Delphi Hilfe finde ich da nichts. Und auch im Internet bisher
nichts Gescheites. :duck:

-NIP-

[moritz]

Erstes Ergebniss der Google-Suche: http://msdn.microsoft.com/library/de...tmaps_0fzo.asp