[Gambas-user] Avoiding multiple instances

[Stefano Palmeri]

And so finally :-) , to avoid multiple instances we could do:

PUBLIC SUB Main()

  DIM sShellOutput AS String
     
  SHELL "pgrep -f " & Application.Args[0] TO sShellOutput
  IF Split(Trim$(sShellOutput), "\n").Count > 1 THEN QUIT 
             
END

Stefano