[TryRooM]

habib2302, Примерно так.

Скрытый текст

Код:

procedure CurStepChanged(CurStep: TSetupStep);
  begin
  if CurStep = ssInstall then
  begin
     ForceDirectories(ExpandConstant('{src}\S-1-5-21-3919186426-968546183-1294672792-1001\test2')); //создаем папки
  end;
  end;