Скрипты Inno Setup. Помощь и советы [часть 7]

[MogilShik2007]

Цитата MogilShik2007:



Ну тут как смотреть, все файлы находятся в папке Bobrik, а сама папка Bobrik со всеми файлами находится в папке Sierra)))

Скрипты Inno Setup. Помощь и советы [часть 7]

Какая папка подходит под константу {app} у вас, "Bobrik"? А удалить нужно "Sierra", в которой находится "Bobrik"? - Тогда я всё верно подсказываю.




Цитата MogilShik2007:



Что-то ругается компилятор на строку Function ParentFolderName(): String;

Скрипты Inno Setup. Помощь и советы [часть 7]

Пробуйте так:

Код:

Код: Выделить всё

[UninstallDelete]
Type: dirifempty; Name: {code:ParentFolderName};
[*Code]
Function ParentFolderName(DefaultPath: String): String;
var
 oFS: Variant;
begin
 Result := DefaultPath; 
 oFS := CreateOleObject('Scripting.FileSystemObject');
 Result := oFS.GetParentFolderName(ExpandConstant('{app}'));
end;

[Shift85]

Цитата MogilShik2007:



если приложение будет установлено не по умолчанию. а скажем на другой диск?

Скрипты Inno Setup. Помощь и советы [часть 7]

Код:

Код: Выделить всё

[Setup]
AppName=My Programm
AppVersion=1.1
DefaultDirName={pf}\My Programm
OutputDir=.
[UninstallDelete]
Type: dirifempty; Name: "{app}\.."

[MogilShik2007]

Цитата kotyarko@fb:



Пробуйте так:

Скрипты Inno Setup. Помощь и советы [часть 7]

Вот теперь круто, спасибо)))



И такой вопрос компилю скрипт, все устанавливается, и при нажатии на кнопку Завершить - инсталлятор закрывается и через секунду выскакивает сообщение винды об ошибке - Прекращена работа программы "Setup/Uninstall". Так то все нормально, все файлы копируются, приложение запускается и работает, но эта выскакивающая плямба напрягает, куда копать?

Винда 7х64

[kotyarko@fb]

Цитата MogilShik2007:



И такой вопрос компилю скрипт, все устанавливается, и при нажатии на кнопку Завершить - инсталлятор закрывается и через секунду выскакивает сообщение винды об ошибке - Прекращена работа программы "Setup/Uninstall". Так то все нормально, все файлы копируются, приложение запускается и работает, но эта выскакивающая плямба напрягает, куда копать?

Скрипты Inno Setup. Помощь и советы [часть 7]

Где-то в коде висит хэндл для визарда.

Можно сделать так:

Код:

Код: Выделить всё

[*Code]
Procedure DeinitializeSetup();
begin
 WizardForm.Free;
end;

[MogilShik2007]

Цитата kotyarko@fb:

Где-то в коде висит хэндл для визарда.

Можно сделать так:

Скрипты Inno Setup. Помощь и советы [часть 7]

Не не помогает теперь при нажатии Закрыть вылезает Runtime Error



хэндл это какой знак?

[Dodakaedr]

Цитата MogilShik2007:



Не не помогает теперь при нажатии Закрыть вылезает Runtime Error

Скрипты Inno Setup. Помощь и советы [часть 7]

Код:

Код: Выделить всё

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

[MogilShik2007]

Цитата MogilShik2007:



хэндл это какой знак?

Скрипты Inno Setup. Помощь и советы [часть 7]

Это не знак, это команда.

Выглядит так:



Код:

Код: Выделить всё

Объект.Handle;

[kotyarko@fb]

Цитата kotyarko@fb:

Это не знак, это команда.

Скрипты Inno Setup. Помощь и советы [часть 7]

Эх, придется лопатить весь код

И это точно из-за этой команды?




Цитата Shift85:



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

Скрипты Inno Setup. Помощь и советы [часть 7]

У меня так:



procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);

begin

if CurPageID=wpInstalling then begin

Confirm:=False;

Cancel:=ExitSetupMsgBox;

if Cancel then AllCancel;

end;



А Runtime Error вылетал при использовании:



[*Code]

Procedure DeinitializeSetup();

begin

WizardForm.Free;

end;



Ну а без нее соответственно - Прекращена работа программы "Setup/Uninstall"

[MogilShik2007]

Цитата:



И такой вопрос компилю скрипт, все устанавливается, и при нажатии на кнопку Завершить - инсталлятор закрывается и через секунду выскакивает сообщение винды об ошибке - Прекращена работа программы "Setup/Uninstall". Так то все нормально, все файлы копируются, приложение запускается и работает, но эта выскакивающая плямба напрягает, куда копать?

Винда 7х64



Проверил на ХР, такой проблемы нет, все ставится, работает, сообщений об ошибках нет.

Вот и чего думать? Может в 7х64 IsDone подгоняет немного?

[Shift85]

Цитата MogilShik2007:



Проверил на ХР, такой проблемы нет, все ставится, работает, сообщений об ошибках нет.

Вот и чего думать?

Скрипты Inno Setup. Помощь и советы [часть 7]

Win 7\8 более чувствительны к такому.




Цитата MogilShik2007:



Может в 7х64 IsDone подгоняет немного?

Скрипты Inno Setup. Помощь и советы [часть 7]

Не знаю, не работал с ним.

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

Здесь по коду нужно ориентироваться. Можете прогнать компиляцию по F8, возможно, покажет на проблемное место.