Lancement unique d'un programme
Rédigé par spheris
Aucun commentaire
Classé dans : apprentisssage, divers, gambas 3, terminal, Tutoriel
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