Az aktuális képernyőfelbontás megállapításához a GetSystemMetrics() Windows API függvényt
használhatjuk. Ez a függvény a paramétertől függően a Windows különböző méretbeállításaival illetve
egyéb konfiurációs információkkal tér vissza.

Jelen esetben az alábbi négy paraméter lehet segítségünkre a feladat megoldásában:
SM_CXSCREEN - a teljes képernyő szélességét adja vissza pixelben.
SM_CYSCREEN - a teljes képernyő magasságát adja vissza pixelben.
SM_CXFULLSCREEN - egy teljes méretű ablak kliens-területének teljes szélessége pixelben.
SM_CYFULLSCREEN - egy teljes méretű ablak kliens-területének teljes magasságát adja vissza 
pixelben. (az SM_CYSCREEN értékből levonva az ablakok fejlécmagassága és a Taskbar magassága)

2. Lássunk egy példát a fenti függvény alkalmazására: Az alábbi eljárás egy gomb lenyomására egy
üzenetablakban megjeleníti a képernyőfelbontás aktuális értékeit és egy teljes méretű ablak kliens
-területének maximális értékét.
procedure TForm1.Button1Click(Sender: TObject);
var scrWidth, scrHeight : Integer;
mclWidth, mclHeight : Integer;
begin
scrWidth := GetSystemMetrics(SM_CXSCREEN);
scrHeight := GetSystemMetrics(SM_CYSCREEN);
mclWidth := GetSystemMetrics(SM_CXFULLSCREEN);
mclHeight := GetSystemMetrics(SM_CYFULLSCREEN);
ShowMessage('Képernyőfelbontás: ('+
IntToStr(scrWidth)+ 'x'+
IntToStr(scrHeight)+ ')'+
#13 +
'Max. kliensterület: ('+
IntToStr(mclWidth)+ 'x'+
IntToStr(mclHeight)+ ')');
end;