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 richedit 的scrollbar自动向下滚动

Delphi toolbar按钮添加图标

Delphi 10.2 创建并使用资源文件

Delphi xe6 利用fastmm4检测内存泄漏

Delphi 判断进程名是否存在，如果存在则结束进程

Delphi 获取 设置文件时间

Delphi 计算运行耗时的方法1

Delphi xe, xe10, 创建 activeform 和 activex 工程的方法

Delphi 用 tbytesstream 类实现的读文件为十六进制字符的函数

Delphi append 追加内容到文件中

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

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