[D6] Modifier variable environnement système !?

Version imprimable

17/05/2005, 08h52
Lung

[D6] Modifier variable environnement système !?

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) ?
17/05/2005, 09h15
Pedro
Salut
tu as essayé de faire en DOS:
Code:

1 2 SET PATH=%PATH%;[TonChemin]
de cette façon, ton path s'ajoute au précédents...
17/05/2005, 09h17
Lung
Citation:
Envoyé par Pedro204

Salut
tu as essayé de faire en DOS:

Code:

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.

:roll:
17/05/2005, 09h20
Pedro

Citation:

Envoyé par Lung

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

T'en es vraiment sûr?
17/05/2005, 09h28
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.

:cry:
17/05/2005, 09h54
Reisubar

Citation:

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 ?

Citation:

Envoyé par Reisubar

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

J'ai fais un bout de code de test :

Code:

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

Citation:
Envoyé par Pedro204
Salut
tu as essayé de faire en DOS:
Code:

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:

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.

:(

17/05/2005, 13h42
Lung

Personne n'a d'idée ?

:hola:
17/05/2005, 18h35
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 ?
17/05/2005, 19h37
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.
18/05/2005, 08h20
Lung

Citation:

Envoyé par Pierre Castelain

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 ?

:roll: :?:
18/05/2005, 08h23
Lung

Citation:

Envoyé par cpdump

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.
18/05/2005, 08h53
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 ...

:cry: :bug:
18/05/2005, 09h16
Pierre Castelain

Essai d'enlever quelques entrées dans ton path pour le faire redescendre en dessous de 255 caractères, juste pour voir.
18/05/2005, 09h49
Lung

Citation:

Envoyé par Pierre Castelain

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 ... :arf:
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. :(
:arrow: 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 ?

:?:
18/05/2005, 09h57
/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...
18/05/2005, 10h14
Lung

Citation:

Envoyé par /dev/null

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 :wink: ).

Citation:

Envoyé par /dev/null

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

Pas compris. :oops:
Tu peux expliquer un peu ...
18/05/2005, 10h38
/dev/null

Ben... y'a un service sous W2K (peut être installable sous NT4 :oops:) 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...
18/05/2005, 10h51
Lung

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

:koi:
18/05/2005, 16h20
Lung

Citation:

Envoyé par Lung

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

:?:

Personne n'a d'autres idées ?

:hola:
18/05/2005, 17h14
Mac LAK

Citation:

Envoyé par Lung

Personne n'a d'autres idées ?

Une seule : en général, quand j'arrive devant une infaisabilité, je remets en cause, et dans cet ordre :
- Mon implémentation (=est-ce bien fait ?),
- Ma conception (=est-ce que j'ai pris la bonne solution ?),
- La spécification (=ai-je bien compris le besoin ?),
- Les besoins (=est-ce réellement nécessaire ?).

En cas de problème avéré, je reprends l'étape incriminée, et celles qui en découlent bien sûr... Au bilan final, je ne crois pas être jamais tombé sur quelque chose de réellement nécessaire et infaisable... ;-)

Dans ton cas, les deux premiers me semblent plus ou moins hors de cause, étant donné la simplicité du code et de la fonction.
Donc, on en arrive au point qui fâche : Pourquoi as-tu besoin d'ajouter un chemin au PATH ?
18/05/2005, 17h27
Lung

Citation:

Envoyé par Mac LAK

Donc, on en arrive au point qui fâche : Pourquoi as-tu besoin d'ajouter un chemin au PATH ?

Bin, pour indiquer à toutes mes autres applications où trouver les paquets dont elles auront besoin.

:wink:
18/05/2005, 17h45
edam

sur le meme poste ou dans un seul (serveur)
18/05/2005, 17h51
Lung

Citation:

Envoyé par edam

sur le meme poste ou dans un seul (serveur)

Sur le même poste.
Mais, ca doit être fait chez tous les utilisateurs. C'est pour ca que je dois faire un bout de code Delphi pour automatiser ca.
18/05/2005, 17h56
Mac LAK

Citation:

Envoyé par Lung

Bin, pour indiquer à toutes mes autres applications où trouver les paquets dont elles auront besoin.

Ben mets une clé spécifique à toi tout seul dans la base de registre, tout simplement...

Ex : HKLM\Software\TheLungCompany\Packages\Path=C:\\Program Files\\TheLungCompany\\Packages\\Bin

Enfin, j'dis ça, j'dis rien... :mrgreen:
18/05/2005, 18h00
Lung

Comment mes applications pouront deviner quelle clef utiliser pour savoir où se trouve les paquets et autre DLL ?
Je ne comprend pas ...

:koi:
18/05/2005, 18h17
Mac LAK

Citation:

Envoyé par Lung

Comment mes applications pouront deviner quelle clef utiliser pour savoir où se trouve les paquets et autre DLL ?

Ben ce sont tes applications, non ? Et toi, tu sais quelle est la clé à utiliser, n'est-ce pas ?
Donc, tu peux lire cette clé au démarrage du programme, et préfixer tes accès explicitement par ce chemin plutôt que de laisser le système (via PATH) se dépatouiller pour retrouver tes fichiers...

Autre solution : Connaissant le nom d'au moins une DLL, "chercher" au démarrage de l'application, sur les disques locaux, ce fichier et noter son répertoire : les autres DLL/packages sont dans le même.

Encore une autre solution : copier tes DLL dans C:\Windows\System32.

Tu vois le principe ?
18/05/2005, 18h33
edam

Citation:

Envoyé par Lung

Comment mes applications pouront deviner quelle clef utiliser pour savoir où se trouve les paquets et autre DLL ?
Je ne comprend pas ...

:koi:

:zzz:
j'ai déja vu se type de question , qulqu'un qui cherche ces spadrille qui son à ces pattes
18/05/2005, 18h42
Reisubar

Citation:

j'ai déja vu se type de question , qulqu'un qui cherche ces spadrille qui son à ces pattes

?

Il est tout à fait légitime de vouloir installer ses dépendances dans un répertoire qui n'est pas celui de Windows. La méthode de Mac Lak est tout à fait justifiée dans ce cas et ne pose pas de problèmes si les différentes dépendances connaissent bien la bonne et même clé du registre indiquant le répertoire cible.
18/05/2005, 19h20
edam

regarde:http://www.developpez.net/forums/viewtopic.php?t=343006
la aussi pedro essaye de cherche si il a aplé destroy :bug:
19/05/2005, 08h08
Lung

Citation:

Envoyé par Mac LAK

Ben ce sont tes applications, non ? Et toi, tu sais quelle est la clé à utiliser, n'est-ce pas ?
Donc, tu peux lire cette clé au démarrage du programme, et préfixer tes accès explicitement par ce chemin plutôt que de laisser le système (via PATH) se dépatouiller pour retrouver tes fichiers...

Utiliser ma propre clef, je suis d'accord.

Là où je ne vois pas comment faire, c'est quand mes exe auront besoin des paquets VCL, RTL, DBRTL, ...
Comment dire, dans mes applications, que si elles ont besoin de ces paquets, c'est tel chemin ?

:koi:
19/05/2005, 19h43
Mac LAK

Citation:

Envoyé par Lung

Comment dire, dans mes applications, que si elles ont besoin de ces paquets, c'est tel chemin ?

Et la fonction LoadPackage, d'après toi, elle sert à quoi ? :mrgreen:

Il faut simplement que tu empêches ton programme de charger automatiquement les packages (c'est une option de compilation, si ma mémoire est bonne), et les charger explicitement, c'est tout.

Fuseau horaire GMT +2. Il est actuellement 17h56.