Alt + Tab

[Odrick]

Народ, кто-нить знает, как на время выполнения программы глобально заблокировать сочетание клавиш Alt+Tab?

[Igor_123]

У разработчиков игр под директ спроси

[Odrick]

Хм... А что, Direct это умеет?

[Igor_123]

Нет, там просто большая проблема была, когда прога сворачивалась по алт+таб. Поэтому для них вопрос актуальный. Хотя может уже решили вопрос.

[GSerg]

Давно, очень давно решили...

[Jenizix]

А зачем тебе это нужно??? Можно же сделать чтоб прога никуда не девалась по нажатию альт-таб...

[Odrick]

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

[GSerg]

Проблема не с директом, а с руками.
Поиском никто не пользуется?

http://bbs.vbstreets.ru/viewtopic.php?t=4468

[Odrick]

GSerg ты меня совсем за дурака держишь? Этот топик я читал еще с полгода тому назад Только там речь идет о Direct3D. Я же спрашиваю о DirectDraw

[GSerg]

Тогда объясни мне, в чём глубокая и принципиальная разница? С учётом того, что у directdraw есть как testcooperativelevel, так и setcooperativelevel?

[Odrick]

GSerg М-м-м... Наверное у меня руки таки кривоваты , но как это вкрутить в моем случае пока понять не могу. Ок, вечером выложу код - посмотришь?

[Odrick]

В общем вот код:

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

Option Explicit

Dim dx As New DirectX7
Dim dd As DirectDraw7
Dim rcRect As RECT
Dim ddsd1 As DDSURFACEDESC2
Dim ddsd2 As DDSURFACEDESC2
Dim Primary As DirectDrawSurface7
Dim Back As DirectDrawSurface7
Dim BackPic As DirectDrawSurface7

Private Sub Form_Load()
    Dim bLoop As Boolean
   
    Set dd = dx.DirectDrawCreate("")
    Me.Show
   
    Call dd.SetCooperativeLevel(Me.hWnd, DDSCL_FULLSCREEN Or DDSCL_EXCLUSIVE)
    Call dd.SetDisplayMode(640, 480, 16, 0, DDSDM_DEFAULT)

    ddsd1.lFlags = DDSD_CAPS Or DDSD_BACKBUFFERCOUNT
    ddsd1.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE Or DDSCAPS_FLIP Or DDSCAPS_COMPLEX
    ddsd1.lBackBufferCount = 1

    Set Primary = dd.CreateSurface(ddsd1)

    Dim caps As DDSCAPS2
    caps.lCaps = DDSCAPS_BACKBUFFER
    Set Back = Primary.GetAttachedSurface(caps)

    ddsd2.lFlags = DDSD_CAPS
    ddsd2.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
   
    ddsd2.lHeight = 480
    ddsd2.lWidth = 640
    Set BackPic = dd.CreateSurfaceFromFile("Back.bmp", ddsd2)
   
    rcRect.Left = 0
    rcRect.Top = 0
    rcRect.Right = 640
    rcRect.Bottom = 480
   
    bLoop = True
    Do While bLoop
        Back.BltFast 0, 0, BackPic, rcRect, DDBLTFAST_NOCOLORKEY Or DDBLTFAST_WAIT
        Primary.Flip Nothing, DDFLIP_WAIT
        DoEvents
    Loop
   
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
        Set BackPic = Nothing
        Set Back = Nothing
        Set Primary = Nothing
        Call dd.RestoreDisplayMode
        Call dd.SetCooperativeLevel(Me.hWnd, DDSCL_NORMAL)
        End
    End If
End Sub


И как его заставить восстанавливаться?

[GSerg]

Не вижу в этом коде ни одной попытки вызвать TestCooperativeLevel. Следовательно, адаптировать код D3D ты даже не пытался. Следовательно, сам понимаешь