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




On Sat, Sep 12, 2009 at 15:50, Johny Provoost <[email protected]> wrote:
> Hi,
>
> Is there a command to check if a program (programed in Gambas) is
> already running?
> I want to avoid that a program is started twice.
>
>
> Johny Provoost
>
>
> ------------------------------------------------------------------------------
> 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
>

------------------------------------------------------------------------------
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

Reply via email to