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