cepbl4
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[code]
procedure CurStepChanged(CurStep: TSetupStep);
Var
ResultCode: integer;
begin
if CurStep = ssPostInstall then
begin
if PsyhX.Checked then //Это чекбоксы
begin
StatusLabel.Caption:=ExpandConstant('{cm:PsyhXInstall}')
Exec(ExpandConstant('{src}\Redist\PhysX_9.09.0428_SystemSoftware.exe'), '/quiet', ExpandConstant('{src}\Redist'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;
if DirectX.Checked then //Это чекбоксы
begin
StatusLabel.Caption:=ExpandConstant('{cm:DirectXInstall}')
Exec(ExpandConstant('{src}\DirectX\DXSETUP.exe'), '/silent', ExpandConstant('{src}\DirectX'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;
if Redist.Checked then //Это чекбоксы
begin
StatusLabel.Caption:=ExpandConstant('{cm:RedistInstall}')
if isWin64 then
Exec(ExpandConstant('{src}\Redist\vcredist_x64.exe'), '/Q', ExpandConstant('{src}\Redist'), SW_SHOW, ewWaitUntilTerminated, ResultCode)
else begin
Exec(ExpandConstant('{src}\Redist\vcredist_x86.exe'), '/Q', ExpandConstant('{src}\Redist'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;
end;
end;
end; |
Всего записей: 348 | Зарегистр. 19-11-2007 | Отправлено: 12:18 14-05-2010 | Исправлено: cepbl4, 12:38 14-05-2010 |
|
