Delphi应用程序的DPI不高(尽管清单看起来不错)

时间:2018-08-13 10:24:05

标签: delphi manifest dpi highdpi

我无法让我的Delphi(10.1 Berlin Update 2)应用程序在Windows 10(2018年4月更新)上以高DPI正确运行。整个应用程序默认情况下是模糊的(由操作系统缩放),但是如果我将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>

此清单用于{$R 'app.res' 'app.rc'}的DPR中,并且资源文件仅包含一行:

1 24 .\HighDPI.manifest

我不想在运行时做任何事情,但是让清单确定DPI缩放比例。谁能为我提供解决方案,以防止Windows以高DPI缩放我的应用程序?

2 个答案:

答案 0 :(得分:0)

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>

P.S。确保升级到最新的Delphi,他们在Berlin Update 2上添加了许多HiDPI修复程序。

答案 1 :(得分:-1)

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

在Windows Vista及更高版本中,与Windows XP相比,嵌入的mainfest的优先级高于外部的

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

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