天下网吧 >> 网吧天地 >> 天下码农 >> 桌面开发 >> VBS >> 正文

Delphi实现动态修改显示器分辨率

2006-12-20网狐佚名

【大中小】

　　本实例演示如何在程序中动态修改屏幕的分辨率，并且不需要重新启动计算机就可以生效。

　　向窗体上添加两个Button控件，设计完成的主界面如图1所示。

图1 主界面

　　在程序中添加一个自定义函数DynamicResolution，它有两个参数，分别对应于水平和垂直方向的分辨率，并且该函数有一个BOOL类型的返回值，通过判断返回值可以判断DynamicResolution函数是否正确执行。DynamicResolution函数代码如下：

function TfrmMain.DynamicResolution(X, Y: word): BOOL;
　var
　　lpDevMode: TDeviceMode;
　begin
　　Result := EnumDisplaySettings(nil, 0, lpDevMode);
　　if Result then
　　begin
　　　lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
　　　lpDevMode.dmPelsWidth := X;
　　　lpDevMode.dmPelsHeight := Y;
　　　Result:=ChangeDisplaySettings(lpDevMode,0)= DISP_CHANGE_SUCCESSFUL;
　　end;
　end;

　　在程序运行过程中，通过单击窗体上的两个按钮“640*480”、“800*600”来调用DynamicResolution(640,480)或DynamicResolution(800,600)修改分辨率。

　　程序首先通过EnumDisplaySettings来取得当前屏幕的分辨率，把它存储在变量lpDevMode中，然后把lpDevMode设置为新的分辨率，最后通过ChangeDisplaySettings函数完成动态修改显示器分辨率的具体操作。

　　程序代码如下：

unit Unit1;
interface

uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs, StdCtrls;

type
　TfrmMain = class(TForm)
　btn800600: TButton;
　btn640480: TButton;
　procedure btn640480Click(Sender: TObject);
　procedure btn800600Click(Sender: TObject);
private
　{ Private declarations }
public
　{ Public declarations }
　function DynamicResolution(X, Y: word): BOOL;
　end;

var
　frmMain: TfrmMain;
　implementation
　{$R *.dfm}

　function TfrmMain.DynamicResolution(X, Y: word): BOOL;
var
　lpDevMode: TDeviceMode;
begin
　Result := EnumDisplaySettings(nil, 0, lpDevMode);
　if Result then
　begin
　　lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
　　lpDevMode.dmPelsWidth := X;
　　lpDevMode.dmPelsHeight := Y;
　　Result:=ChangeDisplaySettings(lpDevMode,0)=DISP_CHANGE_SUCCESSFUL;
　end;
end;

procedure TfrmMain.btn640480Click(Sender: TObject);
begin
　if DynamicResolution(640, 480) then
　begin
　　ShowMessage(’现在的分辨率是640*480’);
　end;
end;

procedure TfrmMain.btn800600Click(Sender: TObject);
begin
　if DynamicResolution(800, 600) then
　begin
　　ShowMessage(’现在的分辨率是800*600’);
　end;
end;

end.

　　保存文件，然后按F9键运行程序，程序运行的初始画面如图2所示。

　　在程序运行过程中，用户可以通过单击“800*600”和“640*480”按钮把屏幕分辨率分别更改为“800*600”和“640*480”，如图3所示。

图2 程序运行的初始画面

图3 程序运行结果

本文来源：网狐作者：佚名

上一篇文章： Delph实现提取可执行文件内部所有图标

下一篇文章：用Delphi实现虚拟盘映射

网吧英雄联盟进入游戏后分辨率异常解决方法   网吧根据机器名自动修改分辨率批处理   如何添加客户机屏幕分辨率
海兰K9高清2K分辨率还你一个清晰明亮的世界   泰坦陨落PC版：4K分辨率+NVIDIA图像技术   富士通Win8超极本：3200*1800分辨率+15.5mm
富士通Win8超极本：3200*1800分辨率+15.5mm  真的假的？Chromebook配超高分辨率+触摸屏   CES2013:分辨率升级 TI发布微投芯片全新架构
网吧母盘忘修改分辨率修补大法

聚合推荐

网吧卫生

网吧电脑配置

开网吧

网吧键盘

网吧配置

网吧GHOST

ROS

网吧软件故障解决

网众无盘

网吧游戏菜单

网吧活动

网吧优化

网吧精品

网吧新手

声明

声明：本站所发表的文章、评论及图片仅代表作者本人观点，与本站立场无关。若文章侵犯了您的相关权益，请及时与我们联系，我们会及时处理，感谢您对本站的支持！联系Email：support@txwb.com，系统开号，技术支持，服务联系QQ：1175525021本站所有有注明来源为天下网吧或天下网吧论坛的原创作品，各位转载时请注明来源链接！

天下网吧·网吧天下

Delphi实现动态修改显示器分辨率

推荐文章

最新文章