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 idhttpserver的使用方法

Delphi 无法结束进程的程序

Delphi 将 4 个 byte 合成 1 个 integer 的五种方法 - 回复 "三足乌" 的问题

Delphi 获取与设置系统环境变量

Delphi程序不受windows日期格式的影响

Delphiwindows 下编译 exe 文件时把一个外部 txt 文件编译到 exe 里面

Delphi 防止程序重复打开运行

Delphi tmsweb core webhttprequest1提交json数据

Delphi md5单元文件

Delphi中webbrowser（或者embeddedwebbrowser）控件打开部分网站报“invalid floating point operation”异常的解决方法

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

转载请注明出处：木庄网络博客 » delphi 屏幕DPI计算