vint56
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
DisableProgramGroupPage=yes
ShowComponentSizes=false
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Types]
Name: full; Description: Full installation; Flags: iscustom
[Components]
Name: textrus; Description: Русский текст; Flags: exclusive;
Name: texteng; Description: Английский текст; Flags: exclusive;
Name: voicerus; Description: Русская озвучка; Flags: exclusive;
Name: voiceeng; Description: Английская озвучка; Flags: exclusive;
[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode: integer;
begin
if CurStep = ssPostInstall then
if IsComponentSelected('textrus') then Exec(ExpandConstant('{app}\Run.Bat'),'',ExpandConstant('{app}'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
if IsComponentSelected('texteng') then Exec(ExpandConstant('{app}\Run.Bat'),'',ExpandConstant('{app}'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
if IsComponentSelected('voicerus') then Exec(ExpandConstant('{app}\Run.Bat'),'',ExpandConstant('{app}'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
if IsComponentSelected('voiceeng') then Exec(ExpandConstant('{app}\Run.Bat'),'',ExpandConstant('{app}'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
end; |
