用Delphi来实现全屏截图


用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;

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678