Autor Tema: Ejecucion De Un *.exe (Leído 2596 veces)

juravi · « **en:** Jueves 17 de Febrero de 2005, 22:35 »

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

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 * 260
End Type
Private Declare Function CreateToolhelpSnapshot Lib &#34;kernel32&#34; Alias &#34;CreateToolhelp32Snapshot&#34; (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib &#34;kernel32&#34; Alias &#34;Process32First&#34; (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib &#34;kernel32&#34; Alias &#34;Process32Next&#34; (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib &#34;kernel32&#34; (ByVal hPass As Long)
 
Public Sub GetProcesos(ByRef Tareas() As String)
 
    Dim lSnapShot As Long
    lSnapShot = CreateToolhelpSnapshot(2&, 0&)
    
    If lSnapShot &#60;&#62; 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 &#62; 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

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.

RadicalEd

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

Cyclop

buscalo en www.pscode.com ahi hay buenos ejemplos.

Salu2

Cyclopz

juravi

Hola a todos.

RadicalEd, gracias por el archivo.. esta bn pro. Voy a modificarlo para mi conveniencia.

Cyclop, gracias por la pagina.. manana sabado lo reviso en mi ksa con calma. ya que en la empresa me tienen un poco restringido.

Brroz, si tubieras tiempo y me pudieras explicar tu rutina se te agradeceria.

Saludos.

Brroz

Puedes usar el código en un módulo estándard, módulo de clase o formulario.

Llama al método GetProcesos pasándole como parámetro una matriz de tipo string que habrás declarado previamente. Cuando el método se haya ejecutado, tendrás en la matriz el id de proceso de cada tarea con su correspondiente ejecutable.

Código: Text

 
.
.
.
Dim sProc() As String
GetProcesos sProc
Dim iCta As Integer, iIdx As Integer
iCta = Ubound(sProc)
Form iIdx=0 To iCta - 1
   MsgBox sProc(0, iIdx) & &#34; - &#34; & sProc(1, iIdx)
Next iIdx
.
.
.
 
 

Chao.

SoloCodigo

Autor Tema: Ejecucion De Un *.exe (Leído 2596 veces)

juravi

Ejecucion De Un *.exe

RadicalEd

Re: Ejecucion De Un *.exe

Brroz

Re: Ejecucion De Un *.exe

juravi

Re: Ejecucion De Un *.exe

RadicalEd

Re: Ejecucion De Un *.exe

Cyclop

Re: Ejecucion De Un *.exe

juravi

Re: Ejecucion De Un *.exe

Brroz

Re: Ejecucion De Un *.exe