Klensal
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как организировать возможность сочетания текста и озвучки с тремя архивами !?
Comps1:=0; Comps2:=0; Comps3:=0;
#ifdef Components
TmpValue:=1;
if BtnGetChecked(LanguagetextButton[1]) then Comps1:=Comps1+TmpValue; //Компонент 1
TmpValue:=TmpValue*2;
if BtnGetChecked(LanguagetextButton[2]) then Comps1:=Comps1+TmpValue; //Компонент 2
TmpValue:=TmpValue*2;
if BtnGetChecked(LanguagevoiceButton[1]) then Comps1:=Comps1+TmpValue; //Компонент 3
TmpValue:=TmpValue*2;
if BtnGetChecked(LanguagevoiceButton[2]) then Comps1:=Comps1+TmpValue; //Компонент 4
#endif
#ifdef precomp
PCFVer:={#precomp};
#else
PCFVer:=0;
#endif
ISDoneError:=true;
if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, 0, @ProgressCallback) then begin
repeat
// ChangeLanguage('English');
if not SrepInit(ExpandConstant('{app}\'),128,0) then break;
if not PrecompInit(ExpandConstant('{app}\'),128,PCFVer) then break;
if not FileSearchInit(true) then break;
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\BastionEN.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
//полная английская версия
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\DataTextRu.bin'), ExpandConstant('{app}\Content'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
//Рус текст
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\DataVoiceRu.bin'), ExpandConstant('{app}\Content\Audio'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
//Рус звук
P.S. если не сложно розписать что и как. |
Всего записей: 4 | Зарегистр. 01-04-2014 | Отправлено: 18:01 01-04-2014 | Исправлено: Klensal, 02:32 03-04-2014 |
|
