delphi xe10 获取屏幕截图

本文整理自网络，侵删。

 

//截取屏幕图片
function MakeScaleScreenshot(Sender: TControl): TBitmap;
  function GetScreenScale: Single;
  var
    ScreenService: IFMXScreenService;
  begin
    Result := 1;
    if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService,  IInterface(ScreenService)) then
    begin
      Result := ScreenService.GetScreenScale;
    end;
  end;
var
  fScreenScale: Single;
begin 
  fScreenScale := GetScreenScale;
  Result := TBitmap.Create(Round(Sender.Width * fScreenScale),
    Round(Sender.Height * fScreenScale));
  Result.Clear(0);
  if Result.Canvas.BeginScene then
    try
      Sender.PaintTo(Result.Canvas, RectF(0, 0, Result.Width, Result.Height));
    finally
      Result.Canvas.EndScene;
    end;
end;
复制代码
 

博客园 滔Roy https://www.cnblogs.com/guorongtao 
 

相关阅读 >>

Delphi xe5 给edit增加自定义按钮

Delphi获取计算机的工作组信息和获取工作组中的计算机名称

Delphi 内存流方式获取页面验证码图片

Delphi 守护进程 杀死自己的进程再重新启动自己

关于Delphi下的三元运算符（三目运算）

Delphi messagebox 使用

Delphi监视进程并结束进程

Delphi多线程学习：多线程数据库查询（ado）

如何将string变量赋值给pchar变量

Delphi 拖动文件到exe 打开 获取getcommandline命令行

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

转载请注明出处：木庄网络博客 » delphi xe10 获取屏幕截图