Delphi7中修改屏幕刷新率的方法

日志标题：Delphi7中修改屏幕刷新率的方法
发表时间：2006-10-23 18:24:00
//该过程用于设置显示器刷新率****************************************************
procedure SX(SX:integer);
var
  DeviceMode:TDeviceMode;result,iFrequency:integer;
begin
  iFrequency:=sx;
  EnumDisplaySettings(nil,Cardinal(-1),     DeviceMode);
  DeviceMode.dmDisplayFrequency:=Cardinal(iFrequency);
  result:=ChangeDisplaySettings(DeviceMode,CDS_UPDATEREGISTRY);
end;
//****************************************************************************
其中参数SX为刷新率大小,调用方法如下：
……
SX(75);
……