Discussion :

[gege2061]

Bonjour,

Je cherche un moyen pour ajouter le répertoire de mon application à la variable PATH.

Apparemment c'est possible en modifiant la clés de registre :

HKEY_Local_Machine\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\Path

Comment faire pour ajouter mon répertoire à la fin ? Et pour lors de la désintallation de mon application, il est possible de revenir en arrière ?

Merci d'avance

[Cl@udius]

Salut

Cela ne répond pas exactement à ta demande, mais est-ce que ceci suffirait ?
Ce qui simplifierait également la désintallation.

@+ Claudius

[gege2061]

Cela ne répond pas exactement à ta demande, mais est-ce que ceci suffirait ?
Ce qui simplifierait également la désintallation.

Non j'ai déjà essayé Ce qui m'intéresse c'est de lancer l'application en ligne de commande.

[sjrd]

Pour l'installation, une simple ligne dans la section [Registry] permet de le faire :

Code :

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

1
2
[Registry]
Root: HKLM; SubKey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment\"; ValueType: string; ValueName: "Path"; ValueData: "{reg:HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\,Path};{app}"

Par contre, pour la désinstallation, c'est plus délicat. Il faut passer par une section code de désinstallation.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
[ Code ]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  Path, AppDir: string;
  Index: Integer;
begin
  if CurUninstallStep = usUninstall then
  begin
    if RegQueryStringValue(HKEY_LOCAL_MACHINE,
      'SYSTEM\CurrentControlSet\Control\Session Manager\Environment\',
      'Path', Path) then
    begin
      AppDir := ExpandConstant('{app}');
      Index := Pos(AppDir, Path);
      Delete(Path, Index-1, Length(AppDir)+1);
      RegWriteStringValue(HKEY_LOCAL_MACHINE,
        'SYSTEM\CurrentControlSet\Control\Session Manager\Environment\',
        'Path', Path);
    end;
  end;
end;

Pas testé, mais ça doit ressembler à ça

[Cl@udius]

Bravo sjrd
Code testé et approuvé.

J'étais en train de chercher en vain une façon de faire.

[gege2061]

ça fonction parfaitement

Merci beaucoup

[lcpnano]

Salut,

Je voudrais juste ajouter un petit détail pour tous ceux qui comme moi ont été sauvés par cette solution pour mettre à jour le PATH.

Le ValueType de cette entrée de registre est: expandsz

A+

[Tuxavry]

Bonjour,

Je suis pas un grand connaisseur d'Inno Setup et je voudrais savoir comment on utilise la procédure.

Je voudrais savoir si il était possible modifier la variable d'environnement en premier avant d'installer quoi que ce soit.

[ririrourou]

bonjour,

Les clés de registe m'intersse bcp et le programme ke vous avez mi sur ce sujet parait fonctionné bine pour moi (enfin j'ai pa eu de probleme durant la compilation) mais di moi gege2061 ça l air de fonctionner pour toi et je voulais savoir comment tu sai ke le code fonctionne enfin comment tu verifi ke la clé registre est bien enregistrer et tt le reste??

Autre kestion:
est ce que je peux avoir un exemple clair sur à quoi ca va me servir une clé de registre dans l'installation d'un programme.


Merci d'avance.