时间: 2021-07-31 作者:daque
windows供给给咱们两个api因变量,不妨动态调整显示器的分辨率, 她们是enumdisplaysettings()和 changedisplaysettings(), 底下这个例子即是了 function dynamicresolution(x, y: word): bool;var lpdevmode: tdevicemode;beginresult := enumdisplaysettings(nil, 0, lpdevmode);if result then begin lpdevmode.dmfields := dm_pelswidth or dm_pelsheight; lpdevmode.dmpelswidth := x; lpdevmode.dmpelsheight := y; result := changedisplaysettings(lpdevmode, 0) = disp_change_successful; end;end;procedure tform1.button1click(sender: tobject);beginif dynamicresolution(640, 480) then showmessage('now is 640*480');end;procedure tform1.button2click(sender: tobject);beginif dynamicresolution(800, 600) then showmessage('now is 800*600');end;