Hello,
can someone please help me to change isExeRunning to uppercase.
If your exe ist stored like "xTest.exe" in a folder and you call from a program winexec("XTEST.exe") IsExeRunning does not detect the running xTest.exe.
Thanks in advance and best regards,
Otto
HB_FUNC( ISEXERUNNING ) // ( cExeNameCaseSensitive ) --> lResult
{
HANDLE hMutex = CreateMutex( NULL, TRUE, ( LPTSTR ) hb_parc( 1 ) );
hb_retl( GetLastError() == ERROR_ALREADY_EXISTS );
ReleaseMutex( hMutex );
}
Function Probar()
Local lcExeName := "notepad.exe"
? IsExeRunning( lcExeName, )
Return nil
FUNCTION IsExeRunning(tcName, lTerminate)
Local oLocator
Local oWMI
Local oProcesses
Local oProcess
Local lIsRunning
DEFAULT lTerminate := .F.
oLocator := CREATEOBJECT("WBEMScripting.SWBEMLocator")
oWMI := oLocator:ConnectServer()
oWMI:Security_:ImpersonationLevel := 3
oProcesses = oWMI:ExecQuery([SELECT * FROM Win32_Process WHERE Name = '] + tcName + ['])
lIsRunning = .F.
IF oProcesses:Count > 0
FOR EACH oProcess in oProcesses
lIsRunning := .T.
IF lTerminate
oProcess:Terminate(0)
ENDIF
Next
ENDIF
RETURN lIsRunningoLocator := CREATEOBJECT("WBEMScripting.SWBEMLocator")
oWMI := oLocator:ConnectServer()
oWMI:Security_:ImpersonationLevel := 3
oProcesses = oWMI:ExecQuery([SELECT * FROM Win32_Process])
IF oProcesses:Count > 0
FOR EACH oProcess in oProcesses
AAdd( aProcesos, { oProcess:Name, oProcess:Handle } )
Next
ENDIF
nLen := Len( aProcesos )
For n = 1 to nLen
if lower( tcName ) == lower( aProcesos[ n ][ 1 ] )
nPos := n
endif
if !empty( nPos )
n := nLen + 1
endif
Next x
if !empty( nPos )
uHandle := aProcesos[ n ][ 2 ]
? uHandle, Valtype( uHandle ) // Imprime 5900 , "C" por ejemplo
endif
Return uHandle