在努力处理应用程序中的 DPI 变化时，我使用以下代码来读取当前的缩放因子：
我的问题是，无论我在 Windows（Windows 10）中设置什么样的设置，此代码始终返回 100（96 dpi）。
我使用默认项目设置编译了我的应用程序（即生成清单文件自动生成，要包括的标签：启用运行时主题和启用高 DPI）。
我还尝试关闭“启用高 DPI”，然后在应用程序中手动启用它（但我尝试时会出现错误，提示 DPI 模式已经设置，但这可能是另一个时间的另一个问题）。
有人可以指导我一个方向，允许我可靠地读取在 Windows 中设置的当前 DPI 比例因子吗？我还需要响应 DPI 更改，但似乎无法截取 WM_DPICHANGED 消息。我应该在应用程序级别还是表单级别拦截此消息？
为了重现我的测试设置，请创建一个名为 Button1 的单个按钮的空 VCL 应用程序。在 FormCreate 事件中，放置以下代码：
将Button1.OnClick事件附加到FormCreate方法中，以便在启动时初始化按钮标题，并在每次单击按钮时刷新。
然后运行应用程序。按钮标题应该一开始显示为100（如果您正在以100％缩放运行）。然后尝试更改Windows中的缩放并单击按钮。它应该改为您选择的值，但是（在我的电脑上）它仍然返回100％。
清单（从编译的.EXE中提取）如下：
TYPE TZoom = BYTE;
FUNCTION OldStyleGetDpiForSystem : TZoom; cdecl;
VAR
DC : HDC;
X,Y,Z : LongWord;
BEGIN
DC:=GetDC(0);
TRY
X:=GetDeviceCaps(DC,LOGPIXELSX);
Y:=GetDeviceCaps(DC,LOGPIXELSY)
FINALLY
ReleaseDC(0,DC)
END;
IF X>Y THEN Result:=X ELSE Result:=Y
END;
FUNCTION GetDpiForSystem : TZoom;
TYPE
GetDpiForSystemFunc = FUNCTION : TZoom; cdecl;
CONST
GetDpiForSystem : GetDpiForSystemFunc = NIL;
BEGIN
IF NOT Assigned(GetDpiForSystem) THEN BEGIN
// Try to use official method (available from Windows 10, version 1607 [desktop apps only] and on)
GetDpiForSystem:=GetProcAddress(LoadLibrary('USER32.DLL'),'GetDpiForSystem');
// If not found, then use fall-back method with GetDeviceCaps of DeskTop
IF NOT Assigned(GetDpiForSystem) THEN GetDpiForSystem:=OldStyleGetDpiForSystem
// In any case, only determine method once, but call the method every time, as the DPI can change
// while the application is running
END;
Result:=ROUND(GetDpiForSystem/USER_DEFAULT_SCREEN_DPI*100.0)
END;
FUNCTION WindowsScaleFactor : TZoom;
BEGIN
Result:=GetDpiForSystem
END;
我的问题是，无论我在 Windows（Windows 10）中设置什么样的设置，此代码始终返回 100（96 dpi）。
我使用默认项目设置编译了我的应用程序（即生成清单文件自动生成，要包括的标签：启用运行时主题和启用高 DPI）。
我还尝试关闭“启用高 DPI”，然后在应用程序中手动启用它（但我尝试时会出现错误，提示 DPI 模式已经设置，但这可能是另一个时间的另一个问题）。
有人可以指导我一个方向，允许我可靠地读取在 Windows 中设置的当前 DPI 比例因子吗？我还需要响应 DPI 更改，但似乎无法截取 WM_DPICHANGED 消息。我应该在应用程序级别还是表单级别拦截此消息？
为了重现我的测试设置，请创建一个名为 Button1 的单个按钮的空 VCL 应用程序。在 FormCreate 事件中，放置以下代码：
procedure TForm14.FormCreate(Sender: TObject);
begin
Button1.Caption:=IntToStr(WindowsScaleFactor)
end;
将Button1.OnClick事件附加到FormCreate方法中，以便在启动时初始化按钮标题，并在每次单击按钮时刷新。
然后运行应用程序。按钮标题应该一开始显示为100（如果您正在以100％缩放运行）。然后尝试更改Windows中的缩放并单击按钮。它应该改为您选择的值，但是（在我的电脑上）它仍然返回100％。
清单（从编译的.EXE中提取）如下：
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3">
<asmv3:application>
<asmv3:windowsSettings xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">
<dpiAware>True/PM</dpiAware>
</asmv3:windowsSettings>
</asmv3:application>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
publicKeyToken="6595b64144ccf1df"
language="*"
processorArchitecture="*"/>
</dependentAssembly>
</dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
<security>
<requestedPrivileges>
<requestedExecutionLevel
level="asInvoker"
uiAccess="false"
/>
</requestedPrivileges>
</security>
</trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!--The ID below indicates app support for Windows Vista -->
<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
<!--The ID below indicates app support for Windows 7 -->
<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
<!--The ID below indicates app support for Windows 8 -->
<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>
<!--The ID below indicates app support for Windows 8.1 -->
<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
<!--The ID below indicates app support for Windows 10 -->
<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/>
</application>
</compatibility>
</assembly>