Windows获取显示器缩放比例
先放代码：
function getScreenScale:double; var dc:HDC; begin dc:= GetDC(0); result:= GetDeviceCaps(dc,LOGPIXELSX)/0.96/100; ReleaseDC(0,dc); end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := getScreenScale.ToString; end;
测试结果：
![T7I]E}(V~$ZWFC$NKQ~I4NR](https://img2023.cnblogs.com/blog/3198687/202305/3198687-20230521103640426-851283069.png "T7I]E}(V~$ZWFC$NKQ~I4NR")