[Serega]

Как реализовать замену в текстовом файле исходного текста на требуемый? »

Создаёте TArrayOfString, TStrings или TStringList, одним словом на ваш выбор. Затем загружаете текстовый файл, ищите нужную строку, меняете, сохраняете назад в файл...

[R.i.m.s.k.y.]

Создаёте TArrayOfString, TStrings или TStringList, одним словом на ваш выбор. Затем загружаете текстовый файл, ищите нужную строку, меняете, сохраняете назад в файл »

Алгоритм мне ясен, мне бы примерчик или консольную программешку, параметры я ей в проекте подсуну...

[vint56]

Jerichoman,
russian.ArcBreak=Установка прервана!

[Jerichoman]

vint56, Есть такое

[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;

[Tukash]

yamaha
просто вставить недостаточно, надо длл.ки скачать

[lexikon]

подскажете пожалуйста
как сделать чтобы к примеру при установке когда выбираешь каталог там в строке была фраза "Выберите каталог для установки"
DefaultDirName=Выберите каталог для установки не прокатывает) в пути оказывается "путь папки со скриптом\Выберите каталог для установки"

ну или иначе чтобы он не добавлял никаких папок

если указать DefaultDirName = \ то при выборе какой то папки в списке он добавляет путь\Новая папка

[Serega]

как сделать чтобы к примеру при установке когда выбираешь каталог там в строке была фраза "Выберите каталог для установки" »

Пример

Код:

[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]
const
  WM_SETTEXT = $000C;
  
var
  SetText: Boolean;

function DirEditSetText(Text: string): Boolean;
var
  TextL: Longint;
begin
  TextL:= CastStringToInteger(Text);
  Result:= SendMessage(WizardForm.DirEdit.Handle, WM_SETTEXT, Length(Text), TextL) > 0;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if (CurPageID = wpSelectDir) and not SetText then
    SetText:= DirEditSetText('Выберите каталог для установки');
end;

[yamaha]

Повторюсь.
Подскажите как сделать слайд шоу?

[morozov-ch]

Уважаемые.
Подскажите в какой переменной/константе в Inno Setup хранится путь к инсталятору.
{scr} - не проходит.
Задача такая:
После установки программы требуется скопировать файл nastroiki.ini в папку с установленой программой.