Per Mausklick Formular als BMP abspeichern

[SirThornberry]

hast du denn mal nach screenshot gesucht? dann hättest du was gefunden.

Delphi-Quellcode:

var LDC: Cardinal;
    LBmp: TBitmap;
begin
  LBmp := TBitmap.Create;
  LDC := GetDC(0);
  LBmp.Width := Screen.Width;
  LBmp.Height := Screen.Height;
  BitBlt(LBmp.Canvas.Handle, 0, 0, LBmp.Width, LBmp.Height, LDC, 0, 0, SRCCOPY);
  ReleaseDC(0, LDC);
  LBmp.SaveToFile('e:\screenshot.bmp');
  LBmp.Free;
end;