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
...[ 查看全文 ]
