Информация Бекап\Восстановление папок\файлов в Inno Setup

[Одноногий]

Привет.

Как перед установкой (BeforeInstall) создать папку?
Сначала создаётся папка,затем производится установка.

 

[Хамик]

Привет.

Как перед установкой (BeforeInstall) создать папку?
Сначала создаётся папка,затем производится установка.

Секция [Dirs] в справке

 

[Crachlow]

Привет.

Как перед установкой (BeforeInstall) создать папку?
Сначала создаётся папка,затем производится установка.

Спойлер: exp

function InitializeSetup: Boolean;
begin
 //CreateDir(ExpandConstant('{pf64}'+'\Mypog'));
 ForceDirectories(ExpandConstant('{pf64}'+'\Mypog'));
 result:=true;
 end;

 

[Одноногий]

Секция [Dirs] в справке

Там ни слова о создании папки до установки.

Спойлер: exp

function InitializeSetup: Boolean;
begin
 //CreateDir(ExpandConstant('{pf64}'+'\Mypog'));
 ForceDirectories(ExpandConstant('{pf64}'+'\Mypog'));
 result:=true;
 end;

Создаётся папка в ПФ.а нужно в {app}. Изменяю значение - инсталлер не запускается - ошибка.

 

[Crachlow]

{app}

создается только на после Ready. Так что думай. или воспользуйся препроцессором ispp

 

[Хамик]

Там ни слова о создании папки до установки.



Создаётся папка в ПФ.а нужно в {app}. Изменяю значение - инсталлер не запускается - ошибка.

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssInstall then ForceDirectories(ExpandConstant('{app}\MyFolder'));
end;