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函數完成動態修改顯示器解析度的具體操作。

　　程式碼如下：

　　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(’現在的解析度是640*480’);
　end;
end;
procedure TfrmMain.btn800600Click(Sender: TObject);
begin
　if DynamicResolution(800, 600) then
　begin
　　ShowMessage(’現在的解析度是800*600’);
　end;
end;
end.

　　儲存檔案，然後按F9鍵運行程式，程式啟動並執行初始畫面2所示。

　　在程式運行過程中，使用者可以通過單擊“800*600”和“640*480”按鈕把螢幕解析度分別更改為“800*600”和“640*480”，3所示。

 

　　圖2 程式啟動並執行初始畫面

 

　　圖3 程式運行結果

本文來自: 編程入門網 http://www.bianceng.cn/Programming/Delphi/zl/200804/9404.htm
本文來自: 編程入門網 http://www.bianceng.cn/Programming/Delphi/zl/200804/9404.htm