ПРОБЛЕМА С ЧАСТОТОЙ ОБНОВЛЕНИЯ ЭКРАНА!!!

[Morfius]

Для того чтобы изменить разрешение экарна, я пользуюсь функцией
ChangeDisplaySettingsEx, разрешение экрана она меняет, но ставит свою частоту обновления экрана. Как мне найти частоту обновления экрана, до того, как моя программа заработала, а потом когда выгружается востановить ее

[Powersoft]

Код: Выделить всё

'Changes the resolution to 640x480 with
'     the current colordepth.
Dim DevM As DEVMODE
'Get the info into DevM
erg& = EnumDisplaySettings(0&, 0&, DevM)
'We don't change the colordepth, because
'     a
'rebot will be necessary
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT 'Or DM_BITSPERPEL
DevM.dmPelsWidth = 640 'ScreenWidth
DevM.dmPelsHeight = 480 'ScreenHeight
'DevM.dmBitsPerPel = 32 (could be 8, 16,
'     32 or even 4)
'Now change the display and check if pos
'     sibleerg& = ChangeDisplaySettings(DevM,
'     CDS_TEST)
'Check if succesfullSelect Case erg&
Case DISP_CHANGE_RESTART
an = MsgBox("You've To reboot", vbYesNo + vbSystemModal, "Info")


If an = vbYes Then
    erg& = ExitWindowsEx(EWX_REBOOT, 0&)
End If
Case DISP_CHANGE_SUCCESSFUL
erg& = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)
MsgBox "Everything's ok", vbOKOnly + vbSystemModal, "It worked!"
Case Else
MsgBox "Mode Not supported", vbOKOnly + vbSystemModal, "Error"
End Select
End Sub