本文整理自网络,侵删。
功能:获取windows系统的缩放比例
vardc:HDC;scale:Double;begin dc:= GetDC(0); scale := GetDeviceCaps(dc,LOGPIXELSX)/0.96/100; if scale <> 1 then begin FrmDPIError.Show; end;end;
相关阅读 >>
android实例-拍摄和分享照片、分享文本(xe8+小米2)
更多相关阅读请进入《Delphi》频道 >>