Question

我的一些客户希望能够手动扩展我的应用程序（当Windows dpi设置为96时），因此我必须实现扩展。不幸的是，这些客户不能将Windows DPI设置为其他值并让WIndows扩展我的应用程序，因为他们使用的一些非常重要的应用程序在分辨率＆lt;＆gt;分辨率上表现不佳96 DPI。

我设法使我的Delphi 10.1应用程序规模相当好，即使在200％，但因素越高，一些比例变得“不太好看”。许多第三方组件需要特殊的缩放处理，即使这样也不能100％准确地扩展。尽管按窗口缩放的应用程序在高分辨率下看起来有点模糊，但所有比例都是100％准确，并且应用程序看起来更专业。

所以我问自己是否有可能创建一个设置，允许告诉Windows将扩展作为默认设置，并且如果客户希望扩展与当前Windows扩展不同，则只能自行扩展。此设置托管在应用程序启动时读取的可执行文件的Windows清单中。有没有办法在运行时更改它（应用程序的早期启动）？创建具有不同清单的两个可执行文件肯定不是一个好的解决方案。

感谢您的帮助

Answer 1

感谢Sertac Akyuz，我找到了解决问题的方法。在包含缩放代码的单元的初始化部分中，我可以在DPI-Awareness和Non-DPI-Awareness之间切换。重要的是不要在应用程序清单中设置此设置，这可以通过提供这样的自定义清单来实现（使用控件修饰并使用当前用户的权限运行）：

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
 <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>
</assembly>

这是实际的代码切换，具体取决于注册表项：

// Set DPI Awareness depending on a registry setting
with TRegIniFile.create('SOFTWARE\' + SRegName) do
begin
  setting := readInteger('SETTINGS', 'scale', 0);
  Free;
end;
handle := LoadLibrary('shcore.dll');
if handle <> 0 then
begin
  setProcessDPIAwareness := GetProcAddress(handle, 'SetProcessDpiAwareness');
  if Assigned(setProcessDPIAwareness) then
  begin
    if setting < 2 then
      // setting <2 means no scaling vs Windows
      setProcessDPIAwareness(0)
    else
      // setting 2: 120%, 3: 140% vs. Windows
      // The actual used scaling factor multiplies by windows DPI/96
      setProcessDPIAwareness(1);
  end;
  FreeLibrary(handle);
  // Get windows scaling as Screen.PixelsPerInch was read before swiching DPI awareness
  // Our scaling routines now work with WinDPI instead of Screen.PixelsPerInch
  WinDPI:= Screen.MonitorFromWindow(application.handle).PixelsPerInch;
end;

此片段的最后一行检索当前监视器的当前DPI为screen.pixelsperinch似乎在之前初始化，并且总是返回96，就像非dpi感知应用程序一样。我在所有后续缩放计算中使用winDPI的值，它完美无缺。

Delphi High DPI在自身缩放和Windows缩放之间切换

1 个答案: