[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