[Inno Setup] Tronquer une valeur récupérée dans la BDR ?

**Ethancarter** · 14/07/2008, 23h40

Bonjour,

Je souhaiterais, dans le cadre d'un programme d'installation créé par Inno Setup , installer un fichier dans un répertoire défini. Ce répertoire est inscrit dans une clé de la base de registre, mais il doit être "travaillé" avant.

Je m'explique :

Je dois installer ce fichier dans (par exemple) program files\mon logiciel\. Ce répertoire est inscrit dans la BDR, dans une clé "uninstall" mais la clé comprend un ou plusieurs paramètres, par exemple : program files\mon logiciel\uninstall.exe

Je souhaiterais donc :
- récupérer la valeur de la clé
- la tronquer (dans mon exemple supprimer le "uninstall.exe" pour ne garder que le répertoire)
- en faire le dossier d'installation par défaut

Comment faire ?

Merci

**Cl@udius** · 15/07/2008, 10h28

Salut et bienvenue sur les forums de DVP.

InnoSetup possède la fonction ExtractFileDir qui répond exactement à ton attente.

Envoyé par Aide IS

Prototype:
function ExtractFileDir(const FileName: string): String;

Description:
Extracts the drive and directory parts of the given file name. The resulting string is empty if FileName contains no drive and directory parts.

@+ Claudius

**Ethancarter** · 15/07/2008, 13h08

Merci de cette réponse

Par quoi dois-je remplacer "string" STP ?

D'autre part, je suppose que cette fonction doit être placée dans une section [code]

Merci d'avance !

**Cl@udius** · 15/07/2008, 13h23

Salut

Envoyé par Ethancarter

D'autre part, je suppose que cette fonction doit être placée dans une section [code]

Oui, bien sûr.

Envoyé par Ethancarter

Par quoi dois-je remplacer "string" STP ?

Lorsque tu as lu et récupéré la valeur dans la BDR - exemple: C:\program files\mon logiciel\uninstall.exe - c'est cette chaine que tu transmets à la fonction, ce qui te renverra: C:\program files\mon logiciel\

[edit]
Pour la section [Code] si tu as besoin d'un tuto, il existe celui de ThierryAIM que tu peux trouver ici.

@+ Claudius

**Ethancarter** · 15/07/2008, 21h10

Merci pour la réponse....mais comment récupérer la clé depuis la base de registre ? Je ne connais pas la fonction qui permet de le faire

Merci

**Ethancarter** · 15/07/2008, 21h27

Bon, voilà ce que j'ai fait (c'est un peu du bricolage, mais bon) :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
[Setup]
AppId={{C3D7A771-11C9-440E-A281-2F6F76F8F9DB}}
AppName=Ankh II : le coeur d'Osiris - Patch 1.04
AppVerName=cette mise à jour
AppPublisher=Micro Application
DefaultDirName={code:MyConst}\
AllowNoIcons=yes
DefaultGroupName=Micro Application\Ankh 2 - le Coeur d'Osiris
OutputDir=C:\Users\Nicolas\Desktop
SetupIconFile=C:\Users\Nicolas\Desktop\Ankh-OsirisHeart.ico.
OutputBaseFilename=Ankh-OH-FR-1.0.4.exe
Compression=lzma
SolidCompression=yes
 
(code)
var
  fullFileName : string;
 
function InitializeSetup(): Boolean;
begin
  if RegValueExists (HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Ankh - Heart of Osiris','UninstallString') = true then
      begin
        Result:=true;
      end
      else
      begin
      Msgbox('Ankh II ne semble pas être installé sur ce système. Installation annulée',mbConfirmation,MB_Ok);
        Result:=False;
      end;
  end;
 
function MyConst(Param: String): String;
begin
    fullFileName := ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Ankh - Heart of Osiris,UninstallString}');
    Result := ExtractFileDir (fullFileName);
end;
 
 
[Languages]
Name: "french"; MessagesFile: "compiler:Languages\French.isl"
 
[Files]
Source: "C:\Users\Nicolas\Desktop\b\*"; DestDir: "{app}\"; Flags: ignoreversion recursesubdirs createallsubdirs
 
[Run]
Filename: "{app}\bin\release\Ankh-OsirisHeart.exe"; Description: "{cm:LaunchProgram,Ankh, le coeur d'Osiris}"; Flags: nowait postinstall skipifsilent runascurrentuser

Le problème c'est que lorsque je lance le programme, le repertoire qui apparait par défaut est le suivant ;

C:\Users\Nicolas\Desktop\"C:\Program Files\Micro Application\Ankh 2 - le Coeur d'Osiris

Que viens faire le C:\Users\Nicolas\Desktop\ ici ?

Merci

NB : j'ai mis (code) avec des parenthèses et non des crochets car sinon ça plantait le forum

**ero-sennin** · 16/07/2008, 15h49

Salut,

Logiquement, il te faut enlever les guillemets pour l'histoire du répertoire de sortie ... J'avais eu le même soucis que toi

Voici le code modifié :

Code :

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

1
2
3
4
5
function MyConst(Param: String): String;
begin
    fullFileName := ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Ankh - Heart of Osiris,UninstallString}');
    Result := RemoveQuotes(ExtractFileDir (fullFileName)); // Ici la modification
end;