Http://www.cnblogs.com/key-ok/p/4594674.html How to dynamically change the screen resolution there are many gadgets that can dynamically change the screen resolution without restarting Windows. Do you want to do it yourself? Please add the following function Resolution (X,y:word) to the interface segment: Boolean, and then write the following code in the implementation segment: 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 Next, put a button,caption in the form "800x600" and then write down the If Resolution (800,600) then ShowMessage (' 800x600 mode! ') in its OnClick event ; All right, try it!
Delphi dynamically change screen resolution (RPM)
