GetActiveWindow m devuelve 0

[SheKeL_C$]

Código [Seleccionar] Expandir

Public Function VentanaActiva() As String
    Dim hWnd            As Long
   
    hWnd = GetActiveWindow
    If IsWindowVisible(hWnd) Then
        VentanaActiva = WindowTitle(hWnd)
        Exit Function
    End If
End Function

Utilizo esta funcion para que m devuelva el titulo de la ventana. Lo de WindowTitle es otra funcion.... el problema que tengo es que estoy en una carpeta o cuando genero el proyecto o el titulo del visual basic, si k m lo devuelve pero cuando es Firefox o Iexplore no m da el hwnd ( dice q es 0 ). No se donde esta el problema ya que con lo mismo codem como e dixo antes, me funcoina en unas ventanas y en otras no.

[NYlOn]

El problema esta en la funcion GetActiveWindow. Solo funcion para las ventanas que corresponden a un mismo arbol de procesos. Por eso solo funciona en tu proyecto. Lo que tenes que hacer es reemplazar esa API por GetForegroundWindow.
Se usa exactamente igual...


Saludos.-