下面代码把屏幕保存在文件中：
图象中也包含了你的程序的画面。你应该隐藏程序画面，用热键捕获屏幕。
procedure TForm1.Button1Click(Sender: TObject);
var
R : TRect;
DC : HDc;
Canv : TCanvas;
Bmp:TBitmap;
begin
R := Rect( 0, 0, Screen.Width, Screen.Height ); // 取得屏幕的范围
DC := GetWindowDC( GetDeskTopWindow ); //取得屏幕的 DC
Canv := TCanvas.Create;
Canv.Handle := DC;
Bmp:=TBitmap.Create;
Bmp.Width:=Screen.Width;
Bmp.Height:=Screen.Height;
Bmp.Canvas.CopyRect( R, Canv, R ); //复制屏幕图象到 Bmp
Bmp.SaveToFile('scr.bmp'); //保存屏幕图象
Bmp.Free;
ReleaseDC( GetDeskTopWindow, DC );
end;
