[архив] Inno Setup .:[все вопросы]:.

Rosich · Отправлено: **19:47, 02-08-2009** | #**1191**

Serega
Спасибо, конечно, но сделал все по вашим подсказкам и вставил процедуру CurPageChanged. В итоге скрипт компилируется и работает, но последняя страница, получается урезанная:

.
Проверил все что мог, по размерам нигде отклонений нет, но все-таки страница завершения получается урезанная, а так все работает идеально.

Прошу помощи еще на один мой вопрос:
У меня для этой игры есть два официальных патча, но установить их можно, только если в игре стоят оригинальные файлы, с которых я делаю бекап. То есть реально установка этих патчей должна начаться сразу после "тихой деинсталляции" до установки основных файлов и только по одному - сначала файл myprogram v. 1.1, после завершения установки этого файла, идет установка файла myprogram v. 1.2 и только после того как установится второй файл должна начаться установка основных файлов.
КАК это сделать?!

Serega · Конфигурация компьютера

Цитата VitHAK:

Но как сделать проверку наличия файла {src}\Setup.exe ? »

сразу за кодом создания кнопки, добавьте:

Код:

  if not FileExists(ExpandConstant('{src}\Setup.exe')) then
  btn2.Enabled:= False;

Цитата Rosich:

страница, получается урезанная: »

так я сам удивился, когда увидел в вашей процедуре изменение страницы, но вы же писали скрипт и для чего это вам надо я не знаю, поэтому я это оставил без изменений, просто сделал, чтоб всё работало.

Исправил

Код:

procedure CurPageChanged(CurPageID: Integer);
var
  ResultCode: Integer;
  UnInstallPath: string;
begin
  PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption;
  PageNameLabel1.Caption:= 'Апаратное Обеспечение';
  PageDescriptionLabel1.Caption:= 'Программа установки обнаружила следуюшие необходимые компоненты';
  PageNameLabel2.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel2.Caption:= WizardForm.PageDescriptionLabel.Caption;
  PageNameLabel3.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel3.Caption:= WizardForm.PageDescriptionLabel.Caption;
  PageNameLabel4.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel4.Caption:= WizardForm.PageDescriptionLabel.Caption;
  PageNameLabel5.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel5.Caption:= WizardForm.PageDescriptionLabel.Caption;
  PageNameLabel6.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel6.Caption:= WizardForm.PageDescriptionLabel.Caption;
  PageNameLabel7.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel7.Caption:= WizardForm.PageDescriptionLabel.Caption;
  PageNameLabel8.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel8.Caption:= WizardForm.PageDescriptionLabel.Caption;
  if CurPageID = wpSelectComponents then
    begin
      RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{C05D8CDB-417D-4335-A38C-A0659EDFD6B8}_is1','UninstallString', UnInstallPath);
      UnInstallPath:= RemoveQuotes(UnInstallPath);
      Exec(UnInstallPath, '/verysilent','', SW_HIDE, ewWaitUntilTerminated, ResultCode);
    end;
  if CurPageID = wpSelectDir then
    begin
      GetNeedSpaceCaption;
      if FreeMB < NeedSize then
      WizardForm.NextButton.Enabled:= False;
    end;
  if CurPageID = wpReady then
    WizardForm.BackButton.Enabled:= False;
  if CurPageID = wpFinished then
      WizardForm.Position:= poScreenCenter;
end;

Serega · Конфигурация компьютера

Извиняюсь сразу чего-то проглядел...

Цитата Rosich:

КАК это сделать?! »

1. Бекап файлов;
2. Происходит деинсталляция... чего? Программы?
3. Я так понимаю - востановление оригинальных файлов?
4. Установка двух патчей;
5. Ваша установка программы.
Я правильно понял?

Rosich · Отправлено: **20:35, 02-08-2009** | #**1194**

На соседнем форуме есть интересная программка, называется она InnoSetup Script Joiner, сделана он одним из постояльцев того форума. Смысл ее работы в том, что она сшивает скрипты, объединяя несколько в один. Работать с ней просто: скрипты, которые хотите объединить делите по файлам с расширением *.iss (только секцию [code]) клик правой кнопкой мыши и скрипт – готов. Не так красиво, как это сделает человек, но работает.

Rosich · Отправлено: **20:51, 02-08-2009** | #**1195**

Цитата Serega:

1. Бекап файлов;
2. Происходит деинсталляция... чего? Программы?
3. Я так понимаю - востановление оригинальных файлов?
4. Установка двух патчей;
5. Ваша установка программы.
Я правильно понял? »

Немного не так.
При первой установки инсталлятора после выбора компонентов, если пользователь выбрал установку патчей:
1. Запуск программы установки.
2. После страницы выбора компонентов, устанавливаются патчи, по одному:
2.1 Первый патчь, от начала установки до полного ее завершения.
2.2 Второй патчь, от начала установки до полного ее завершения.
3. Бекап файлов.
4. Установка остальных компонентов программы.

При повторном запуске инсталлятора, если пользователь сразу не выбрал установку патчей:
1. Запуск программы установки.
2. После страницы выбора компонентов, идет "тихая деинсталляция".
3. Устанавливаются патчи, по одному:
3.1 Первый патчь, от начала установки до полного ее завершения.
3.3 Второй патчь, от начала установки до полного ее завершения.
4. Бекап файлов.
5. Установка остальных компонентов программы.

VitHAK · Отправлено: **21:13, 02-08-2009** | #**1196**

Serega, Спасибо!
Я уже написал процедуру:

Код:

If (FileSearch('setup.exe', ExpandConstant('{src}'))='')
    then
    begin
	btn2.Enabled := False;
    end

Но Вы предложили лутшее решение.

Я сегодня только первий день знакомлюсь с Inno Setup Script

Rosich · Отправлено: **22:31, 02-08-2009** | #**1197**

Цитата Serega:

так я сам удивился, когда увидел в вашей процедуре изменение страницы, но вы же писали скрипт и для чего это вам надо я не знаю, поэтому я это оставил без изменений, просто сделал, чтоб всё работало. »

Спасибо все прекрасно работает!!!

P.S.
Сейчас проверил на запуск программы, до этого программу не запускал – тестировал на бекап файлов, запуск программы – пропал, программа не запускается со страницы завершения. Подозреваю, запуск DirectX тоже пропал, проверить не могу, он у меня уже установлен, только если попробовать подсунуть старую версию?!
SOS
Попробуйте, посмотрите, пожалуйста, весь скрипт, и еще прикладываю второй вариант – в нем все работает, но есть абсолютный путь, а это не есть "ХУ". Посмотрите, пожалуйста, может, что и получится.