Programme en cours.

Nombre de messages : 1558 Date d'inscription : 19/01/2014

Bonjour.

Est-il possible de connaître le nom du fichier ".bas" en cours, à partir de lui-même ?
Merci de votre aide.

Sujet: re Dim 18 Oct 2015 - 9:32

Heu...comment veux tu connaitre ce qui n' existe pas encore ?
Laughing

Tu peux créer une variable $ qui en contient le nom et te le rappeler en cours en rappelant la variable...
...je ne vois que çà. Wink

Nombre de messages : 1558 Date d'inscription : 19/01/2014

Bonjour.

Lors de l'exécution d'un programme, j'ai besoin de connaître le nom de celui-ci et le retourner dans une variable.

Je pense que cela doit être possible en lisant les processus en cours, mais je ne sais pas comment faire.

Merci.

Sujet: re Dim 18 Oct 2015 - 10:14

En ligne de commande, tu as TASKLIST pour connaitre tous les processus en cours.

Sujet: Re: Programme en cours. Dim 18 Oct 2015 - 12:11

Essaie ceci:

Code:: message param_value$(0)

Ceci te donne le nom et le chemin de l'exécutable en cours d'exécution. Il y a de fortes chances que ce soit le même que celui du source, sauf si tu as généré un EXE et si tu l'as renommé.

Nombre de messages : 1558 Date d'inscription : 19/01/2014

Bonjour.

Merci Klaus.

Mais "param_value$" me donne le chemin d'accès à "Panoramic.exe", et non pas celui du programme en cours.

Sujet: Re: Programme en cours. Dim 18 Oct 2015 - 13:41

C'est parce que tu l'exécutes dans l'éditeur Panoramic ! Essaie de générer l'EXE (menu fichiers, option exécutable), puis lance l'exécutable.

Dans l'interpréeur, tu n'as aucun moyen de connaître le nom du module source utilisée. Je peus seulement appuyer l'idée déjà émise plus haut: définir une variable dans le programme qui serait chargée en début de programme par une chaîne de caractères identifiant le modue. Désolé.

Sujet: Re: Programme en cours. Dim 18 Oct 2015 - 15:23

Salut tout le monde

Voici une procédure pour déterminer si un programme (dont le nom est transmis comme paramètre) est oui ou non en cours d’exécution.
C’est la commande TAKLIST de l’invite de commande qui fait le boulot.

Si ça peut vous rendre service …

Code:: rem ============================================================================
rem Déterminer si un programme est en cours d exécution ou pas.
rem Appel : Is_Program_Running(program$)
rem Le paramètre chaîne de caractères program$ contient le programme à tester
rem
rem On fait appel à la commande de l invite de commande TASKLIST dans l une
rem de ses syntaxes
rem ============================================================================

Is_Program_Running("panoramic.exe")
Is_Program_Running("blablabla.exe")

terminate : end
rem ============================================================================
SUB Is_Program_Running(p$)
   dim_local q$,t$
   q$ = chr$(34)
   execute_wait "cmd /c tasklist /svc /fi "+q$+"imagename eq " + p$ +q$+ "| clip"
   t$ = clipboard_string_paste$

   if left$(t$,11) = "Information"
   message "Aucun " + p$ +" n'est en cours d'exécution"
   else
   message p$ +" est en cours d'exécution"
   end_if
END_SUB
rem ============================================================================

Supposons qu’on ait crée un programme TEST.BAS
On en fait un exécutable TEST.EXE
On veut savoir si TEST.EXE est oui ou non en cours d’exécution.
L’appel sera :

Code:: Is_Program_Running("test.exe")

» Problème du programme en cours devant/derrière autre progr.
» fermer le programme qui lance un autre programme
» Objet en cours
» Cours Panoramic
» Problèmes en cours.