Minimizar Programas

[Joaozava]

alguém sabe me dizer como faço pra minimizar todos os programas que estão em execução no windows (ie, winexplorer, etc) e deixar somente um form meu visivel???

vlw!

[Graymalkin]

Acredito que com as APIs FindWindow ou EnumWindows você poderá obter todas as janelas disponíveis e depois usar a API SetWindowPlacement para defini-las como minimizadas. Você acha exemplos dessas APIs no API-Guide: http://www.mentalis.org/

Abraços,

Graymalkin

[Joaozava]

vlw Graymalkin.

Bom eu fiz assim....

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_COMMAND As Long = &H111
Private Const MIN_ALL As Long = 419
Private Const MIN_ALL_UNDO As Long = 416

'funcao que minimiza
Public Sub MinimizeAll()

Dim lngHwnd As Long

lngHwnd = FindWindow("Shell_TrayWnd", vbNullString)
Call PostMessage(lngHwnd, WM_COMMAND, MIN_ALL, 0&)

End Sub

Acontece que minimiza todas as janelas, menos a do prompt do dos, que no momento da execução do programa é aberta pra executar alguma tarefas, mas eu queria justamente que fosse a do prompt que fosse minimizada...

alguém sabe o que posso fazer???

[Graymalkin]

Bom, aqui no XP, com o seu código, a janela do prompt minimiza sim. Veja o teste que fiz:

    Shell "cmd"
    MinimizeAll

Qual sistema você usa aí?

Abraços,

Graymalkin

[Joaozava]

beleza, vlw Graymalkin ..... já consegui aqui ......

falou!