[Serega]

Алгоритм мне ясен, мне бы примерчик »

Пример

Сохраните данный файл, как config.txt и расположите рядом с инсталлятором:

Код:

-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-Param=
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M

Пример скрипта:

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Code]
procedure ChangeString;
var
  S: TArrayOfString;
  F: string;
  i: Integer;
begin
  F:= ExpandConstant('{src}\config.txt');
  if not FileExists(F) then Exit; // если файла нет, выходим
  LoadStringsFromFile(F, S); // загружаем файл
  for i:= 0 to GetArrayLength(S)-1 do
    if Pos('-Param=', S[i]) > 0 then
      S[i]:= '-Param=' + GetCmdTail;   // записываем параметры командной строки
  SaveStringsToFile(F, S, False); // сохраняем файл
end;

function InitializeSetup(): Boolean;
begin
  ChangeString;
end;