Переключение между окнами.

[Ruslan2000]

Подскажите, пожалуйста, как можно реализовать переключение между окнами WIN XP приложений. Возможно есть какая нибудь Win Api функция которая делает активным окно заданного приложения?

[Lumen]

SetActiveWindow, SetForegroundWindow.

[Ruslan2000]

ок.спс.

[Ruslan2000]

С консольным приложением (игрой) ни та ни другая не работает. Кнопка на панели внизу показывает что нужное приложение стало активным, но окно этого приложения на экране не появляется.

[Lumen]

Ruslan2000
Не знаю, я в таймере написал SetForegroundWindow Me.hwnd, скомпилил, запустил. Потом запустил cmd, ессно консоль встала поверх моей проги, но через секунду (интервал у таймера был 1 секнда) снова сверху оказалась моя прога.
Но если у тя не работает, посмотри ещё функу BringWindowToTop.

[Ruslan2000]

Мне надо какраз наоборот.
Попробуй сделать так чтобы свернутое окно игры развернулось поверх твоей программы.
С BringWindowToTop тоже ничего не получается. Вероятно с некоторыми процессами все это не работает.

Пришлось изгалятся:

For ddr123 = 1 To 30
ActiveWindowHandle = GetForegroundWindow&()
wowWindowHandle = FindWindow(vbNullString, "WindowNAme")
If ActiveWindowHandle <> wowWindowHandle Then
keybd_event VK_Alt, 0, 0, 0
For xx = 0 To ddr123
keybd_event VK_TAB, 0, 0, 0
keybd_event VK_TAB, 0, KEYEVENTF_KEYUP, 0
Next
keybd_event VK_Alt, 0, KEYEVENTF_KEYUP, 0
Sleep 1000
Else
ddr123 = 31
End If
Next

[Gemini]

Я тут усебя нашел в кирпичах,посмотри:
Передаваемый параметр хендл окна которое нужно поставить в перёд всех окон.

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

Public Sub ForegroundWindow(ByVal hwnd As Long)
Dim lForeThreadID As Long
Dim lThisThreadID As Long
Dim lReturn       As Long

If hwnd <> GetForegroundWindow() Then
    If IsIconic(hwnd) Then
       Call ShowWindow(hwnd, SW_RESTORE)
    Else
        ShowWindow hwnd, SW_MINIMIZE
       Call ShowWindow(hwnd, SW_SHOW)
    End If
 
    lForeThreadID = GetWindowThreadProcessId(GetForegroundWindow, ByVal 0&)
    lThisThreadID = GetWindowThreadProcessId(hwnd, ByVal 0&)
   

    If lForeThreadID <> lThisThreadID Then
     
        Call AttachThreadInput(lForeThreadID, lThisThreadID, True)
       
        lReturn = SetForegroundWindow(hwnd)
   
        Call AttachThreadInput(lForeThreadID, lThisThreadID, False)
    Else
       lReturn = SetForegroundWindow(hwnd)
    End If
   
End If
End Sub



[Ruslan2000]

Спасибо. ShowWindow решило проблему. Просто с некоторыми программами, некоторые вин апи криво работают.