2

我无法让我的 Delphi (10.1 Berlin Update 2) 应用程序在 Windows 10 的高 DPI 下正常运行，2018 年 4 月更新。默认情况下，整个应用程序是模糊的（由操作系统缩放），但如果我将 DPI 设置（exe 的属性）更改为“应用程序”，它的行为正确。我的可执行文件的清单文件如下所示：

sigcheck -m exectuable.exe

Sigcheck v2.60 - File version and signature viewer
Copyright (C) 2004-2017 Mark Russinovich
Sysinternals - www.sysinternals.com

C:\...\executable.exe:
        Verified:       Unsigned
        Link date:      12:05 13-8-2018
        Publisher:      n/a
        Company:        
        Description:    
        Product:        
        Prod version:   
        File version:   
        MachineType:    32-bit
        Manifest:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <application xmlns="urn:schemas-microsoft-com:asm.v3">
    <windowsSettings>
        <dpiAwareness xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">PerMonitorV2</dpiAwareness>
        <dpiAware>true</dpiAware>
    </windowsSettings>
  </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>

此清单在 DPR 中使用{$R 'app.res' 'app.rc'}，资源文件仅包含一行：

1 24 .\HighDPI.manifest

我不想在运行时做任何事情，而是让清单决定 DPI 缩放。任何人都可以为我提供一个解决方案来防止 Windows 以高 DPI 缩放我的应用程序吗？

4

2 回答 2

1

dpiAware 标签也需要 xmlns 属性。我使用以下清单作为模板：

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity
    name="MyApp"
    processorArchitecture="*"
    version="1.0.0.0"
    type="win32"
  />
  <description>My Application description</description>
  <dependency>
    <dependentAssembly>
      <assemblyIdentity
        type="win32"
        name="Microsoft.Windows.Common-Controls"
        version="6.0.0.0"
        processorArchitecture="*"
        publicKeyToken="6595b64144ccf1df"
        language="*"
      />
    </dependentAssembly>
  </dependency>
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel
          level="asInvoker"
          uiAccess="false"
        />
      </requestedPrivileges>
    </security>
  </trustInfo>
  <application xmlns="urn:schemas-microsoft-com:asm.v3">
    <windowsSettings>
      <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">True/PM</dpiAware>
      <dpiAwareness xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">
PerMonitorV2, PerMonitor</dpiAwareness>
    </windowsSettings>
  </application>
  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
    <application>
      <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/>
      <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
      <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>
      <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
      <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
    </application>
  </compatibility>
</assembly>

PS 确保升级到最新的 Delphi，他们在柏林更新 2 上添加了大量的 HiDPI 修复。

于 2018-08-17T10:19:38.930 回答
0

您在这里遇到的问题是 Windows 10 主要读取嵌入在可执行文件中的清单文件，而不是外部清单文件。

从 Windows Vista 及更高版本，嵌入式 mainfest 比在 Windows XP 上的外部优先级更高

https://stackoverflow.com/a/17876811/3636228

因此，如果您希望外部清单的属性生效，则必须从可执行文件中删除嵌入的清单文件。

于 2018-08-13T10:45:48.307 回答