[R.i.m.s.k.y.]

А в Inno Setup как это реализовать »

Код:

Тащим с собой в инно Unrar
[Files]
Source: Unrar.exe; DestDir: {tmp}; Flags: ignoreversion
Source: arc.7zip; DestDir: {tmp}; Flags: ignoreversion
[Run]
Filename: {tmp}\unrar.exe; Parameters: x {tmp}\arc.7zip {app}\; StatusMsg: Распаковываем, немножко терпения; Flags: runhidden waituntilterminated

По идее так, но я не проверял

А вот пример из сборника скриптов (в шапке темы)

Код:

[Setup]
AppName=Need for Speed - Carbon
AppVerName=Need for Speed - Carbon v1.3
DefaultDirName={sd}\Games\NFSCarbon

[Components]
Name: eng; Description: Английская версия; Flags: exclusive
Name: rus; Description: Русская версия; Flags: exclusive

[Types]
Name: custom; Description: Выборочная установка; Flags: iscustom

[Files]
;Source: D:\NFSCarbon\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs

[Run]
Filename: {src}\Rus\NFSC_RUS.exe; Components: rus; WorkingDir: {src}\Rus; Parameters: "-y -o""{app}"""; StatusMsg: Установка русификации...; Flags: waituntilterminated

[_Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  res:Integer;
  app, arc, dest:string;
begin
If CurStep=ssPostInstall
then
begin
  app:=ExpandConstant('{src}')+'\7za.exe';
  arc:=ExpandConstant('{src}')+'\ARC.7z';
  dest:=ExpandConstant('{app}');
  Exec(app, 'x "'+ arc + '" -y -o"'+ dest + '"', '', SW_SHOWNORMAL, ewWaitUntilTerminated, res);
end;
end;

[SeDmY]

R.i.m.s.k.y. »

Спасибо)))) проверим-с)))

[R.i.m.s.k.y.]

Спасибо)))) проверим-с))) »

За спасибо давим кнопочку "полезное сообщение" на сообщении, которое принесло Вам пользу :-)

[CSKA_fan_n.1]

Блин, вы мне то ответьте, поможете или нет?

[Devils0411]

Serega, Включите в шапку данную программу, она ничуть не хуже других Inno Setup Unpacker

[R.i.m.s.k.y.]

Блин, вы мне то ответьте, поможете или нет »

Поиск рулит.
От себя могу намекнуть. FilenameLabel может не поддерживать метод Hide. Если надо спрятать метки файлов, делается это так:

Код:

procedure InitializeWizard();
WizardForm.FileNameLabel.Visible:= False;

[bas32un]

Для удобства хоту задать путь к файлам (их много) в [files] Source: "C:\ляляляля\My.exe" с помощью переменной или константы или чего-нибудь подобного.
Почитал хелпы и сделал:
[code]
function MySourcePath(): String;
begin
Result := 'C:\ляляляляляля';
end;
Теперь пытаюсь Source: "{code:MySourcePath}\My.exe", но выдает ошибку неизвестный файлнейм префик {code
Как же сделать правильно?

и еще
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssDone then
MsgBox('Программа ' + '{#SetupSetting("AppName")}' + ' установлена!', mbInformation, MB_OK);
end;
-- {#SetupSetting("AppName")} так и выводится почему то, а не имя программмы....

[CSKA_fan_n.1]

R.i.m.s.k.y., спасибо тебе! Но теперь у меня на этот код Инно ругается...

[SkarM]

Так а по моему вопросу ктот поможет?...

[R.i.m.s.k.y.]

Так а по моему вопросу ктот поможет »

читаем справку

Код:

[Components]
name: one; Description:...; ; Flags: exclusive
name: one\one1; Description:component 1;types:compact; Flags: dontinheritcheck
name: one\one2; Description:component 2;types:compact;Flags: dontinheritcheck
name: one\one3; Description:component 3;types:compact;Flags: dontinheritcheck

name:two; Description:component 4;types:full; Flags: exclusive
name:two\two1; Description:component 5;types: full;Flags: dontinheritcheck
name:two\two2; Description:component 6;types: full;Flags: dontinheritcheck
name:two\two3; Description:component 7;types: full;Flags: dontinheritcheck

checkablealone - можно выбрать компоненту без "дочек"
dontinheritcheck- компонента не отммечается даже при выборе "дочки"

Поэкспериментируйте с ними - увидите как меняется

exclusive - можно выбрать только один компонент из всех с данным флагом

Или поставьте IsTool и русификацию к нему (ссылки в шапке темы) - там все эти флаги можно по ПКМ выбирать.

Но теперь у меня на этот код Инно ругается »

Знаете форумную присказку - "Здесь телепатов нет". Какая ошибка? скрин. У меня Инно 5,3,7 - такой код не понимает.
И вообще откуда этот код. Судя по всему от новой версии Инно или какого-то препроцессора. У кого скачали там и спросите на чем его компилили.