delphi 動態更改屏幕分辨率（轉）

1、如何動態更改屏幕分辨率
　　有許多小工具能夠在不從新啓動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模式!')；
　　好了，試一下吧！