API para saber la aplicacion activa

[MrLake]

Amigos, Espero me puedan ayudar.

Tengo un programa en VB que utiliza la función SetWindowsHookEx, para detectar todo lo que se escribe el la PC, esto ya me funciona bien, pero necesito saber desde que aplicación se dió el teclazo (por ejemplo: word, excel, etc.) , alguien sabe cómo puedo hacerlo.

Gracias.

[Jorge_Mota]

Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

dim cTxt as String, nHand as Long
nHand = GetActiveWindow()
cTxt = String(100, Chr$(0))
GetWindowText nHand, cTxt, 100
cTxt = Left$(cTxt, InStr(cTxt, Chr$(0)) - 1)
messagebox cTxt

Mira si ese codigo te sirve

[MrLake]

Jorge,

El código funciona bien pero solo en el contexto de la aplicación no en el contexto completo de windows, es decir, sabe que VENTANA activa de la aplicación recibió la llamada pero al cambiarse de aplicación el valor de cTxt es nulo independientemente de la ventana activa, se retoma el control a l regresar a la aplicación original.

Si tiene otra idea por favor avísame.

Gracias

[Jorge_Mota]

ok aca vamos, espero que este si funcione
sorry, pero no tengo Visual Basic instalado.


Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
dim cTxt as String, nHand as Long
nHand = GetForegroundWindow()
cTxt = String(100, Chr$(0))
GetWindowText nHand, cTxt, 100
cTxt = Left$(cTxt, InStr(cTxt, Chr$(0)) - 1)
messagebox cTxt

[MrLake]

Estimado Jorge,

Este funciona de maravilla.

Te agradezco muchísimo.

Cualquier cosa cuenta conmigo.

[Jorge_Mota]

me alegra que te funcionara.


ya sabes, a la orden.

Saludos.