Descobrir se um processo (executável) está rodando

[asimoes]

Descobrir se um processo está rodando.

Código: Selecionar todos

   objWMIService := WmiService() 

   colProcesses:= objWMIService:ExecQuery("SELECT * FROM Win32_Process WHERE Caption = 'notepad.exe'")

   For Each objProcess In colProcesses
      MsgInfo(objProcess:Handle +" " +objProcess:Name)
   Next

STATIC FUNCTION WMIService()

   Static oWMI

   Local oLocator

   if oWMI == NIL

      oLocator   := CreateObject( "wbemScripting.SwbemLocator" )
      oWMI       := oLocator:ConnectServer()

   endif

Return oWMI

[Claudio Soto]

En HMG.3.3.0 tenes las funciones:

Código: Selecionar todos

- EnumProcessesID () ---> return array { nProcessID1, nProcessID2, ... }
- GetCurrentProcessId() --> return nProcessID

- GetProcessName ( [ nProcessID ] ) --> return cProcessName
- GetProcessFullName ( [ nProcessID ] ) --> return cProcessFullName