當我們需要獲取所運行程序時計算機的分辨率時，有兩種方法：①可以通過訪問Delphi提供的SCREEN全局變量，即SCREEN.WIDTH和SCREEN.HEIGHT以像素點給出屏幕的分辨率。②利用Windows的API函數GetDeviceCaps()來得到所用顯示器的分辨率，源代碼如下：

   Application.Initialize；

   Application.CreateForm(TForm1， Form1)；

   CASE GetDeviceCaps(GetDC(Form1.Handle)，HORZRES) of

   640 ： //對640×480分辨率進行處理的代碼；

   800 ： //對800×600分辨率進行處理的代碼；

   1024： //對1024×768分辨率進行處理的代碼；

   1280： //對1280×1024分辨率進行處理的代碼；

END；