Identificar Programa

[rikmendes]

Ok pessoal, Graymalkin me deu uma dica de utilizar o Enumwindows, mas não achei nenhuma documentação para vb só para C++. E agora, alguém pode me ajudar:

Após o Windows inicializado, como identificar qualquer programa q seja aberto (word, Exel , *.exe)

Obrigado.

[Guest Cássio]

Você já tentou a API Findwindow? Sabe como ela funciona?

[Graymalkin]

Segue um exemplo:

'Coloque isso em um módulo

Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long,
ByVal lParam As Long) As Boolean
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA"
(ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long)
As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As
Boolean
    Dim WC_NAME As String
    WC_NAME = Space$(255)
    GetClassName hwnd, WC_NAME, 100
    WC_NAME = Trim(WC_NAME)
    Debug.Print WC_NAME
    EnumWindowsProc = True
End Function

'Coloque isso no evento Click de um botão

EnumWindows AddressOf EnumWindowsProc, ByVal 0&

Veja que na janela Immediate aparecerão os nomes das classes das janelas

abertas.

Abraços,

Graymalkin

[rikmendes]

Segue um exemplo:

'Coloque isso em um módulo

Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long,
ByVal lParam As Long) As Boolean
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA"
(ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long)
As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As
Boolean
    Dim WC_NAME As String
    WC_NAME = Space$(255)
    GetClassName hwnd, WC_NAME, 100
    WC_NAME = Trim(WC_NAME)
    Debug.Print WC_NAME
    EnumWindowsProc = True
End Function

'Coloque isso no evento Click de um botão

EnumWindows AddressOf EnumWindowsProc, ByVal 0&

Veja que na janela Immediate aparecerão os nomes das classes das janelas

abertas.

Abraços,

Graymalkin

Valeu!