Ola

Estava con un tempito y acabo de hacerte esta funcion:

En un modulo:

Código:

Option Explicit

Public Declare Function CreateToolhelp32Snapshot Lib "kernel32.dll" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Public Declare Function Process32First Lib "kernel32.dll" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function Process32Next Lib "kernel32.dll" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long

Public Const TH32CS_SNAPPROCESS = &H2
Public Const MAX_PATH As Integer = 260

Public 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 * MAX_PATH
End Type

Public Function CheckProcess(ByVal sProcess As String) As Boolean
Dim uProcess As PROCESSENTRY32
Dim hSnapshot As Long
Dim lRet As Long
CheckProcess = False
hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
uProcess.dwSize = Len(uProcess)
lRet = Process32First(hSnapshot, uProcess)
Do While lRet
If Left(uProcess.szExeFile, InStr(1, uProcess.szExeFile, vbNullChar) - 1) = sProcess Then
CheckProcess = True
Exit Function
End If
lRet = Process32Next(hSnapshot, uProcess)
Loop
Call CloseHandle(hSnapshot)
CheckProcess = False
End Function

En un form:

Código:

Option Explicit

Private Sub Command1_Click()
If CheckProcess(Text1.Text) = True Then
MsgBox "Yes"
Else
MsgBox "No"
End If
End Sub

En el text1 solo tienes k poner el nombre del proceso k kieres averiguar se esta corriendo.

Espero k te sirva.

Salu2

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Noviembre 18, 2008, 08:14:39