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
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
