摘要：
请添加以下函数Resolution（X，Y:word）：boolean；var DevMode:=EnumDisplaySettings（nil，=DM_PELSWIDTHOrDM_PELSHIGHT；=X；=Y；结果：0）=DISP_CHANGE_SUCCESSFUL；终止在表单中放置一个按钮，标题为“
一、如何动态更改屏幕分辨率
有许多小工具可以在不重新启动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模式!')；
好了，试一下吧！