一、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;
