[Serega]

Krekerpro, удалите секцию [Files], и исправьте процедуру:

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

Код:

...................
procedure CurStepChanged(CurStep: TSetupStep);
begin
  If CurStep = ssPostInstall then begin
    patch_Arc:= ExpandConstant('"{pf}\FreeArc\bin\Arc.exe"'); // расположение Arc.exe
    UnpackArc(ExpandConstant('"{sd}\DirectX.arc"'), // расположение архива
      ExpandConstant('"{app}"')); // место распаковки архива
  end;
end;
..................

Заметил такую штуку в инсталах от InstallShield: когда нажимеш на кнопку отмена на любой странице установки и отвечаеш "Да" то появляется вот такая страничка: »

Пример

Код:

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

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

[code]
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm:= False;
end;

procedure CancelClick(Sender: TObject);
begin
  WizardForm.Close;
end;

procedure CancelOnClick(Sender: TObject);
begin
  with WizardForm do begin
    NextButton.Hide;
    BackButton.Hide;
    CancelButton.Left:= 250;
    CancelButton.Caption:= 'Готово';
    CancelButton.OnClick:= @CancelClick;
//    FinishedHeadingLabel.Caption:= 'Завершение мастера установки бла-бла';
    FinishedLabel.Caption:= 'Установка прервана... бла-бла...' + #13#13#13 +
                            'Нажмите на кнопку "Готово"';
    FinishedPage.Show;
  end;
end;

procedure InitializeWizard;
begin
  WizardForm.CancelButton.OnClick:= @CancelOnClick;
end;

[Krekerpro]

Serega,
Спасибо,ошибка пропала,но если я не ошибаюсь,то на другом компьютере установка будет не возможна

[Serega]

то на другом компьютере установка будет не возможна »

Скрипт для распаковки внешних архивов, поэтому архив должен лежать рядом с инсталлятором. Это сделано для того, чтоб не копировать большие архивы на диск.

[Krekerpro]

Serega,
То есть,получается,если производить установку на другой машине,надо архив класть рядом с инсталятором?

[DemonAk]

Здравствуйте, исправил скрипт распаковки FreeArc архивов... Теперь используются внешние архивы, без копирования в папку приложения. »

Такой вопросик еще, как быть если у меня 2 архива??

[lLancer]

А как сделать что бы после установки в пуске и на рабочем столе появился ярлык запуска игры?

[Berline]

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

lLancer

Код:

[Tasks]
Name: desktopicon; Description: Создать ярлык на Рабочем Столе; GroupDescription: {cm:AdditionalIcons}
Name: startmenu; Description: Создать ярлыки в меню Пуск; GroupDescription: {cm:AdditionalIcons}

[Icons]
Name: {userdesktop}\Прога; Filename: {app}\exe.exe; WorkingDir: {app}; Tasks: desktopicon; IconIndex: 0
Name: {group}\Прога; Filename: {app}\exe.exe; WorkingDir: {app}; IconFilename: {app}\exe.exe; Tasks: startmenu; IconIndex: 0

[lLancer]

А где там указывать путь к EXE файлу?

[Serega]

то на другом компьютере установка будет не возможна »

как быть если у меня 2 архива?? »

Добавил описание к скрипту, этих вопросов.

отвечаеш "Да" то появляется вот такая страничка »

Исправил

Код:

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

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

[code]
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm:= False;
end;

procedure CancelClick(Sender: TObject);
begin
  WizardForm.Close;
end;

procedure CancelOnClick(Sender: TObject);
begin
  if ExitSetupMsgBox then begin
    with WizardForm do begin
      NextButton.Hide;
      BackButton.Hide;
      CancelButton.Left:= 250;
      CancelButton.Caption:= 'Готово';
      CancelButton.OnClick:= @CancelClick;
    //    FinishedHeadingLabel.Caption:= 'Завершение мастера установки бла-бла';
      FinishedLabel.Caption:= 'Установка прервана... бла-бла...' + #13#13#13 +
                              'Нажмите на кнопку "Готово"';
      FinishedPage.Show;
    end;
  end;
end;

procedure InitializeWizard;
begin
  WizardForm.CancelButton.OnClick:= @CancelOnClick;
end;

Каким образом сделать при деинсталле - типа опции - галочку - удалять настройки из реестра или нет? »

Надо создавать новую форму в виде сообщения и на ней рисовать чебокс... Я предлагаю другой вариант:

Пример

Код:

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

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

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion

[Registry]
Root: HKLM; SubKey: SOFTWARE\My Program; Flags: uninsdeletekeyifempty

[code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  res: Integer;
begin
  if CurUninstallStep = usAppMutexCheck then begin
    if msgConfirmUninstall then
      if RegKeyExists(HKLM, 'SOFTWARE\My Program') then
    case MsgBox('Удалить настройки программы из реестра?.'#13#13 +
        '"Да" – полное удаление всех настроек сделанных этой программой в системе.' #13#13 +
        '"Нет" – оставить настройки сделанные этой программой.', mbInformation, MB_YESNO) of
    IDYES:
      begin
      // здесь надо быть аккуратнее, чтоб по ошибке не удалить лишнее, т.к. удаляется ключ со всеми разделами
        if not RegDeleteKeyIncludingSubkeys(HKLM, 'SOFTWARE\My Program') then
        MsgBox('Немогу удалить ключ...', mbError, MB_OK);
      end;
    IDNO:
      begin
      end;
    end;
  end;
end;

[Konstantin_555]

Подскажите, плиз - как сделать, чтобы программа при деинсталяции спрашивала про необходимость удаления определённого файла? Файл создаётся во время инсталяции и изменяется в течении работы программы (база данных). Спасибо