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

[BMODS]

kotyarko@fb, а как со снятыми галочками выставить

[kotyarko@fb]

а как со снятыми галочками выставить »
Не понял вопроса.

[ZVSRus]

Всем Доброго времени суток.
Есть скрипт где на странице Welcome присутствует кнопка "Назад" при нажатии ничего не происходит.
Можно ли как-то реализовать эту кнопку, чтобы она возвращала назад на диалоговое окно выбора языка.
Скрипт
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

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

[Code*]
Procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpWelcome:
begin
WizardForm.BackButton.Show;
WizardForm.BackButton.Enabled:= True; //False;
end
else
WizardForm.BackButton.Enabled := True;
end;
end;

[sergey3695]

чтобы она возвращала назад на диалоговое окно выбора языка.
Скрипт »
если только перезапуск установщика только, тогда будет диалоговое окошко.

[ZVSRus]

если только перезапуск установщика
То что перезапуск установщика, это понятно. Кто делал данный скрипт т.е. вернул кнопку
на стр. Приветствия наверное что-то имел ввиду. А так для чего это все.

[BMODS]

kotyarko@fb, Все норм спасибо большое

[Bartron]

Всем привет. Нашёл функции для определения типа дисков function REMOVABLE(Drive: String): Boolean;
begin
Result:= GetDriveType(Drive) = 2;
end;

function REMOTE(Drive: String): Boolean;
begin
Result:= GetDriveType(Drive) = 4;
end;

function CDROM(Drive: String): Boolean;
begin
Result:= GetDriveType(Drive) = 5;
end; Можно ли их как-нибудь объединить в общуу функцию?

[El Sanchez]

и можно как то пропустить этот момент
т.к инсталлятор ругается на отсутствие файлов»
habib2302, нет, он ругается на то, что при деинсталляции файлы помечены для удаления после перезагрузки. Скрин демонстрирует, что перезагрузки не было. Just do it.
Можно ли как-то реализовать эту кнопку, чтобы она возвращала назад на диалоговое окно выбора языка. »
ZVSRus, нет.
Кто делал данный скрипт т.е. вернул кнопку
на стр. Приветствия наверное что-то имел ввиду. »
ZVSRus, тот, кто вернул кнопку, головой не думает.

[ZVSRus]

тот, кто вернул кнопку, головой не думает
Спасибо за подсказку. Встречал скрипт с кнопкой Назад на финишной странице.
Наверное из того же репертуара.

[habib2302]

нет, он ругается на то, что при деинсталляции файлы помечены для удаления после перезагрузки. Скрин демонстрирует, что перезагрузки не было. Just do it. »
не могу въехать. но, перезагрузка ничего не дает. т.е по прежнему вылезает эта страница после повторного запуска инсталлятора. и как это понять помечены для удаления после перезагрузки.

[kotyarko@fb]

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

[ZVSRus]

Не факт. Ведь есть InfoAfterFile
Я имел ввиду InstallingPage или более ранние стандартные страницы

[habib2302]

Как сделать проверку наличие папок с любым названием и чтобы инсталлятор копировал из {src} в {app}?

[kotyarko@fb]

Как сделать проверку наличие папок с любым названием и чтобы инсталлятор копировал из {src} в {app}? »
Если я правильно вас понял:
Procedure CurStepChanged(CurStep: TSetupStep);
var
TFR: TFindRec;
begin
if CurStep = ssInstall then
if FindFirst(ExpandConstant('{src}\') + '*', TFR) then
try
repeat
if (TFR.Name <> '.') and (TFR.Name <> '..') then
if TFR.Attributes and FILE_ATTRIBUTE_DIRECTORY > 0 then
MsgBox(ExpandConstant('{src}\') + TFR.Name, mbInformation, MB_OK);
until not FindNext(TFR);
finally
FindClose(TFR);
end;
end;
Вместо MsgBox`а пропишите копирование папки, например, с помощью SHFileOperation.

[habib2302]

kotyarko@fb, и как на файлы
а что нибудь попроще допустим через DirExists

[kotyarko@fb]

а что нибудь попроще допустим через DirExists » Если проще, то можете попробовать из того же SHFile применить функцию CopyDir и указать что-то типа: '{src}\*'. Т.к. там есть то же условие (if SR.Attributes = FILE_ATTRIBUTE_DIRECTORY), то может получится.

[El Sanchez]

Как сделать проверку наличие папок с любым названием и чтобы инсталлятор копировал из {src} в {app}? »
habib2302, пример:
[Run]
Filename: {cmd}; Parameters: "/c for /D %? in (*) do xcopy ""%?"" ""{app}\%?"" /ECIHRZY"; WorkingDir: {src}; Flags: runhidden

[kotovb]

При компиляции выводится ошибка из-за апострофа в названии (Alan Wake's American Nightmare). Как можно скомпилировать скрипт не убирая его?

function ApplicationName(Default:String):String;
begin
#define ApplicationName ReadIni(SourcePath + "\Temp\Setup.ini", "Application", "Name", "")
Result:='{Alan Wake's American Nightmare}';
end;

_______________________________________________________________________________

Всё, разобрался. Нужно было два апострофа делать и тогда всё нормально.

[ZVSRus]

Знающие люди подскажите, как под стандартные "DirEdit и DirBrowseButton" сделать подложку "TNewGroupBox"

[Dodakaedr]

ZVSRus, В свойствах DirEdit и DirBrowseButton задайте parent TNewGroupBox