delphi 怎样判断Windows的DPI大小？


在设计软件的时候，很多人都没有注意到DPI的问题，因为我们绝大多数用户默认都是使用96，但是也有些用户是使用120的。

如果没有注意到这点，那么软件运行在120下面的话会出现排版混乱的情况。 


function IsSmallDPI: boolean;
var
  DC: HDC;
begin
  DC := GetDC(0);
  Result := (GetDeviceCaps(DC, logpixelsx) = 96);
  ReleaseDC(0, DC);
end;