當我們需要獲取所運行程序時計算機的分辨率時，有兩種方法：①可以通過訪問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；