Just another way: PUBLIC FUNCTION pidOf(program AS String) AS Boolean 'checks if a program is running DIM gotpid AS String = "" DIM running AS Boolean = FALSE TRY SHELL "pidof " & program TO gotpid IF gotpid THEN running = TRUE ELSE running = FALSE ENDIF RETURN running END
Usage: IF pidOf("yourProgram") THEN whatever... At least it works for me Cheers Jesus Jussi Lahtinen escribió: > Not very elegant, but works: > > > Dim sOutput As String > > Exec ["pgrep", "-f", "-l", "NameOfYourProgram.gambas"] Wait To sOutput > > If Split(Trim$(sOutput), gb.NewLine).Count > 1 Then > 'Allready running > EndIf > > > Jussi ------------------------------------------------------------------------------ Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user