Programación General > Visual Basic 6.0 e inferiores

 Ejecucion De Un *.exe

(1/2) > >>

juravi:
:devil:
Hola a tod@s.
Alguno sabe o tiene una rutina que detecte si un ejecutable esta en funcionamiento.
 :comp:
Saludos.

RadicalEd:
Hola juravi, busca en el foro por lista de procesos, creo que hay unos posts acerca de eso, tengo unas rutinas por ahi, pero las tengo en la casa, dame tiempo y las busco.
Ok Chao.

Brroz:
Hola.

Seguramente esto te sirva:
En una dimensión devuelve el pId y en otra el ejecutable.


--- Código: Text --- Option Explicit Private Type PROCESSENTRY32    dwSize As Long    cntUsage As Long    th32ProcessID As Long    th32DefaultHeapID As Long    th32ModuleID As Long    cntThreads As Long    th32ParentProcessID As Long    pcPriClassBase As Long    dwFlags As Long    szExeFile As String * 260End TypePrivate Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As LongPrivate Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As LongPrivate Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As LongPrivate Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long) Public Sub GetProcesos(ByRef Tareas() As String)     Dim lSnapShot As Long    lSnapShot = CreateToolhelpSnapshot(2&, 0&)        If lSnapShot <> 0 Then        Dim Proceso As PROCESSENTRY32        Proceso.dwSize = Len(Proceso)        Dim lRc As Long, lCta As Long        lRc = ProcessFirst(lSnapShot, Proceso)        Do While lRc            lCta = lCta + 1            If lCta > 1 Then                ReDim Preserve Tareas(2, lCta)            Else                ReDim Tareas(2, 1)            End If            Tareas(0, lCta - 1) = Proceso.th32ProcessID            Tareas(1, lCta - 1) = Left(Proceso.szExeFile, InStr(Proceso.szExeFile, Chr(0)) - 1)            lRc = ProcessNext(lSnapShot, Proceso)        Loop        CloseHandle lSnapShot    End If End Sub  
Chau.

juravi:
:devil:
Hola a todos,
Brroz gracias por la rutina, pero me da pena desirlo.. no se usarla.. me puedes explicar donde usarla.. La puse en un formulario, luego en un modulo y nada.
RadicalEd si me puedes proporsionar tu rutina tambien te lo agradeceria..
Saludos. :hola:

RadicalEd:
Mira este Zip, sirve para ver los procesos, es creado por guille.
Ojala te sirva.
Chao

Navegación

[0] Índice de Mensajes

[#] Página Siguiente