Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:WIN系统    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  编程中获取屏幕分辨率  
 
Delphi编程中获取屏幕分辨率

当我们需要获取所运行程序时计算机的分辨率时,有两种方法:①可以通过访问Delphi提供的SCREEN全局变量,即SCREEN.WIDTH和SCREEN.HEIGHT以像素点给出屏幕的分辨率。②利用Windows的API函数GetDeviceCaps()来得到所用显示器的分辨率,源代码如下:

Application.Initialize;

Application.CreateForm(TForm1, Form1);

CASE GetDeviceCaps(GetDC(Form1.Handle),HORZRES) of

640 : //对640×480分辨率进行处理的代码;

800 : //对800×600分辨率进行处理的代码;

1024: //对1024×768分辨率进行处理的代码;

1280: //对1280×1024分辨率进行处理的代码;

END;

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站