RE:Detectar aplicaciones activas
Esto lo tome de las paginas de Harvey Triana si no mal recuerdo:
Option Explicit
Global VGUser, VGPassword, VGSessionID As String
´Declaración de Funciones para tomar las listas de tareas
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
´Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
´ FUNCION : Lee las ventanas activas y determina si el CUSTOMER ADMIN ESTA CORRIENDO!
Function LeerTaskList(strVentana As String) As Boolean
Const GW_HWNDFIRST = 0
Const GW_HWNDLAST = 1
Const GW_HWNDNEXT = 2
Const GW_HWNDPREV = 3
Const GW_OWNER = 4
´Asignar a MiControl (Listx) las tareas activas...
Dim CurrWnd As Long
Dim Length As Long
Dim ListItem As String
Dim hwndDlg As Long
strVentana = UCase(RTrim(strVentana))
´Con GW_HWNDFIRST, lee todas las ventanas,
´así se puede guardar cualquier ventana abierta aunque
´no se minimice.
´Con GW_OWNER, si una ventana se activa y se termina,
´sin minimizar, no se guarda esa ventana como ab