Delphi 获取屏幕缩放比例

此方法来源于网络某位大神的总结，但是找不到了，我只能将我软件中使用的代码公布出来，已方便更多的人使用和学习

功能：获取windows系统的缩放比例

var
dc:HDC;
scale:Double;
begin
  dc:= GetDC(0);
 scale := GetDeviceCaps(dc,LOGPIXELSX)/0.96/100;
  if scale <> 1 then
  begin
     FrmDPIError.Show;
  end;
end;