Procesos

"Paul P. Garcia" preguntó:

Como puedo obtener el:
1. ID de un proceso

p(I).Id.ToString

2. Titulo de la venta

p(I).MainWindowTitle

3. Nombre del Archivo

p(I).MainModule.FileName

Para obtener la ruta del archivo, entiendo que el usuario deberá disfrutar
de una cuenta con los preceptivos permisos. Te advierto asimismo, que
algunos procesos no se pueden enumerar, por ejemplo, los procesos «System» e
«Idle», al menos, esa es a la conclusión que he llegado después de efectuar
una prueba.

Un saludo


Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Gracias.
Lo he modificado de la siguiente forma.

Imports System

Imports System.Diagnostics

Imports System.ComponentModel

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim p As Process() = Process.GetProcesses()

Dim I As Integer

TextBox1.Text = "Numero de procesos= " & p.Length & vbCrLf

For I = 0 To p.Length - 1

TextBox1.Text &= I & "=" & p(I).ProcessName & " | " & p(I).Id.ToString & " |
" & p(I).MainWindowTitle & " | "

Try

TextBox1.Text &= p(I).MainModule.FileName & vbCrLf

Catch ex As Exception

'Existe una excepcion en p(I).MainModule.FileName para "ldle"

End Try

Next I

End Sub

End Class