首页 > 代码库 > delphi 动态更改屏幕分辨率（转）
delphi 动态更改屏幕分辨率（转）
http://www.cnblogs.com/key-ok/p/4594674.html一、如何动态更改屏幕分辨率 有许多小工具可以在不重新启动Windows的条件下，动态更改屏幕分辨率。你是不是也想自己动手做一个呢？请在interface段中加入下面一句 function Resolution(X,Y:word):boolean； 然后在implementation段中写入如下代码： function Resolution(X,Y:word):boolean； var DevMode:TDeviceMode; begin Result:=EnumDisplaySettings(nil,0,DevMode); if Result then begin DevMode.dmFields:=DM_PELSWIDTH Or DM_PELSHEIGHT; DevMode.dmPelsWidth:=X; DevMode.dmPelsHeight:=Y; Result:=ChangeDisplaySettings(DevMode,0)=DISP_CHANGE_SUCCESSFUL; end; end; 接着，在form中放个button，caption为“800×600"，然后在其OnClick事件中写下 if Resolution(800,600) then ShowMessage(‘800×600模式!‘)； 好了，试一下吧！
delphi 动态更改屏幕分辨率（转）
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。