var
dm: tDEVMODE;
begin
FillChar(dm,SizeOf(dm) ,#0 );
dm.dmSize := sizeof(dm);
EnumDisplaySettings(nil, ENUM_CURRENT_SETTINGS, @dm);
showmessage(inttostr(dm.dmPelsHeight));
showmessage(inttostr(dm.dmPelsWidth));
end;
This is true resolution font scaling will not mess it up