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;
声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。