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实现分割文本文件的小程序

Delphi中三种方法获取windows任务栏的高度

Delphi xe10.1 引用计数

encryptit.pas

Delphi 通过程序窗体句柄获取程序路径

Delphi 与 c/c++ 数据类型对照表

Delphi中datetimepicker组件介绍

Delphi建立快捷方式的函数:createshortcut()

Delphi wm_copydata 用法

Delphi中dataset和json的互转

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

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