在 Win98 获取当前显示器刷新率的函数(0分)

function CurRate: integer;<br>var<br> &nbsp;DeviceMode: TDeviceMode;<br> &nbsp;I: integer;<br>begin //当前刷新率<br> &nbsp;EnumDisplaySettings(nil, Cardinal(-2), DeviceMode);<br> &nbsp;Result := DeviceMode.dmDisplayFrequency;<br>end;<br>-1: 表示优化，0：表示默认，其他就是自己设置的实际值 &nbsp;<br>该结果值直接作为ChangeDisplaySettings()<br>procedure SetCurRate;<br>var<br> &nbsp;DM: TDeviceMode;<br> &nbsp;I: Word;<br>begin<br> &nbsp;FillChar(DM, Sizeof(DM), 32);<br> &nbsp;ENumDisplaySettings(nil, 0, DM);<br> &nbsp;DM.dmFields := dm_pelsheight or dm_BitsPerPel or dm_DisplayFrequency;<br> &nbsp;DM.dmPelsWidth := 800;<br> &nbsp;DM.dmPelsHeight := 600;<br> &nbsp;DM.dmDisplayFrequency := DWord(CurRate);<br> &nbsp;if ChangeDisplaySettings(DM, 2) = 0 then ChangeDisplaySettings(DM, 1);<br>end;<br><br>的参数即可设置刷新率。

需要源程序的请进