Enlistar Procesos

[Fann_Lavigne]

Hola:

Soy un programador en VB6 y me gustaria saber la forma(API) con la ke puedo enlistar los precesos en ejecucion de una makina y despues de enlistarlos seleccionar uno y finalizar dicho proceso.

[vbx3m]

Checa este hilo http://www.elguille.info/vb/utilidad.../CerrarApp.htm

[VisualGuallabo]

Busca en la FAQ's de VB6 hay encontraras el codigo.

[Eternal Idol]

Iniciado por vbx3m

Checa este hilo http://www.elguille.info/vb/utilidad.../CerrarApp.htm

¿Tiene eso algo que ver con la pregunta?

Iniciado por Fann_Lavigne

Hola:

Soy un programador en VB6 y me gustaria saber la forma(API) con la ke puedo enlistar los precesos en ejecucion de una makina y despues de enlistarlos seleccionar uno y finalizar dicho proceso.

CreateToolhelp32Snapshot, Process32First, Process32Next, CloseHandle, OpenProcess, TerminateProcess, podes usar esas funciones de la API de Windows para LISTAR los procesos y terminarlos.

[vbx3m]

Iniciado por Eternal Idol

¿Tiene eso algo que ver con la pregunta?

Pues no, me equivoque, tienes razon ese hilo es para enlistar y cerrar aplicaciones no procesos... jejeje la proxima vez tendre que abrir mas los ojos

[Eternal Idol]

Iniciado por vbx3m

Pues no, me equivoque, tienes razon ese hilo es para enlistar y cerrar aplicaciones no procesos... jejeje la proxima vez tendre que abrir mas los ojos

Ventanas pero bueno ...

[vbx3m]

Pos si para ser mas precisos ventanas y/o aplicaciones (visibles)...

[Eternal Idol]

La verdad es que lamentablemente no, aplicaciones es un concepto que no aplica en este ambito, lo que esta en ejecucion es un proceso que tiene una cantidad determinada de ventanas (desde cero a infinito). Si se cierra la ventana principal el proceso puede (y generalmente lo hace) manejar ese evento y terminar el proceso, aunque hay programas que por ejemplo se van a la tray bar y continuan su ejecucion.

[vbx3m]

Esta bien... A lo que me refiero es que si tu haces una aplicación que no aparezca en el taskbar, administrador de tareas y este invisible, sigue siendo una aplicación pero no visible, aunque se siga ejecutando desde el systray con ese codigo no aparece en la lista, ... A eso me referia...

[Eternal Idol]

Justamente porque esa no es una lista de procesos sino de ventanas visibles.

[vbx3m]

Exacto!!!!... A eso me referia.... Por eso habia posteado que me habia equivocado, ese codigo no era para visualizar procesos...

[VisualGuallabo]

Con el codigo que puse en la FAQ's de VB6 te lista los procesos. pero no tiene para finalizarlos. si encuentran la forma de finalizarlo me habizan para listarlos ya les puse el codigo y se los boy a poner aqui tambien.

Codigo:
Private Declare Function CreateToolhelpSnapshot Lib "Kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVallProcessID As Long) As Long

Private Declare Function ProcessFirst Lib "Kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long

Private Declare Function ProcessNext Lib "Kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long

Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)

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 Sub Form_Load()
Dim hSnapShot As Long
Dim uProceso As PROCESSENTRY32
Dim res As Long

hSnapShot = CreateToolhelpSnapshot(2&, 0&)
If hSnapShot <> 0 Then
uProceso.dwSize = Len(uProceso)
res = ProcessFirst(hSnapShot, uProceso)
Do While res
List1.AddItem Left$(uProceso.szExeFile, InStr(uProceso.szExeFile, Chr$(0)) - 1)
res = ProcessNext(hSnapShot, uProceso)
Loop
Call CloseHandle(hSnapShot)
End If
End Sub


solo tienen que insertar un ListBox en el formulario. de name=List1

[Eternal Idol]

La respuesta esta arriba, OpenProcess y TerminateProcess.

[Fann_Lavigne]

Gracias Por la Informacion.....

[MaxExtreme]

VisualGuallabo, la respuesta ya estaba dicha. No pongas códigos completos por favor si la persona que pregunta es capaz de fabricarlos con las indicaciones.

[Fann_Lavigne]

Gracias de todos modos, almenos me ayudaron a saber ke procesos eran...pero hay veces ke si se rekieren los kodigos kompletos, bye, y gracias

[Fann_Lavigne]

Por Cierto, yo tengo el kodigo ke los FINALIZA, pero no todos, los ke son de SYSTEm no los finliza, pero komo dicen, no hay ke poner kodigos kompletos....