1. 首页
  2. 编程语言
  3. Delphi
  4. 系统截屏源码

系统截屏源码

上传者: 2018-12-29 11:06:27上传 RAR文件 210KB 热度 48次
//创建一个BITMAP来存放图象 Fullscreen.Width:=screen.width; Fullscreen.Height:=screen.Height; DC:=GetDC(0); //取得屏幕的DC,参数0指的是屏幕 FullscreenCanvas:=TCanvas.Create; //创建一个CANVAS对象 FullscreenCanvas.Handle:=DC; Fullscreen.Canvas.CopyRect(Rect(0,0,screen.Width,screen.Height), fullscreenCanvas,Rect(0,0,Screen.Width,Screen.Height)); //把整个屏幕复制到BITMAP中 FullscreenCanvas.Free;
下载地址
用户评论