[sergey3695]

Если кого-то оскорбил данным сообщением извините. мне просто понравилось if - then end, я ни в коем случае не пытался тут умничать, да и умным я себя назвать не могу... так среднестатистический юзер. И да, т.к. я не участвовал в начале обсуждения, я мог ни до конца понять требуемое условие.

[AlekseyPopovv]

sergey3695,

if - then end »

и такое бывает Всё приходит с опытом! Вам спасибо за помощь.

[PlanktoN]

AlekseyPopovv, а так?
Procedure TempFile;
begin
ExtractTemporaryFile ('***.exe');
ExtractTemporaryFile ('botva2.dll')
ExtractTemporaryFile ('ISWin7logo.dll')
end;

Procedure InitializeWizard();
Begin
TempFile;
end;

[sergey3695]

Код:

function InitializeSetup(): Boolean;
begin
  if not FileExists(ExpandConstant('{tmp}\ISWin7logo.dll')) then ExtractTemporaryFile('ISWin7logo.dll');
  if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
  Result:= True;
end;

procedure InitializeWizard();
Begin
  if not FileExists(ExpandConstant('{tmp}\***.exe')) then ExtractTemporaryFile('***.exe');
end;

[AlekseyPopovv]

PlanktoN, sergey3695, спасибо, я разобрался.

[Valera90]

Всем привет, не работает прокрутка колесиком мышки, работает если тока нажать на компонент тогда в низ спускает, как решить данную проблему?

[habib2302]

Доброе время суток. Возможно ли сделать так чтобы создавалась папка с название раздела из реестра?

[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;

[habib2302]

TryRooM, вы поняли что мне за код дали?
название этого раздела в реестре бывает разным в зависимости от системы и т.д. и т.п.

[TryRooM]

habib2302, Вопрос был в чем. Создать папку с название раздела из реестра, что я и сделал.
А то, что название этого раздела в реестре бывает разным в зависимости от системы и т.д. и т.п. и так понятно.