Beginner Error Checking Question

[qwiqshot]

Hi

 

Would this be poor for checking to see if three programs are running prior to starting the remainder of ones code?

Func E_C ()
   ; *****************************************************************************
   ; -------------Varify Google Earth Pro is running, if not, Exit----------------
   ; *****************************************************************************
   If Not ProcessExists("Google Earth Pro.exe") Then
       Exit MsgBox (0, "Error", "Google Earth Pro was not found running - Please start Google Earth Pro and restart the process")
    EndIf

   ; *****************************************************************************
   ; -------------------Verify Snagit is running, if not, Exit--------------------
   ; *****************************************************************************
   If Not ProcessExists("SnagIt 7.exe") Then
       Exit MsgBox (0, "Error", "SnagIt 7 was not found running - Please start SnagIt 7 and restart the process")
    EndIf

   ; *****************************************************************************
   ; Create application object or connect to an already running Excel instance
   ; *****************************************************************************
   Local $oExcel = _Excel_Open()
   If Not IsObj($oExcel) Then
       Exit MsgBox(0, "Error", "_Excel_Open()")
   EndIf
EndFunc E_C()

 

Can it be written to check and report if more then one is missing and report on all missing, not just one of the three?

Edited June 18, 2016 by qwiqshot

[Melba23]

qwiqshot,

Something like this should work:

Func E_C()
    Local $sText = ""
    If Not ProcessExists("Google Earth Pro.exe") Then
        $sText &= "Google Earth Pro" & @CRLF
    EndIf

    If Not ProcessExists("SnagIt 7.exe") Then

        $sText &= "SnagIt 7" & @CRLF
    EndIf

    If $sText Then
        Exit MsgBox(0, "Error", $sText & @CRLF & "not found running" & @CRLF & @CRLF & "Please start applications and restart the process")
    EndIf
    
    ; More code
EndFunc

M23