Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21:
| procedure GetScreenShot (var ABitmap : TBitmap); var DC : THandle; begin if Assigned(ABitmap) then begin DC := GetDC(0); try ABitmap.Width := Screen.Width; ABitmap.Height := Screen.Height; BitBlt(ABitmap.Canvas.Handle, 0,0,Screen.Width,Screen.Height, DC, 0,0, SrcCopy ); finally ReleaseDC(0, DC); end; end; end; |
Aufgerufen wird die o. g. Funktion zum Beispiel so:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
| procedure TForm1.Button1Click(Sender: TObject); var B : TBitmap; begin B := TBitmap.Create; try GetScreenShot(B); Image1.Picture.Assign(B); finally B.Free; end; end; |
Sourcecode und Hinweise von Sivar, Luckie und AndyB.