This is code that I use: Dim sOutput As String
Exec ["pgrep", "-f", "-l", "NameOfYourProgram.gambas"] Wait To sOutput If Split(Trim$(sOutput), gb.NewLine).Count > 1 Then Quit Endif Jussi On Tue, Mar 13, 2012 at 03:29, Ru Vuott <vu...@yahoo.it> wrote: > My suggestion: > > <<<<<< > > Public Sub Form_Open() > > Dim index As String > Dim plura As String[] > Dim a, b, c As Integer > > Shell "ps -aux | grep " & "aaaaaaaaaaaaaaaa" To index > > > plura = Split(index, " ") > > c = plura.Count > > For a = 0 To c - 1 > > > If Right(plura[a], 20) Like "*.gambas*" Then > > For b = a To 100 > > > Try Shell "kill " & plura[b] > Next > Endif > > > Next > > End > > >>>>>> > > > bye > > Vuott > > > > > > --- Mar 13/3/12, abbat <abbat...@mail.ru> ha scritto: > > > Da: abbat <abbat...@mail.ru> > > Oggetto: [Gambas-user] Prog.gambas only one process > > A: gambas-user@lists.sourceforge.net > > Data: Martedì 13 marzo 2012, 00:44 > > > > How to allow to run only one copy of prog.gambas? > > I tried to: > > Shell ["killall", "prog.gambas"] > > on form open... > > But there is no such a process when prog.gambas is running/ > > > > > > -- > > View this message in context: > http://old.nabble.com/Prog.gambas-only-one-process-tp33491262p33491262.html > > Sent from the gambas-user mailing list archive at > > Nabble.com. > > > > > > > ------------------------------------------------------------------------------ > > Try before you buy = See our experts in action! > > The most comprehensive online learning library for Microsoft > > developers > > is just $99.99! Visual Studio, SharePoint, SQL - plus HTML5, > > CSS3, MVC3, > > Metro Style Apps, more. Free future releases when you > > subscribe now! > > http://p.sf.net/sfu/learndevnow-dev2 > > _______________________________________________ > > Gambas-user mailing list > > Gambas-user@lists.sourceforge.net > > https://lists.sourceforge.net/lists/listinfo/gambas-user > > > > > ------------------------------------------------------------------------------ > Keep Your Developer Skills Current with LearnDevNow! > The most comprehensive online learning library for Microsoft developers > is just $99.99! Visual Studio, SharePoint, SQL - plus HTML5, CSS3, MVC3, > Metro Style Apps, more. Free future releases when you subscribe now! > http://p.sf.net/sfu/learndevnow-d2d > _______________________________________________ > Gambas-user mailing list > Gambas-user@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/gambas-user > ------------------------------------------------------------------------------ Keep Your Developer Skills Current with LearnDevNow! The most comprehensive online learning library for Microsoft developers is just $99.99! Visual Studio, SharePoint, SQL - plus HTML5, CSS3, MVC3, Metro Style Apps, more. Free future releases when you subscribe now! http://p.sf.net/sfu/learndevnow-d2d _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user
