加入一個FUNCTION如下：
============================================================
  function SetScreenResolution(Width, Height: integer): Longint; 
  var 
    DeviceMode: TDeviceMode; 
  begin 
    with DeviceMode do begin 
      dmSize := SizeOf(TDeviceMode); 
      dmPelsWidth := Width; 
      dmPelsHeight := Height; 
      dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; 
    end; 
    Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY); 
  end; 
===============================================================
並在FORM1上加入BUTTON1、BUTTON2
先宣告變數
  var 
    OldWidth, OldHeight: integer; 
在button1之click事件上上加入
======================================
procedure TForm1.Button1Click(Sender: TObject); 
  begin 
    OldWidth := GetSystemMetrics(SM_CXSCREEN); 
    OldHeight := GetSystemMetrics(SM_CYSCREEN); 
    SetScreenResolution(640, 480); 
  end; 
=====================================    在button2之click事件上加入
================================
  procedure TForm1.Button2Click(Sender: TObject); 
  begin 
    SetScreenResolution(OldWidth, OldHeight); 
  end;
================================
此範例是先將原本之解析度存到變數中，按下按鈕一會先將解析度
變為640*480，按下按鈕二會將變數值回存，變為原本之解析度    以上報告完畢！    --------------------
DELPHI ROCK & ROLL
--------------------