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;