murlakatamenka
Новичок
но тем не менее такого лично я больше нигде не видел. да и просто его изучение и "препарирование" может быть полезнымДа мне не жалко - только тот скрипт заброшен и не доделан.
но тем не менее такого лично я больше нигде не видел. да и просто его изучение и "препарирование" может быть полезнымДа мне не жалко - только тот скрипт заброшен и не доделан.
Забыл на Ansi проверить. На Unicode то все норм. (так отвык что ansi лажает... )
if not ISExec ( 0, 0, 0, ExpandConstant('{tmp}\Arc.exe'), ExpandConstant('x -o+ "{src}\game-5.bin" -hp25246 -dp "{app}"'), ExpandConstant('{app}'), '...',False) then break;
FindHandle1:=ISFindFiles(0,ExpandConstant('{app}\*.ogg'),ColFiles1);
ExecError:=false;
while not ExecError and ISPickFilename(FindHandle1,ExpandConstant('{app}\'),CurIndex1,true) do begin
InFilePath:=ISGetName(0);
OutFilePath:=ISGetName(1);
OutFileName:=ISGetName(2);
ExecError:=not ISExec(0, 0, 0, ExpandConstant('{tmp}\oggdec.exe'), '"'+InFilePath+'" -w "'+OutFilePath+'"',ExpandConstant('{tmp}'),OutFileName,false);
end;
ISFindFree(FindHandle1);
if ExecError then break;