А ещё можно сделать так :
procedure TForm1.Button1Click(Sender: TObject);
var
BMP1: Graphics.TBitmap;
begin
Screen1.Visible:=false;
sleep(15);
BMP1:=Graphics.TBitmap.Create;
BMP1.Height:=Screen.Height;
BMP1.Width:=Screen.Width;
DC1:=GetDC(0);
BitBlt(BMP1.Canvas.Handle, 0, 0, Screen.Width,
Screen.Height, DC1, 0, 0, SRCCOPY);
Screen1.Visible:=true;
Image1:= TImage.Create(nil);
BMP1.IgnorePalette:=true;
Image1.Picture.Assign(BMP1);
BMP1.SaveToFile('FileName.bmp');
end;
|