Hello Jussi, wery well, yes I tried it and it works fine !
Mine works too, but yours it's shorter and more simple than mine ! I didn't know "pgrep"... thank you ! Optime ! I want to say to abbat.81 that the operation principle is substantially the same: "picking" the PID number in the string returned by "pgrep" (Jussi's solution: very good) or "grep" (my...long solution). Bye Vuott --- Mar 13/3/12, Jussi Lahtinen <jussi.lahti...@gmail.com> ha scritto: > Da: Jussi Lahtinen <jussi.lahti...@gmail.com> > Oggetto: Re: [Gambas-user] R: Prog.gambas only one process > A: "mailing list for gambas users" <gambas-user@lists.sourceforge.net> > Data: Martedì 13 marzo 2012, 21:33 > 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 > ------------------------------------------------------------------------------ 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
