Lancement unique d'un programme

Rédigé par spheris Aucun commentaire
Classé dans : apprentisssage, divers, gambas 3, terminal, Tutoriel Mots clés : aucun
Bonsoir,
Taoteblue nous livre aujourd'hui une astuce fort interessante.
En effet cette petite routine sert à tester l'existence de votre application dans les taches lancées.
Ainsi, vous ne pourrez pas lancer deux fois votre application.
Voici le code :

PUBLIC SUB Form_Open()
DIM Sortie AS String

EXEC ["pgrep", "-f", "-l", "le_nom_de_mon_programme.gambas"] WAIT TO Sortie

IF Split(Trim$­(Sortie), gb.NewLine).Count > 1 THEN
Message.Info("Programme déjà ouvert", "Fermer")
ME.Close
ELSE

'la suite du programme

ENDIF
END


A bientôt