怎样用代码改变屏幕刷新率

Question

怎样用代码改变屏幕刷新率

Answer 1

var  
   DeviceMode:  TDeviceMode;result:integer;  
begin  
     EnumDisplaySettings(nil,  Cardinal(-1),  DeviceMode);  
     result:=DeviceMode.dmDisplayFrequency;  
     showmessage(inttostr(result)+'hz');  
end;  
var  
   DeviceMode:TDeviceMode;result,iFrequency:integer;  
begin  
     iFrequency:=75;  
     EnumDisplaySettings(nil,Cardinal(-1),  DeviceMode);  
     DeviceMode.dmDisplayFrequency:=Cardinal(iFrequency);  
     result:=ChangeDisplaySettings(DeviceMode,CDS_UPDATEREGISTRY);  
end;var  
   DeviceMode:  TDeviceMode;result:integer;  
begin  
     EnumDisplaySettings(nil,  Cardinal(-1),  DeviceMode);  
     result:=DeviceMode.dmDisplayFrequency;  
     showmessage(inttostr(result)+'hz');  
end; {捕获屏幕刷新率} 
var  
   DeviceMode:TDeviceMode;result,iFrequency:integer;  
begin  
     iFrequency:=75;  
     EnumDisplaySettings(nil,Cardinal(-1),  DeviceMode);  
     DeviceMode.dmDisplayFrequency:=Cardinal(iFrequency);  
     result:=ChangeDisplaySettings(DeviceMode,CDS_UPDATEREGISTRY);  
end; {改变屏幕刷新率}

Answer 2

var  
   DeviceMode:  TDeviceMode;result:integer;  
begin  
     EnumDisplaySettings(nil,  Cardinal(-1),  DeviceMode);  
     result:=DeviceMode.dmDisplayFrequency;  
     showmessage(inttostr(result)+'hz');  
end; {捕获屏幕刷新率} 
var  
   DeviceMode:TDeviceMode;result,iFrequency:integer;  
begin  
     iFrequency:=75;  
     EnumDisplaySettings(nil,Cardinal(-1),  DeviceMode);  
     DeviceMode.dmDisplayFrequency:=Cardinal(iFrequency);  
     result:=ChangeDisplaySettings(DeviceMode,CDS_UPDATEREGISTRY);  
end; {改变屏幕刷新率}