本文整理自网络，侵删。
用Delphi来实现全屏截图
在窗体上放置一个image控件，这个用来显示我们截取的图片。
再放一个Button控件，用来控制截图，点击按钮Button时候 把截取到的图片显示在image控件中
下面是代码：
procedure TForm1.Button1Click(Sender: TObject);
var
bmp : TBitmap;
can : TCanvas;
dc: HDC;
begin
bmp := TBitmap.Create; //创建BMP
bmp.Width := Screen.Width; //把屏幕属性赋值
bmp.Height := Screen.Height; //赋值屏幕
dc := GetDC(0); //获取到屏幕的dc
can := TCanvas.Create; //创建画布对象
can.Handle := dc;
bmp.Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),can,Rect(0,0,Screen.Width,Screen.Height));
Image1.Picture.Bitmap := bmp;//将截取到的图片显示在iamge控件中
bmp.Free;
can.Free;
ReleaseDC(0,dc);
end;
相关阅读 >>
Delphi 取得开机时间 开机时间总长度（可精确到秒，分钟等）
Delphi net.httpclient用最精简的代码获取网页数据
Delphi 实现卸载windows应用程序（类似360软件管家-卸载程序）
Delphi api: setwindowpos改变窗口的位置与状态
Delphi中url的编码与解码，即urlencode的使用
更多相关阅读请进入《Delphi》频道 >>
