Código
Como exemplo vamos criar um projeto no VB2005 do tipo Windows Application e no formulário padrão form1.vb incluir um controle ListBox e um controle Button. Vamos exibir no listbox os processos que estiverem rodando. Para isto inclua o seguinte código no evento Click do botão de comando:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' ----- Exibe todos os processos de mais alto nivel
For Each processo As Process In Process.GetProcesses()
If (processo.MainWindowTitle <> "") Then
ListBox1.Items.Add("Programa: " & processo.MainWindowTitle)
Else
ListBox1.Items.Add("Processo: " & processo.ProcessName)
End If
Next processo
End Sub
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009