[Rosich]

Rosich, немного подредактировал ваш скрипт, он стал на 250 строк меньше... Проверьте на работоспособность. »

СПАСИБО БОЛЬШОЕ!!! Но ругается, однако!

[A1EXXX]

Цитата Serega: Rosich, немного подредактировал ваш скрипт, он стал на 250 строк меньше... Проверьте на работоспособность. » СПАСИБО БОЛЬШОЕ!!! Но ругается, однако! »

попробуй первые два значения изменить на 0... типо так (0, 0, 121, 25)

[Rosich]

попробуй первые два значения изменить на 0... типо так (0, 0, 121, 25) »

Результат - тот же!

[BlackSelf]

Rosich, запишите так: SetBounds (40, 102, 121, 25);
И так со всеми командами SetBounds.

[Drongo]

Лучше подождите спеца - Serega - пропишет что нужно, в прямом смысле этого слова.

[Rosich]

запишите так: SetBounds (40, 102, 121, 25); И так со всеми командами SetBounds. »

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


У меня еще одна проблема наклюнулась: сегодня я экстренно прервал установку программы и она вылетела. Получается так, что во время бекапа файлы перемещаются в папку "Backup", а если прервать установку – то файлы-клоны, если и успели скопироваться, просто удаляются и все!!! Папка "Backup", вместе с файлами, осталась на месте, а файлы-дубли удалились. Подскажите, пожалуйста, как этого избежать или хотя бы на время установки файлов кнопку "отмена" сделать неактивной. Идеальный вариант: нажимаешь кнопку "отмена" файлы из папки "Backup" восстанавливаются на свои места.

Лучше подождите спеца - Serega - пропишет что нужно, в прямом смысле этого слова. »

Поддерживаю, без Serega жизнь была бы скушна! У него есть решения на все случаи жизни.

[Serega]

Но ругается, однако! »

Извините Rosich, недаром говорят - ночью спать надо
BlackSelf всё правильно сказал:

запишите так: SetBounds (40, 102, 121, 25); »

Спасибо, за корректировку...

все великолепно скомпилировалось, зато при запуске получается так: »

Сейчас гляну, что не так...

У меня еще одна проблема наклюнулась: »

т.е. она появилась с этим скриптом или вы просто её раньше не замечали?

[Serega]

Rosich, попробуйте:

[Rosich]

т.е. она появилась с этим скриптом или вы просто её раньше не замечали? »

Скорее всего - второе. Я это примерно знал и раньше, просто закрывал глаза, а сейчас лбом ударился - глупо теперь прятать голову в песок.
Суть проблемы такова: скрипт, который брался изначально, не предусматривал "обратный бекап", то есть он копирует определенные файлы в указанную папку и при деинсталляции из этой папки возвращает файлы назад. Отката как такового в этом скрипте не предусмотрено. Если во время копирования нажать кнопку "отмена", примерно как это сделал я, то оригиналы файлов остаются в папке бекапа, а файлы-клоны просто удаляются и так как процесс установки незавершен - деинсталлятора нет, соответственно: файлы-оригиналы назад не возвращаются! Как этого избежать я не знаю, самый легкий путь - запретить пользователю отменять установку программы, или просто кнопку "отмена" сделать неактивной. Но хотелось бы не так топорно, а поизящней.

[Serega]

на время установки файлов кнопку "отмена" сделать неактивной »

Замените в скрипте procedure CurPageChanged, на эту:

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

Код:

procedure CurPageChanged(CurPageID: Integer);
var
  ResultCode: Integer;
  UnInstallPath: string;
begin
  PageID:= CurPageID;
  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 = wpSelectDir then
    begin
      GetNeedSpaceCaption;
      if FreeMB < NeedSize then
      WizardForm.NextButton.Enabled:= False;
    end;
  if CurPageID = wpReady then
    begin
      WizardForm.BackButton.Enabled:= False;
      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 = wpInstalling then
      WizardForm.CancelButton.Enabled:= False;
  if CurPageID = wpFinished then
    WizardForm.Position:= poScreenCenter;
end;