如何获取显示器的刷新频率？

uses
  Windows, SysUtils;

...

// 这个函数返回的显示刷新率是以Hz为单位的
function GetDisplayFrequency: Integer;
var
  DeviceMode: TDeviceMode;

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