LG

Utilité : modifier un pattern pour le remplacer, par exemple, par le dossier final d'installation.

Ajouter après chaque fichier une directive AfterInstall.

Source: “C:\fichier.txt”; DestDir: “{app}”; Flags: ignoreversion; AfterInstall: FileReplaceString('fichier.txt')

Puis, dans une section [Code] (à créer si inexistante) :

procedure FileReplaceString(const FileName: string);
var
  MyFile : TStrings;
  MyText : string;
begin
  MyFile := TStringList.Create;
 
  try
    MyFile.LoadFromFile(ExpandConstant('{app}') + '\' + FileName);
    MyText := MyFile.Text;
 
    StringChangeEx(MyText, 'C:\BlaBla\', ExpandConstant('{app}') + '\', True);
 
    MyFile.Text := MyText;
    MyFile.SaveToFile(ExpandConstant('{app}') + '\' + FileName);
  finally
    MyFile.Free;
  end;
end;

Ici, pour lancer le programme en mode administrateur.

[Registry]
; Pour forcer l'exécution en mode administrateur
Root: HKLM; Subkey: "Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"; ValueType: string; ValueName: "{app}\prog.exe"; ValueData: "RUNASADMIN"