Delphi 获取屏幕缩放比例

2019-09-29 0 条评论 228 次阅读 0 人点赞

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

功能:获取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;

Anchep

Anchep

TyphonFinger

文章评论(0)

你必须 登录 才能发表评论