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;
 

相关阅读 >>

Delphi的判断文件和文件夹

Delphi 实现文件上传下载

Delphi将图片转换成文本支持转换回去

Delphi qr /条形码扫描仪应用示例代码（使用zxing，tframestand）

Delphi 学习使用资源文件 - 字符串资源

Delphi 如何获取窗口的图标

Delphi 改造shellexecute 精简函数

Delphi读写firebird二进制数据

Delphi 下载一个jpg图片保存为bmp图片

Delphi 程序启动窗体控制在桌面右下角

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

转载请注明出处：木庄网络博客 » Delphi 获取屏幕缩放比例