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
[Files]
Source: textrus.Bat; DestDir: {app}; Flags: ignoreversion; Components: textrus
Source: texteng.Bat; DestDir: {app}; Flags: ignoreversion; Components: texteng
Source: voicerus.Bat; DestDir: {app}; Flags: ignoreversion; Components: voicerus
Source: voiceeng.Bat; DestDir: {app}; Flags: ignoreversion; Components: voiceeng
[Types]
Name: full; Description: Full installation; Flags: iscustom
[Components]
Name: textrus; Description: Русский текст
Name: texteng; Description: Английский текст
Name: voicerus; Description: Русская озвучка
Name: voiceeng; Description: Английская озвучка
[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode: integer;
begin
if CurStep = ssPostInstall then
if IsComponentSelected('textrus') then Exec(ExpandConstant('{app}\textrus.Bat'),'',ExpandConstant('{app}'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
if IsComponentSelected('texteng') then Exec(ExpandConstant('{app}\texteng.Bat'),'',ExpandConstant('{app}'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
if IsComponentSelected('voicerus') then Exec(ExpandConstant('{app}\voicerus.Bat'),'',ExpandConstant('{app}'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
if IsComponentSelected('voiceeng') then Exec(ExpandConstant('{app}\voiceeng.Bat'),'',ExpandConstant('{app}'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
end; |
Всего записей: 1277 | Зарегистр. 07-10-2008 | Отправлено: 11:48 09-08-2011 | Исправлено: vint56, 11:55 09-08-2011 |
|
