function GetFrequency:integer;
var lpDevMode:TDeviceMode;
begin
FillChar(lpDevMode, SizeOf(TDeviceMode), 0);
lpDevMode.dmSize := SizeOf(TDeviceMode);
EnumDisplaySettings(nil, ENUM_CURRENT_SETTINGS, lpDevMode);
Result:=lpDevMode.dmDisplayFrequency;
end;
试试看看
