千兄,总算给你搞了点出来.我实在没时间了,要下班了,今天约好要出去玩,所以只试了
win2000下的,win98下的应该差不了许多,麻烦各位兄弟试吧.走了,Good Luck!!
function GetDisplayFrequency: Integer;//得到刷新率,照上面YB_unique兄抄的
var
; DeviceMode: TDeviceMode;
begin
; EnumDisplaySettings(nil, Cardinal(-1), DeviceMode);
; Result := DeviceMode.dmDisplayFrequency;
end;
procedure ChangeDisplayFrequency(iFrequency:Integer);//更改刷新率,在Win2000下成功
var
; DeviceMode: TDeviceMode;
begin
; EnumDisplaySettings(nil,Cardinal(-1), DeviceMode);
; DeviceMode.dmDisplayFrequency:=Cardinal(iFrequency);
; ChangeDisplaySettings(DeviceMode,CDS_UPDATEREGISTRY);
end;