本文整理自网络,侵删。
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 将 4 个 byte 合成 1 个 integer 的五种方法 - 回复 "三足乌" 的问题
Delphiwindows 下编译 exe 文件时把一个外部 txt 文件编译到 exe 里面
Delphi tmsweb core webhttprequest1提交json数据
Delphi中webbrowser(或者embeddedwebbrowser)控件打开部分网站报“invalid floating point operation”异常的解决方法
更多相关阅读请进入《Delphi》频道 >>