Delphi實現(xiàn)動態(tài)修改顯示器分辨率

    在程序中添加一個自定義函數(shù)DynamicResolution，它有兩個參數(shù)，分別對應(yīng)于水平和垂直方向的分辨率，并且該函數(shù)有一個BOOL類型的返回值，通過判斷返回值可以判斷DynamicResolution函數(shù)是否正確執(zhí)行。DynamicResolution函數(shù)代碼如下：
    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”來調(diào)用DynamicResolution(640,480)或DynamicResolution(800,600)修改分辨率。
    程序首先通過EnumDisplaySettings來取得當(dāng)前屏幕的分辨率，把它存儲在變量lpDevMode中，然后把lpDevMode設(shè)置為新的分辨率，最后通過ChangeDisplaySettings函數(shù)完成動態(tài)修改顯示器分辨率的具體操作。
    程序代碼如下：
    unit Unit1;
    interface
    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;
    type
    TfrmMain = class(TForm)
    btn800600: TButton;
    btn640480: TButton;
    procedure btn640480Click(Sender: TObject);
    procedure btn800600Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    function DynamicResolution(X, Y: word): BOOL;
    end;
    var
    frmMain: TfrmMain;
    implementation
    {$R *.dfm}
    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;
    procedure TfrmMain.btn640480Click(Sender: TObject);
    begin
    if DynamicResolution(640, 480) then
    begin
    ShowMessage(’現(xiàn)在的分辨率是640*480’);
    end;
    end;
    procedure TfrmMain.btn800600Click(Sender: TObject);
    begin
    if DynamicResolution(800, 600) then
    begin
    ShowMessage(’現(xiàn)在的分辨率是800*600’);
    end;
    end;
    end.
    保存文件，然后按F9鍵運行程序