Delphi实现动态修改显示器分辨率

本实例演示如何在程序中动态修改屏幕的分辨率，并且不需要重新启动计算机就可以生效。

向窗体上添加两个Button控件，设计完成的主界面如图1所示。

图1 主界面

在程序中添加一个自定义函数DynamicResolution，它有两个参数，分别对应于水平和垂直方向的分辨率，并且该函数有一个BOOL类型的返回值，通过判断返回值可以判断DynamicResolution函数是否正确执行。DynamicResolution函数代码如下：

function TfrmMain.DynamicResolution(X, Y: word): BOOL;
　var
　　lpDevMode: TDeviceMode;
　begin
　　Result := 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;

在程序运行过程中，通过单击窗体上的两个按钮“640*480”、“800*600”来调用DynamicResolution(640,480)或DynamicResolution(800,600)修改分辨率。

程序首先通过EnumDisplaySettings来取得当前屏幕的分辨率，把它存储在变量lpDevMode中，然后把lpDevMode设置为新的分辨率，最后通过ChangeDisplaySettings函数完成动态修改显示器分辨率的具体操作。