Discussion :

[Lung]

Je cherche à ajouter un chemin à la liste de la variable d'environnement PATH.

Suite à ce tutoriel http://castelain.developpez.com/arti...ironnement/#L6, j'ai utilisé les fonctions de l'unité fournie pour ajouter mon chemin à la variable PATH stockée dans la base de registre.
Après avoir redémarré mon poste, mon chemin était effectivement ajouté à la liste, mais je n'avais plus de %SystemRoot%, ni de %SystemRoot%\system32, ... même s'ils figuraient toujours dans le PATH. Plus aucune commandes DOS ne s'exécutaient.

J'ai fini par supprimer (manuellement) mon chemin. J'ai redémarré mon poste, et tout fonctionnait de nouveau.

Je suis sous XP pro. Y a t'il quelque chose d'autre à faire pour ajouter un chemin au PATH (par code Delphi) ?

[Pedro]

Salut
tu as essayé de faire en DOS:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SET PATH=%PATH%;[TonChemin]

de cette façon, ton path s'ajoute au précédents...

[Lung]

Salut
tu as essayé de faire en DOS:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SET PATH=%PATH%;[TonChemin]

de cette façon, ton path s'ajoute au précédents...

En faisant ca, c'est valable tant que ta fenêtre DOS est ouverte.
Moi, je veut modifier la variable système, et pas la variable d'environnement du processus, pour que mon chemin reste.

[Pedro]

En faisant ca, c'est valable tant que ta fenêtre DOS est ouverte.

T'en es vraiment sûr?

[Lung]

Fait le test dans une fenêtre dos.
Puis, regarde dans les propriétés du poste de travail : le nouveau chemin n'y est pas.
Regarde dans une autre fenêtre DOS : il n'y est pas non plus.

[Reisubar]

T'en es vraiment sûr?

Absolument. La modification affecte le processus exécutant et ses fils. La seule manière d'ajouter à l'environnement une nouvelle variable (du moins sous NT), c'est de modifier le registre (cf les fonctions de Pierre).

Lung, quelle fonction de Pierre as tu utilisée pour écrire ta variable ?

[Lung]

Lung, quelle fonction de Pierre as tu utilisée pour écrire ta variable ?

J'ai fais un bout de code de test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
var
   Liste: TStringList;
   sz: String;
begin
   //.
   Liste := TStringList.Create;
   ReadSystemEnvVars(Liste);   // <--- fonction de Pierre
   sz := Liste.Values['Path'];
   Liste.Free;
   ShowMessage(sz);
   sz := sz + ';C:\APP_HMY\MAIA\Paquets';
   SetSystemEnvVar('Path', sz, True);   // <--- fonction de Pierre

[Lung]

Salut
tu as essayé de faire en DOS:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SET PATH=%PATH%;[TonChemin]

de cette façon, ton path s'ajoute au précédents...

Je l'avais testé comme ca, avec Delphi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
var
   sz: String;
begin
   sz := GetEnvironmentVariable('PATH');
   ShowMessage(sz);
   if not AnsiContainsText(sz, 'C:\APP_HMY\MAIA\Paquets') then
   begin
      sz := sz + ';C:\APP_HMY\MAIA\Paquets';
      SetEnvironmentVariable('PATH', PChar(sz));
   end;
   sz := GetEnvironmentVariable('PATH');
   ShowMessage(sz);

Mais, dès que tu ferme l'exe, plus de chemin.

[Lung]

Personne n'a d'idée ?

[Pierre Castelain]

Je ne vois pas ce qui peut poser problème.
Je viens de faire l'essai et cela marche sans soucis. Ta variable PATH est peut-être trop longue ?

[cpdump]

Tu n'as pas oublié un ";" à la fin de ton path ? vérifie bien que tu as un ";" à la fin et pas deux ";" qui se suivent. D'après ton code ce n'est pas bon.

[Lung]

Ta variable PATH est peut-être trop longue ?

Avant que j'ajoute mon chemin, elle faisait 230 caractères.
C'est trop long ?
C'est quoi la limite ?
C'est la même sous NT ?

:

[Lung]

Tu n'as pas oublié un ";" à la fin de ton path ? vérifie bien que tu as un ";" à la fin

Je ne savais pas qu'il fallait en mettre un à la fin.
Avant que je modifie le contenu de ma variable PATH, le dernier chemin n'était pas suivi d'un ;
C'est pour ca que je n'en avait pas mit.

[Lung]

Bon, j'ai retesté avec un ; à la fin, mais ca ne change rien.
Mon chemin s'ajoute bien. Ca pas de problème. Mais, plus aucune commande DOS ne fonctionne ...

[Pierre Castelain]

Essai d'enlever quelques entrées dans ton path pour le faire redescendre en dessous de 255 caractères, juste pour voir.

[Lung]

Essai d'enlever quelques entrées dans ton path pour le faire redescendre en dessous de 255 caractères, juste pour voir.

Effectivement. C'était bien ca le problème ...
Jusqu'à 255 caractères, il ne semble plus y avoir de problèmes.
(Le point virgule final n'a pas l'air indispensable).

J'ai pu supprimer un chemin inutile présent sur mon poste, mais il est évident que je ne peux pas faire ca sur les postes utilisateur.
mon but, à l'origine était que toutes applications présentes sur un poste utilisateur aillent chercher dans mon répertoire les paquets dont elles auraient besoin.

Y a t'il une autre façon de faire que par le PATH ?

:

[/dev/null]

Le point-virgule a la fin n'est pas obligatoire...
Pour ton problème de répertoire, si tu a une architecture réseau basé sur W2K ou + tu devrait pouvoir utiliser le DFS.
Tu peut monté un partage dans une harborescence pour devenir exploitable comme un répertoire...

[Lung]

Pour ton problème de répertoire, si tu a une architecture réseau basé sur W2K ou +

Il y a du NT 4 aussi (il ne doit plus y avoir de 95 ou 98, heureusement ).

tu devrait pouvoir utiliser le DFS.
Tu peut monté un partage dans une harborescence pour devenir exploitable comme un répertoire...

Pas compris.
Tu peux expliquer un peu ...

[/dev/null]

Ben... y'a un service sous W2K (peut être installable sous NT4 ) qui ce nome DFS (Distributed File System). Ce service permet de monté un partage réseau pour s'en servir comme un dossié. Si tout les fichiers que tu veut rendre disponible sont dans le partage \\machine\fichier, tu peut via la consol d'administartion du service DFS monté ce partage dans le répertoire C:\Program Files\Delphi 6 par ex...

[Lung]

Je vois pas bien le rapport avec mon problème ...