Na W2K mě prošel následující kód.
procedure TForm1.Button1Click(Sender: TObject);
var dv:TDeviceMode;
begin
dv.dmSize:=SizeOf(dv);
dv.dmDisplayFrequency:=75; // předpoklad: monitor danou frekvenci podporuje!!!
dv.dmFields:=DM_DISPLAYFREQUENCY;
Case ChangeDisplaySettings(dv,0) of
DISP_CHANGE_SUCCESSFUL: ShowMessage('DISP_CHANGE_SUCCESSFUL');
DISP_CHANGE_RESTART : ShowMessage('DISP_CHANGE_RESTART');
DISP_CHANGE_BADFLAGS : ShowMessage('DISP_CHANGE_BADFLAGS');
DISP_CHANGE_FAILED : ShowMessage('DISP_CHANGE_FAILED');
DISP_CHANGE_BADMODE : ShowMessage('DISP_CHANGE_BADMODE');
DISP_CHANGE_NOTUPDATED: ShowMessage('DISP_CHANGE_NOTUPDATED');
end;
end;