本文整理自网络,侵删。
用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 ioutils 单元(6): tpath(结构体)路径的提取和处理
Delphi firedac 下的 sqlite [8] - 自定义函数
Delphi urldownloadtofile 实现文件下载
更多相关阅读请进入《Delphi》频道 >>