Смена разрешения под XP

[Vovch]

Не могу программно изменить разрешение в XPюше. После запуска программы экоан мигает, и ничего не происходит, сообщений об ошибках тоже не выдается. Кто знает - подскажите, пожалуйста.

ЗЫ: Если вопрос уже поднимался - киньте линк..

[Мика]

Вот держи. У меня под XP работает

'General Declaration
Dim DX As New DirectX7
Dim DD As DirectSound

'In Form
Private Sub Form_Load()
Set DX = New DirectX7
Set DD = DX.DirectDrawCreate("")
DD.SetDisplayMode 1024, 768, 32, 85, DDSDM_DEFAULT Or DDSDM_STANDARDVGAMODE
End Sub

Здесь
X=1024
Y=768
32 bit
85 герц (развертка экрана)

[Мика]

Блин не то послал. Извини. Ща если найду пошлю.

[Мика]

Вот нашел!

Dim DX As New DirectX7
Dim DD As DirectDraw7

Private Sub Form_Load()
Set DX = New DirectX7
Set DD = DX.DirectDrawCreate("")
DD.SetDisplayMode 1024, 768, 32, 85, DDSDM_DEFAULT Or DDSDM_STANDARDVGAMODE
End Sub

[Vovch]

Спасибо, работает=)