delphi 设置win10 dpi 缩放规则

一、dpi介绍
dpi是“Dots Per Inch”的缩写，表示每英寸的像素点个数，也就是像素点的密集度。
dpi = 总像素点 / 总面积
比如一个32寸的显示，但分辨率只有1920*1440，而一个24寸的显示器，分辨率却达到3840*2160，很明显后面这个显示器的每英寸的像素点的个数多，显示的画面更加细腻。
所以：高分辨率不等于高dpi。
苹果的视网膜屏幕的核心就是高dpi：屏幕面积小，却分辨率高达5k，每英寸的像素点（dpi）固然多，画面自然细腻。

二、高dpi显示器如何导致软件显示异常
随着2K、4K显示器的普及，在使用这些高dpi显示器时，为了保证系统软件界面看起来不至于太小，导致视觉疲劳，一般会在系统中设置缩放比例。Windows操作系统对高dpi显示器缩放支持最好的是windows 10，建议使用高dpi显示器时使用Windows 10操作系统。

假设现在有一个软件界面（宽为950像素，高为700像素），该软件在24寸、分辨率为1900*1400的显示器上显示正常，但放到高dpi显示器（同样是24寸，但分辨率为3800*2800）上显示效果会如何？

从上图可以看到，同样尺寸的软件界面，在高dpi显示器上会显得非常小，会造成严重的视觉疲劳。

所以我们的软件需要针对高dpi进行缩放。

三、Windows 10 DPI缩放规则
Windows 10操作系统针对dpi缩放制定了3种规则，每个进程都必须匹配下面的一种规则，默认为PROCESS_DPI_UNAWARE：

1. PROCESS_DPI_UNAWARE
  在软件启动时， 操作系统会自动将软件进行缩放拉伸；在系统dpi缩放改变时，系统也会将软件自动进行缩放拉伸，但软件不会收到WM_DPICHANGED消息。
   
2. PROCESS_SYSTEM_DPI_AWARE
   在软件启动时，系统不会将软件进行缩放拉伸；但在系统dpi缩放改变时，系统会将软件进行缩放拉伸，但软件仍然不会收到WM_DPICHANGED消息。
   
3. PROCESS_PER_MONITOR_DPI_AWARE
   在软件启动时，系统不会将软件进行缩放拉伸；同样，在系统dpi缩放改变时，系统也不会将软件进行缩放拉伸，但软件会收到WM_DPICHAN

procedure TFrmBase.SetDpiSize;
var
  setProcessDPIAwareness: Pointer;
  setting, WinDPI: Integer;
begin
  // 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;
end;