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有用的函数extractfilename、extractfilepath

Delphi的常用条件编译指令

Delphi 模拟按键的一些误解

Delphi 如何判断某一窗口最大化

Delphi让tedit控件的内容居中或右对齐，限制位数，仅允许输入数字

Delphi map file

Delphi ip地址转换

Delphi 判断按键状态

Delphi 读取文件的md5值

Delphi usbkey访问、Delphi、js

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

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