Как узнать частоту обновления монитора?

Дата: 01.01.2007
Автор: p0s0l

function GetDisplayFrequency: Integer; 

var 
 DeviceMode: TDeviceMode; 

begin 
 EnumDisplaySettings(nil, Cardinal(-1), DeviceMode); 
 Result := DeviceMode.dmDisplayFrequency; 
end;