Resumen Obtener lista de ventanas abiertas

Mensaje enviado por José Rubí de la Vega <jrubi@ctv.es>

Para ver los titulos y nombres de clase de las ventas de primer nivel
puedes hacer :
En un modulo declaras :
Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam&) As Long
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal
lParam As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Public Function CallBackW(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim Nombre As String, Clase As String, l As Long

Nombre = Space$(256)
l = GetWindowText(hwnd, Nombre, 255)
Nombre = Left$(Nombre, l)
Clase = Space$(256)
l = GetClassName(hwnd, Clase, 255)
Clase = Left$(Clase, l)
Form1.List1.AddItem "Nombre = " + Nombre + ", clase = " + Clase
CallBackW = True
End Function

En un formulario llamado Form1 pones un listbox llamado List1. En un boton pones :
Dim l As Long
List1.Clear
l = EnumWindows(AddressOf CallBackW, 0&)

Y el listbox se llenara con los nombres y clases de las ventanas. Para obtener un hwnd a la ventana puedes usar FindWindow :
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dim hwnd as long
hwnd = FindWindow("NombreDeClase", "Titulo de la ventana")

At 08:12 28/10/99 +0200, you wrote:
>Estoi interesado en saber si es posible obtener los apuntadores ( HWND ) de las
>ventanas que estan actualmente operativas del sistema.

Un saludo.
_________________________________________________
José Rubí de la Vega
E-mail : jrubi@ctv.es
WWW : http://www.ctv.es/USERS/jrubi
Podrás encontrar información sobre VB, las listas vb-esp y visualbasic-esp y un
resumen de los mensajes de las mismas



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com