求显示器的刷新频率

function GetDisplayFrequency:integer;

var

    DeviceMode:TDeviceMode;

begin

    EnumDisplaySetting(nil,Cardinal(-1),DeviceMode);

    Result :=DeviceMode.dmDisplayFrequency;

end;