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 application.processmessage作用

Delphi 常用4种对话框

Delphi读写文本文件 assignfile reset append

Delphi 获取两字符串之间的内容

Delphi 提取字符串中所有数字

Delphi 比较图片是否相同

Delphi messagebox 使用

Delphi时间格式错误

Delphi版雪花算法

Delphi获得唯一id字符串

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

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