Entonces? No te ayudamos con este?
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Novlucker en 15 Julio 2009, 17:37 PM
Y que es lo que tienes para estos ejercicios hasta el momento? Es en modo consola?
A mi personalmente no me parece que sea para un exámen final, eso es bastante básico
Saludos
Public Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long ' This process
th32DefaultHeapID As Long
th32ModuleID As Long ' Associated exe
cntThreads As Long
th32ParentProcessID As Long ' This process's parent process
pcPriClassBase As Long ' Base priority of process threads
dwFlags As Long
szExeFile As String * 260 ' MAX_PATH
End Type
Dim txtprocess() As String
Dim pathrv As String
Dim path As String
path = List1.List(List1.ListIndex)
pathrv = StrReverse(path)
If pathrv <> "" Then
txtprocess = Split(pathrv, "\")
Text1.Text = StrReverse(txtprocess(0))
Else
MsgBox "No se encuentra proceso"
End If