;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;  CHECKS FOR A RUNNING PROGRAM.                ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function CheckForProcess($exe)
   Dim $processes,$process
   $processes=GetObject("winmgmts:{impersonationLevel=impersonate}!root\cimv2").ExecQuery("select * from Win32_Process")
   For Each $process in $processes
      If $process.Name = $exe
         $CheckForProcess=$CheckForProcess+1
      EndIf
   Next
EndFunction

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;  CHECKS FOR A RUNNING PROGRAM.                ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function CheckForProcess($exe)
   Dim $processes,$process
   $processes=GetObject("winmgmts:{impersonationLevel=impersonate}!root\cimv2").ExecQuery("select * from Win32_Process")
   For Each $process in $processes
      If GetFileVersion($process.ExecutablePath,"OriginalFilename") = $exe
         $CheckForProcess=$CheckForProcess+1
      EndIf
   Next
EndFunction