Программно нажимаем Print Screen

Code:

procedure SendScreenImageToClipboard;

var

bmp: TBitmap;

begin

bmp := TBitmap.Create;

try

   bmp.Width := Screen.Width;

   bmp.Height := Screen.Height;

   BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,

     GetDC(GetDesktopWindow), 0, 0, SRCCopy);

   Clipboard.Assign(bmp);

finally

   bmp.Free;

end;

end;

Code:

procedure GetScreenImage(bmp: TBitmap);

begin

bmp.Width := Screen.Width;

bmp.Height := Screen.Height;

BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,

   GetDC(GetDesktopWindow), 0, 0, SRCCopy);

end;