Скрипты Inno Setup. Помощь и советы [часть 7]

[Dinvin4ester]

Dodakaedr,

Да вроде перевел нормально и добавил,но как было так и осталось,что я делаю не так ?

[Dodakaedr]

Цитата Irenis:



Но мне нужно, чтобы этот установщик был в формате iso. Как это сделать попроще?

Скрипты Inno Setup. Помощь и советы [часть 7]

Так

.

[Dinvin4ester]

habib2302,
Цитата Habetdin:



Либо использовать shellexec

Скрипты Inno Setup. Помощь и советы [часть 7]

Пример





Код:

Код: Выделить всё

function InitializeSetup(): Boolean;
var ErrorCode : Integer;
begin
ShellExec('', ExpandConstant('{src}\Redist\PhysX.msi'),'/qn', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode);
Result:= True;
end;

[Dodakaedr]

Dinvin4ester, то что вы прописали у вас не используется. Возможно вы хотели вот это прописать

Код:

Код: Выделить всё

InstallSpacelabel1.Caption := CustomMessage(lang+'Install1');

[Dinvin4ester]

Dodakaedr,

ок,попробуем.

[Dinvin4ester]

Всем доброго времени суток, в данный момент в установщике "Удаление старых компонентов" и "Бекап компонентов" реализовано вот так:

Скачать скрипт

.

Но есть одна проблема, функция удаление старых компонентов работает не корректно. Получается, что когда выбираешь этот чекбокс, то он удаляет компоненты уже после их установки. Т.е. если, что-то устанавливаешь и выбираешь это чекбокс, то в итоге ничего не установится так как он удалят компоненты уже после установки. В идеала сначада должно удалить старые компоненты, а потом установить модификации. А в данный момент получается, что с начала идет установка а потом удаление и в итоге получается как-будто ничего не устанавливал.

Спасибо, что помогаете) Заранее огромное спасибо!

[Dodakaedr]

Kashtan007, если я правильно понял то вам нужна секция [InstallDelete].

Пример:

Код:

Код: Выделить всё

[InstallDelete]
Type: filesandordirs; Name: "{app}"

[Dodakaedr]

Можете кто-нибудь подсказать? В данном куске секции [Registry] есть чековые проверки RUPTracedRegExclExists, RUPJFCExcludeExists, RUPTracedProcInclExists, RUVerIs2. Как их можно реализовать? Спасибо!



Код:

Код: Выделить всё

Root: HKCU; Subkey: "Software\VS Revo Group\Revo Uninstaller Pro\Uninstaller\Traced\RegExclude"; ValueName: "HKEY_LOCAL_MACHINE\SYSTEM\*\services\Tcpip\Parameters"; ValueType: Dword; ValueData: "$C"; Check: "RUPTracedRegExclExists"; MinVersion: 0.0,5.01.2600 Service Pack 1; Flags: createvalueifdoesntexist 
Root: HKCU; Subkey: "Software\VS Revo Group\Revo Uninstaller Pro\Uninstaller\Traced\RegExclude"; ValueName: "HKEY_USERS\*\Local Settings\MuiCache"; ValueType: Dword; ValueData: "$C"; Check: "RUPTracedRegExclExists"; MinVersion: 0.0,5.01.2600 Service Pack 1; Flags: createvalueifdoesntexist 
Root: HKCU; Subkey: "Software\VS Revo Group\Revo Uninstaller Pro\Junk Files\Exclude"; ValueName: "%CommonProgramFiles(x86)%/"; ValueType: Dword; ValueData: "$1"; Check: "RUPJFCExcludeExists"; MinVersion: 0.0,5.01.2600 Service Pack 1; Flags: createvalueifdoesntexist 
Root: HKCU; Subkey: "Software\VS Revo Group\Revo Uninstaller Pro\Junk Files\Exclude"; ValueName: "%ProgramFiles(x86)%/uninstall information/"; ValueType: Dword; ValueData: "$1"; Check: "RUPJFCExcludeExists"; MinVersion: 0.0,5.01.2600 Service Pack 1; Flags: createvalueifdoesntexist 
Root: HKCU; Subkey: "Software\VS Revo Group\Revo Uninstaller Pro\Junk Files\General\Extensions"; ValueName: "*.??~"; ValueType: Dword; ValueData: "$1"; Check: "RUPJFCExtExists"; MinVersion: 0.0,5.01.2600 Service Pack 1; Flags: createvalueifdoesntexist 
Root: HKCU; Subkey: "Software\VS Revo Group\Revo Uninstaller Pro\Uninstaller\Traced\ProcInclude"; ValueName: "%windir%\system32\rundll32.exe"; ValueType: Dword; ValueData: "$1"; Check: "RUPTracedProcInclExists"; MinVersion: 0.0,5.01.2600 Service Pack 1; Flags: createvalueifdoesntexist 
Root: HKCU; Subkey: "Software\VS Revo Group\Revo Uninstaller Pro\Uninstaller\Traced\ProcInclude"; ValueName: "%windir%\system32\svchost.exe"; ValueType: Dword; ValueData: "$1"; Check: "RUPTracedProcInclExists"; MinVersion: 0.0,5.01.2600 Service Pack 1; Flags: createvalueifdoesntexist 
Root: HKCU; Subkey: "Software\VS Revo Group\Revo Uninstaller Pro\ProfUIS\Profiles\Revo Uninstaller Pro\ControlBar"; Check: "RUVerIs2"; MinVersion: 0.0,5.01.2600 Service Pack 1; Flags: deletekey 
Root: HKCU; Subkey: "Software\VS Revo Group\Revo Uninstaller Pro\ProfUIS\Profiles\Revo Uninstaller Pro\ReportGrid\TracedProgramsReportGridSettings"; Check: "RUVerIs2"; MinVersion: 0.0,5.01.2600 Service Pack 1; Flags: deletekey 
Root: HKCU; Subkey: "Software\VS Revo Group\Revo Uninstaller Pro\ProfUIS\Profiles\Revo Uninstaller Pro\ReportGrid\AllProgramsReportGridSettings"; Check: "RUVerIs2"; MinVersion: 0.0,5.01.2600 Service Pack 1; Flags: deletekey 
Root: HKCU; Subkey: "Software\VS Revo Group\Revo Uninstaller Pro\View"; ValueName: "Theme"; ValueType: Dword; ValueData: "$8"; Check: "RUVerIs2"; MinVersion: 0.0,5.01.2600 Service Pack 1; 
Root: HKCU; Subkey: "Software\VS Revo Group\Revo Uninstaller Pro\General"; ValueName: "Ver3"; ValueType: String; ValueData: "3"; MinVersion: 0.0,5.01.2600 Service Pack 1;

[saneksanek]

Цитата Dodakaedr:



есть чековые проверки RUPTracedRegExclExists... Как их можно реализовать?

Скрипты Inno Setup. Помощь и советы [часть 7]

Код:

Код: Выделить всё

[code]
Function RUPTracedRegExclExists () : boolean;
begin
 ...
 if ... then result:= true else result := false;
end;

после Check в секции Registry кавычки не нужны

[Dodakaedr]

R.i.m.s.k.y., ну это как-бы понятно. "..." - что там нужно указывать? Вот что интересует.