O Inno Setup é uma ferramenta fantástica. Usamos ele há muito tempo aqui na Cadena e ele nunca nos deixou na mão. Ontem precisei montar um instalador rápido e um dos requisitos era adicionar ou atualizar um alias do Firebird:</p>

procedure SetFirebirdAlias;<br />
var<br />
  AliasesFile: string;<br />
  Aliases: TArrayOfString;<br />
  I: Integer;<br />
begin<br />
  AliasesFile := ExpandConstant('{pf}') + '\\Firebird\\Firebird_2_0\\aliases.conf';<br />
  LoadStringsFromFile(AliasesFile, Aliases);<br />
  for I := 0 to GetArrayLength(Aliases) - 1 do<br />
  begin<br />
    if Pos('meualias', Aliases[I]) > 0 then<br />
    begin<br />
      Aliases[I] := 'meualias = ' + GetCaminhoBanco;<br />
      SaveStringsToFile(AliasesFile, Aliases, False);<br />
      Exit;<br />
    end;<br />
  end;<br />
  SaveStringToFile(AliasesFile, #13#10 + 'meualias = ' + GetCaminhoBanco + #13#10, True);<br />
end;