Código
- Crie um projeto do tipo Windows Application
-Crie um formulário com um nome qualquer (No exemplo inseri o nome de frmProcessos.vb)
-No formulário, insira uma listBox como um nome qualquer (no exemplo irem inserir o nome de lstProcessos.
-Insira um Button com a legenda "Listar Processos" e com qualquer nome (no exeplore irá aparecer o nome btnListaProcessos
- Você deve inserir no botão btnListaProcessos o seguinte código:
_______________________________________________________________________
'------Exibe todos os processos de mais alto nível
For Each strProcesso as Process In Process.GetProcess()
If (strProcesso.MainWindowTitle<>"") Then
lstProcessos.Itens.add("Programa: " & strProcesso.MainWindowTitle)
Else
lstProcessos.Itens.Add("Processo: " & strProcesso.ProcessName)
End If
Next strProcesso
_______________________________________________________________________
-Obs.: *Você pode inserir o código acima no procedimendo Load do fomulário (ou em qualquer outro procedimento)
* Você pode criar uma listBox para processos e outra para programas, basta alterar uma dos nomes lstProcessos contidas no código e inserir o nome de outra lstBox.
-Até outra dica.
ENVIADO POR: Felipe Ferreira da Silva
E-Mail. felipe.rk@hotmail.com
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009