基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

动态抓取屏幕图像

  抓取屏幕图像的难点有两个：一是如何获取屏幕的句柄，二是知道屏幕句柄后如何获取屏幕的图像。

procedure TForm1.CaptureScreen();

var

    Fullscreen:TBitmap;

    FullscreenCanvas:TCanvas;

    DC:HDC;

begin

    Fullscreen:=TBitmap.Create;

    Fullscreen.Width:=screen.width;

    Fullscreen.Height:=screen.Height;

    DC:=GetDC(0);

    FullscreenCanvas:=TCanvas.Create;

    FullscreenCanvas.Handle:=DC;

    Fullscreen.Canvas.CopyRect(Rect(0,0,screen.Width,screen.Height),

                                     fullscreenCanvas,Rect(0,0,Screen.Width,Screen.Height));

    FullscreenCanvas.Free;

    ReleaseDC(0,DC);

   Img1.Picture.Bitmap:=fullscreen;

    Img1.Width:=fullscreen.Width;

    Img1.Height:=fullscreen.Height;

    fullscreen.free;

end;