Я идиот! Убейте меня, кто-нибудь!??

[sad]

Как сделать чтобы форма сворачивала все активные на данный момент приложения(будь-то игры или что другое)
и активизировалась сама?

[Sirik]

Найти все активные окна и применить им
ShowWindow ActiveWindow.hwnd, SW_MINIMIZE,
где ActiveWindow - найденное окно

[Sirik]

Вот тут у меня код один есть, он ищет все окна.

А как получить список тех окон, которые есть только в Панели задач

[Amed]

Была недавно такая тема где-то... Сейчас найду...
http://bbs.vbstreets.ru/viewtopic.php?t=11650

[GM]

Есть АПИ'шка которая минимизуриет все окна, т.е. все это делается в одну строку, только не могу припомнить.

[Sirik]

Есть АПИ'шка которая минимизуриет все окна, т.е. все это делается в одну строку, только не могу припомнить.

А я делаю так: нашёл все открытые окна (те, что на панели задач) и сделал им ShowWindow

Тоже не плохо получается

P.S. Если вспомнишь свою функции - напиши

[GM]

Вспомнил

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

Const BSF_POSTMESSAGE = &H10
Const BSM_APPLICATIONS = &H8
Const SC_MINIMIZE = &HF020
Const WM_SYSCOMMAND = &H112
Private Declare Function BroadcastSystemMessage Lib "user32" (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Command1_Click()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Broadcast a system message
    BroadcastSystemMessage BSF_POSTMESSAGE, BSM_APPLICATIONS, WM_SYSCOMMAND, SC_MINIMIZE, ByVal 0&
End Sub


Вроде работает, не пробывал.

[Sirik]

Станно
А ум меня скрывает все окна, кроме 2 последних открытых.
Интересно с чем это связанно?

[Ramzes]

Есть АПИ'шка которая минимизуриет все окна, т.е. все это делается в одну строку, только не могу припомнить.

Да не похоже что то на одну строку

[GM]

Ладно, а так:

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

Private Declare Function BroadcastSystemMessage Lib "user32" (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Form_Load()
BroadcastSystemMessage &H10, &H8, &H112, &HF020, ByVal 0&
End Sub