MOD_TEC
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
YURSHAT
Спасибо... Незнаешь случайно как чекбоксу текструированному через ботву
задать функцию, чтобы при выборе устанавливался дополнительный софт через
секцию [Code]....
Вот код:
procedure Soft(CurStep: TSetupStep);
var res: integer; ErrorCode : Integer;
begin
if (CurStep = ssPostInstall) and not ISDoneError then begin
If LabelCheckBox.Checked then begin
#ifdef PhysX
ShellExec('', ExpandConstant('{#RedistFolder}\{#PhysX}'),'/qn', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode);
#endif
#ifdef GameForWindows
ShellExec('', ExpandConstant('{#RedistFolder}\{#GameForWindows}'),'/qn', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode);
#endif
#ifdef DirectX
Exec(ExpandConstant('{#RedistFolder}\{#DirectX}'), '', ExpandConstant('{#RedistFolder}'), SW_SHOW, ewWaitUntilTerminated, Res);
#endif
#ifdef DotNet
Exec(ExpandConstant('{#RedistFolder}\{#DotNet}'), '', ExpandConstant('{#RedistFolder}'), SW_SHOW, ewWaitUntilTerminated, Res);
#endif
#ifdef VCx64
if isWin64 then
Exec(ExpandConstant('{#RedistFolder}\{#VCx64}'), '/Q', ExpandConstant('{#RedistFolder}'), SW_SHOW, ewWaitUntilTerminated, Res)
else
#endif
#ifdef VCx86
Exec(ExpandConstant('{#RedistFolder}\{#VCx86}'), '/Q', ExpandConstant('{#RedistFolder}'), SW_SHOW, ewWaitUntilTerminated, Res);
#endif
end;
end;
end; |
