delphi 屏幕DPI计算


本文整理自网络,侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
var
  DC: HDC;
  t:integer;
begin

  DC := GetDC(0);
  t:=GetDeviceCaps(DC, logpixelsx) ;
  ReleaseDC(0, DC);
  edit1.Text:= inttostr(t);

  edit2.Text:= vartostr (t / 96 );


end;

相关阅读 >>

Delphi webbrowser ie 窗口选择中,选中的文字内容

Delphi 如何在程序中动态设置墙纸(使用iactivedesktop接口)

Delphi 快捷键设置控件: thotkey

Delphi 阿拉伯数字转中文汉字数字

Delphi 杀系统进程代码

Delphi 时间戳与日期互转

Delphi posansi

Delphi实现文件拖放代码

Delphi代码变异加密工具

Delphi拷贝整个目录(包括子目录)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...