Inno Setup et lecture dans un fichier .ini mis dans le AppData local

Bonjour à tous,

J'ai mis le paramétrage de mon logiciel dans un fichier .ini et ce fichier se trouve dans un sous dossier dans le ProgramData local
(C:\Users\User_Name\AppData\Local\Dossier\fichier.ini) - j'utiliser la commande GetSpecialFolderPath(CSIDL_LOCAL_APPDATA) dans le logiciel pour gérer l'emplacement de ce fichier (qui semblerait correspondre à {localappdata} de Inno Setup)
Lors de la mise à jour, je souhaiterai que ce logiciel vérifie que le fichier.ini est bien présent et si oui qu'il aille rechercher une clé dans le fichier.

J'ai essayé de mettre un bout de code (en delphi pour rester simple) mais bon ... il n'en a pas voulu (prévisible)
J'ai essayé de "bricoler" avec divers tutos ... mais rien et ma connaissance d'Inno Setup est très très limitée.

Est ce que l'un d'entre vous aurait la gentillesse de me donner un coup de main ?
En vous remerciant d'avance

Passe par les fonctions IniKeyExists et GetIniString (GetIniInt, etc.).

Bon, j'ai mis la main dans le cambouis ...
J'ai commencé par simple: l'idée est de commencer par tester si le fichier existe

Code:

---

1 2 3 4 5 6 7 8 9 10

//section Code d'Inno Setup   procedure InitializeWizard; begin if FileExists({localappdata}'\CRG software\COMPTABILITE.ini') then begin ...//... end; end;

---

'SYNTAX ERROR!' ... et ben je n'arrive même pas à voir si le fichier existe :roll: ça commence mal.

J'ai voulu plus simple : simplement afficher le répertoire AppData local (le code est mis avant le if then)

Code:

---

1 2	MsgBox({app}, mbInformation, MB_OK);

---

'SYNTAX ERROR!' ...et ben :? ... on ne peux pas afficher ce type de constante ?

AU SECOUUUUR! Quelqu'un peut me mettre sur la voie ? :(

Ce sont des chaînes qui doivent être interprétées :

Code:

---

ExpandConstant('{localappdata}\CRG software\COMPTABILITE.ini')

---

{app} est le répertoire d'installation.

OK Andnotor, j'ai corrigé.
Bon, je viens de m’apercevoir que mon fichier .ini n'en est pas un, c'est un fichier qu'il faut que je balaie pour trouver chaine = valeur
Pas de assignfile, while eof() ...
Bon a LoadStringsFromFile, FileOpen, FileRead, FileEof
Pfff, je rââââmeeeuuuu

Voilà, j'ai trouvé!
Reprenons le contexte pour ceux qui seraient dans un cas similaire :
Je souhaite, lors de l'installation de mon logiciel, vérifier s'il existe déjà un dossier d'installation. Cette info se trouve dans un fichier de paramétrage mis dans le appdata local du PC.
Si l'information existe, la mettre à la place du DefaultDirName.
Ce fichier paramétrage est sous la forme chaine=valeur et pour le dossier d'installation la chaine est DirInstall=

donc le code que j'ai trouvé à mettre dans une section [CODE] d'Inno Setup :

Code:

---

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

procedure InitializeWizard; var FileLines: TArrayOfString; FileName:String; I:Integer; begin FileName:=expandConstant('{localappdata}\Fichier_parametre');   if FileExists(FileName) then begin if LoadStringsFromFile(FileName, FileLines) then begin for I := 0 to GetArrayLength(FileLines) - 1 do begin FileLines[I] := TrimLeft(FileLines[I]); if Pos(Lowercase('dirinstall='), FileLines[I]) > 0 then begin WizardForm.DirEdit.Text:=Copy(FileLines[I], pos('=',FileLines[I])+1,Length(FileLines[I])); Break; end; end; end; end; end;

---

on peut améliorer en testant si le résultat de copy n'est pas vide

Si c’était à refaire, le plus simple serait de travailler directement avec un vrai fichier.ini, le code serait plus allégé

Il me reste encore beaucoup de chose à comprendre sur Inno Setup qui est vraiment puissant.
Merci Andnotor pour les coups de rame qui permettent de se remettre sur le droit chemin.

Citation:

---

Envoyé par patrice@

Ce fichier paramétrage est sous la forme chaine=valeur

---

Donc des paires, il ne serait pas plus aisé d'utiliser un TStringList pour le code ?

Quelque chose comme ( écrit à la volée donc non testé) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure InitializeWizard; var FileLines: TStringList; FileName:String; I:Integer; begin FileName:=expandConstant('{localappdata}\Fichier_parametre');   if FileExists(FileName) then begin FileLines:=TStringList.Create; try FileLines.LoadFromFile(FileName); FileLines.Sort; FileLines.Find('dirinstall',i); if i>0 then WizardForm.DirEdit.Text:=FileLines.Values[i]; finally FileLines.Free; end; end;

---

Ça n'est pas utile à moins que l'app ne soit pas désinstallable. Inno Setup reprend automatiquement le chemin précédent depuis la base des registres HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\AppId_is1.

S'il y a plusieurs installateurs, il faut simplement s'assurer qu'ils ont le même AppId.