zema1982
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
New_KoMa, еще раз извините за беспокойство, не могли бы вы на примере
Код: procedure Install_Dop();
var
ResultCode:integer;
begin
if Dop.Checked
Then Exec(ExpandConstant('{src}\Redist\DirectX\dxsetup.exe'), '/silent', ExpandConstant('{src}\Redist\DirectX'), SW_HIDE, ewWaitUntilTerminated,ResultCode);
if Ms.Checked
Then Exec(ExpandConstant('{src}\Redist\Ageya\PhysX_9.09.0203_SystemSoftware.exe'), '/quiet', ExpandConstant('{src}\Redist\Ageya'), SW_HIDE, ewWaitUntilTerminated, ResultCode);
if flag3.Checked
Then Exec(ExpandConstant('{src}\Redist\WMV\wmvsetup.exe'), '/q', ExpandConstant('{src}\Redist\WMV\'), SW_HIDE, ewWaitUntilTerminated, ResultCode);
if flag4.Checked
Then Exec(ExpandConstant('{src}\Redist\GameSpy\ComradeSetup1.6.4.162.exe'), '/s/v/qn', ExpandConstant('{src}\Redist\GameSpy\'), SW_HIDE, ewWaitUntilTerminated, ResultCode);
if flag5.Checked
Then Exec(ExpandConstant('{src}\Redist\WindowsLive\XLive.msi'),'/passive', ExpandConstant('{src}\Redist\WindowsLive\'), SW_HIDE, ewWaitUntilTerminated,ResultCode);
end; |
вставить Ваш код
Код: procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
if UnPack(Archives) <> 0 then
begin
UnpackingAborted:= true; //çàìåíà òåêñòà íà ñòðàíèöå wpFinished
Exec(ExpandConstant('{uninstallexe}'), '/SILENT','', sw_Hide, ewWaitUntilTerminated, n);
DelTree(ExpandConstant('{app}'), True, True, True)
end else Install_Dop()
end; |
. У меня выбивает ошибку на строку if UnPack(Archives) <> 0 then
Заранее благодарен Вам и всем кто помогает таким новичкам как я))
Забыл еще спросить - вопрос с установкой Windows Live так у меня и не решился... Не устанавливается ни с какими параметрами - нет скрытой,видимой, будь ли какой установки...(( |
Всего записей: 12 | Зарегистр. 13-07-2009 | Отправлено: 13:51 27-07-2009 | Исправлено: zema1982, 13:53 27-07-2009 |
|
