知识大全 Delphi实现动态修改显示器分辨率

Posted 分辨率

篇首语：从困难中战胜出来的人 才是真正的赢家。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi实现动态修改显示器分辨率相关的知识，希望对你有一定的参考价值。

Delphi实现动态修改显示器分辨率  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

本实例演示如何在程序中动态修改屏幕的分辨率 并且不需要重新启动计算机就可以生效 　　　　向窗体上添加两个Button控件 设计完成的主界面如图 所示 　　 >　　 >　　　　在程序中添加一个自定义函数DynamicResolution 它有两个参数 分别对应于水平和垂直方向的分辨率 并且该函数有一个BOOL类型的返回值 通过判断返回值可以判断DynamicResolution函数是否正确执行 DynamicResolution函数代码如下 　　　　function TfrmMain DynamicResolution(X Y: word): BOOL;　　var　　lpDevMode: TDeviceMode;　　begin　　Result := EnumDisplaySettings(nil lpDevMode);　　if Result then　　begin　　lpDevMode dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;　　lpDevMode dmPelsWidth := X;　　lpDevMode dmPelsHeight := Y;　　Result:=ChangeDisplaySettings(lpDevMode )= DISP_CHANGE_SUCCESSFUL;　　end;　　end;　　　　在程序运行过程中 通过单击窗体上的两个按钮 * * 来调用DynamicResolution( )或DynamicResolution( )修改分辨率 　　　　程序首先通过EnumDisplaySettings来取得当前屏幕的分辨率 把它存储在变量lpDevMode中 然后把lpDevMode设置为新的分辨率 最后通过ChangeDisplaySettings函数完成动态修改显示器分辨率的具体操作 　　　　程序代码如下 　　　　unit Unit ;　　interface　　　　uses　　Windows Messages SysUtils Variants Classes Graphics Controls Forms 　　Dialogs StdCtrls;　　　　type　　TfrmMain = class(TForm)　　btn : TButton;　　btn : TButton;　　procedure btn Click(Sender: TObject);　　procedure btn Click(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 lpDevMode);　　if Result then　　begin　　lpDevMode dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;　　lpDevMode dmPelsWidth := X;　　lpDevMode dmPelsHeight := Y;　　Result:=ChangeDisplaySettings(lpDevMode )=DISP_CHANGE_SUCCESSFUL;　　end;　　end;　　　　procedure TfrmMain btn Click(Sender: TObject);　　begin　　if DynamicResolution( ) then　　begin　　ShowMessage( 现在的分辨率是 * );　　end;　　end;　　　　procedure TfrmMain btn Click(Sender: TObject);　　begin　　if DynamicResolution( ) then　　begin　　ShowMessage( 现在的分辨率是 * );　　end;　　end;　　　　end 　　　　保存文件 然后按F 键运行程序 程序运行的初始画面如图 所示 　　　　在程序运行过程中 用户可以通过单击 * 和 * 按钮把屏幕分辨率分别更改为 * 和 * 如图 所示 　　 >　　 >　　 >　　 > cha138/Article/program/Delphi/201311/24653

相关参考

知识大全 我的台式电脑显示屏分辨率调整不过来怎么办

我的台式电脑显示屏分辨率调整不过来怎么办分辨率调整不过来考虑是显卡的驱动没有安装好，请先下载最新驱动后再尝试调整。电脑分辨率怎么调不过来电脑分辨率调不过来怎么办是不知道如何修改，还是知道如何修改但改了

知识大全 关于27英寸显示器分辨率

关于27英寸显示器分辨率27寸主流的显示器最佳分辨率：1920*1080（16:9）分辨率调整方法：1、XP系统右键点击电脑桌面空白处->属性->设置->屏幕分辨率调整到所需分辨率-

知识大全 14英寸台式电脑的液晶显示器分辨率多少

14英寸台式电脑的液晶显示器分辨率多少？十四寸的基本最高都在1366x768吧液晶显示器分辨率多少合适液晶显示器只有一个标准分辨率，在说明书或显示器背后应该能找到，只有在这个分辨率下，才是最清晰、满屏

知识大全 电脑显示器分辨率调不高怎么办

电脑显示器分辨率调不高怎么办说明你的显卡驱动没有安装好，重新安装显卡驱动，就可以，调试显示器分辨率。电脑显示器分辨率调不了怎么办1\\先确定驱动程序有没有安装好.2\\如果确定你的显示器的分辨率是多少

知识大全 联想显示器分辨率调高了屏幕不显示怎么办啊

联想显示器分辨率调高了屏幕不显示怎么办啊如果调成比标准分辨率高的，当然就不显示了。开机按F8进VGA模式，再把分辨率改回来就行。联想显示器分辨率分辨率的设置：桌面->右键->属性->

知识大全 14寸显示器正常屏幕分辨率是多少

14寸显示器正常屏幕分辨率是多少14寸显示器正常屏幕分辨率是1366x768，也有的是1920x1080。基本介绍：屏幕分辨率，确定计算机屏幕上显示多少信息的设置，以水平和垂直像素来衡量。屏幕分辨率低

知识大全 电脑显示器分辨率调高了会缩短显示器的寿命吗

电脑显示器分辨率调高了会缩短显示器的寿命吗？有什么坏处？显示分辨率调高了的影响；跟CPU没有太大关系，倒是和显卡及内存的关系比较密切。集成显卡尤其与内存关系更大，分辨率调到最佳状态为好。显示器（dis

知识大全 台式电脑一般显示器的分辨率是多少合适

台式电脑一般显示器的分辨率是多少合适？台式机屏幕分辨率多少比较合适，台式机屏幕分辨率多少合适。下面是比较常用的各个尺寸的屏幕分辨率设置：14寸显像管(CRT)显示器800×60017寸液晶或CRT显示

知识大全 Delphi数据库的动态建立

Delphi数据库的动态建立  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　delphi最吸引人

知识大全 笔记本外接显示器把分辨率调高对显卡有没有影响

笔记本外接显示器把分辨率调高对显卡有没有影响笔记本外接显示器把分辨率调高对显卡会有一定的影响。一般只要显卡支持的分辨率都可以使用，能有很好的散热环境即可。分辨率可以从显示分辨率与图像分辨率两个方向来分