delphi 屏幕截屏


本文整理自网络,侵删。

 function GetScreenAll: TBitmap; // 截取全屏
var
  C: TCanvas;
begin
  C := TCanvas.Create;
  result := TBitmap.Create;
  result.Width  := Screen.Width;
  result.Height := Screen.Height;
  C.Handle := GetDC(0);  // 获取屏幕的设备上下文句柄,并拷贝
  result.Canvas.CopyRect(Rect(0, 0, screen.Width, screen.Height), C, Rect(0, 0, Screen.Width, SCreen.Height));
  ReleaseDC(0, C.Handle);
  C.Free;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  B: TBitmap;
begin
  B := TBitmap.Create;
  B := GetScreenAll();
  B.SaveToFile('d:\test2.bmp');
  b.Free;
end;

相关阅读 >>

Delphi shellexecute调用系统命令关闭计算机

Delphi memo 自动滚动到最底下

Delphi提取字符串

Delphi中调用api函数exitwindowsex可以实现系统的关机,注销,和重启

Delphi 新建文件夹函数

Delphi 使用钩子函数 - 钩子链和 callnexthookex 的返回值

Delphi 正则提取txt中的email 数据

Delphi程序不受windows日期格式的影响

Delphi 限制tedit控件只能输入数字,小数点和负号

Delphi 十六进制字符串转化成字符串输出hextostr strtohex(Delphi版、c#版)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...