标签：
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模式!‘)； 好了，试一下吧！标签：
原文地址：http://www.cnblogs.com/westsoft/p/5925958.html
