[Rikill]

Sotonisto, а вот теперь про records.inf. После "пробной" распаковки архивов ты наверное заметил этот файл в папке.
Для активации введи в начале скрипта #define records и перекомпилируй. Вуаля, проценты и прогресс бар не шутят. Если будешь подсовывать другие архивы то закомментируй просто #define records и переустанови "пробный" раз игру. Т.е. перераспакуй все архивы.
P.S. Пример был из справки...

[Dark_Delphin]

Всем привет!)

Подскажите как прикрутить свой (которого Не у кого нет) шрифт у инсаталлятор?
Есть пример?

Заранее спасибо.!

[Rikill]

ntrx, к сожалению использование этого кода приводит в неправильному запуску инсталлятора. Проси у Shegorat правильную библиотеку для вывода шрифта, мне он её не даёт.
P. S. Возможно придётся раскошелиться...

[Gnom_aka_Lexander]

Я имел в виду этот момент »

Понял. тогда так:

читать дальше »

Код:

#ifdef UNICODE
  #define A "W"
  #define B "Wide"
#else
  #define A "A"
  #define B "Ansi"
#endif
function CopyFile(ExistingFile,NewFile: P{#B}Char; bFailIfExists: Boolean): Boolean;
  external 'CopyFile{#A}@Kernel32.dll stdcall';

,будет более правильно, спасибо, что указал

... оставляем рабочим вариант уважаемого serg aka lain. оказалось, что инно не знает, что такое PWideChar. так что для юникода, применяем String.

[Gugle]

Gugle, когда именно надо кинуть установщик на финиш? »

Извиняюсь за долгое молчание.

После инициализации своих окон в процедуре

Код:

PROCEDURE InitializeWizard;

проверяется наличие установленного приложения на ОС пользователя.
Проверка делается функцией взятой отсюда. Если ПО установлено, то сравниваются версия, которая ставится (V1) и версия, которая установлена (V2).
Если V1 <= V2 то пользователю задается вопрос, хочет ли он продолжить и при отрицательном ответе надо отправить пользователя на страницу "Финиш".

З.Ы.
А прочитать список файлов в папке как нить можно?

[Gnom_aka_Lexander]

А прочитать список файлов в папке как нить можно? »

можно:

читать дальше »

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[*Code]

var
  ISCustomPage1: TWizardPage;
  Label1: TLabel;
  NewListBox1: TNewListBox;
  NewButton1: TNewButton;
  NewEdit1: TNewEdit;

procedure FindFile(Dir: string);
 var
 SR: TFindRec;
 FindRes: Boolean;
 begin
 FindRes := FindFirst(Dir + '*.*', SR);
 while FindRes do
 begin
 if ((SR.Attributes and $00000010) = $00000010) and
 ((SR.Name = '.') or (SR.Name = '..')) then
 begin
 FindRes := FindNext(SR);
 Continue;
 end;

 // если найден каталог, то
 if ((SR.Attributes and $00000010) = $00000010) then
 begin
 // входим в процедуру поиска с параметрами текущего каталога +
 // каталог, что мы нашли
 FindFile(Dir + SR.Name + '\');
 FindRes := FindNext(SR);
 // после осмотра вложенного каталога мы продолжаем поиск
 // в этом каталоге
 Continue; // продолжить цикл
 end;

 NewListBox1.Items.Add(SR.Name);
 FindRes := FindNext(SR);
 end;
 FindClose(SR);
 end;

procedure NewButton1Click(Sender: TObject);
begin
 NewListBox1.Clear; // очистка списка файлов
 FindFile(NewEdit1.Text); // поиск файлов с начальными условиями, заданных в NewEdit1
end;

procedure InitializeWizard();
begin
  { Creates custom wizard page }
  ISCustomPage1 := CreateCustomPage(wpWelcome, 'Поиск', 'Здесь поиск файлов в заданном каталоге');

  { ISCustomPage1 }
  with ISCustomPage1.Surface do
  begin
    Name := 'ISCustomPage1';
  end;

  { Label1 }
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Name := 'Label1';
    Parent := ISCustomPage1.Surface;
    Caption := 'Введите адрес поиска';
    Transparent := False;
    Left := ScaleX(8);
    Top := ScaleY(192);
    Width := ScaleX(114);
    Height := ScaleY(13);
  end;

  { NewListBox1 }
  NewListBox1 := TNewListBox.Create(WizardForm);
  with NewListBox1 do
  begin
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(417);
    Height := ScaleY(185);
    ItemHeight := 13;
    ItemIndex := -1;
  end;

  { NewButton1 }
  NewButton1 := TNewButton.Create(WizardForm);
  with NewButton1 do
  begin
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(342);
    Top := ScaleY(208);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'Искать';
    OnClick := @NewButton1Click;
  end;

  { NewEdit1 }
  NewEdit1 := TNewEdit.Create(WizardForm);
  with NewEdit1 do
  begin
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(0);
    Top := ScaleY(212);
    Width := ScaleX(329);
    Height := ScaleY(21);
    Text := ExpandConstant('{pf}\Inno Setup 5\');
  end;
end;

[krutx]

Здравствуйте, помогите плиз. Я полный нуб в этой проге и 1 день пытаюсь в ней чтото сделать.
~2 часа себе мозг выносил к прикручиванию 7zip к моему шаблону, но так и не получилось.
Прикрутите плиз к моему шаблону (http://www.mediafire.com/?rcy26qqpktx7nva), напишите как архивы кидать в инсталлер (чтобы они распаковывались от инсталлера, но были отдельным файлом).
И еще вопрос как сделать (а лучше это тоже прикрутить к шаблону) чтобы если пользователь выбирает существующую папку, то все файлы в этой папки перемещались в *эта папка*\backup.
Если подобный вопрос уже был, сорьте, я убъюсь если буду читать ~400 страниц в 3 темах.

[Gnom_aka_Lexander]

~2 часа себе мозг выносил к прикручиванию 7zip »

Можно объяснить смысл сего действа? Инно сама умеет использовать сжатие lzma2 и ultra64 ировни. в том числе непрерывное сжатие не хуже 7z, в общем, что и неудивительно, поскольку 7zip алгоритмы там и работают. Плюс дополнительные настройки сжатия можно найти в справке к инно. Тоесть, прикручивать 7zip к 7zip-у - полный маразм, в моем понимании.

Если подобный вопрос уже был, сорьте, я убъюсь если буду читать ~400 страниц в 3 темах. »

Бекап фалов - пять минут поиска в гугле. Ссылка

[LinkOFF]

Здравствуйте, помогите плиз. Я полный нуб в этой проге и 1 день пытаюсь в ней чтото сделать. ~2 часа себе мозг выносил к прикручиванию 7zip к моему шаблону, но так и не получилось. Прикрутите плиз к моему шаблону (http://www.mediafire.com/?rcy26qqpktx7nva), напишите как архивы кидать в инсталлер (чтобы они распаковывались от инсталлера, но были отдельным файлом). И еще вопрос как сделать (а лучше это тоже прикрутить к шаблону) чтобы если пользователь выбирает существующую папку, то все файлы в этой папки перемещались в *эта папка*\backup. Если подобный вопрос уже был, сорьте, я убъюсь если буду читать ~400 страниц в 3 темах. »

GameScript Generator тебе в помощь

[oxsa91]

Необходимо создать новое диалоговое окно,которое будет спрашивать: на какой сервер ставить программу, сервер базы данных, логин и пароль для доступа к серверу базы данных. все эти переменные необходимо записать в нужном месте. Я первый раз работаю с Inno setupом,подскажите как это сделать,пожалуйста