Dimbay
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Kindly
Genri
Делаю инсталлятор для мода на Рим.Всё хорошо,но так и не справился с поставленной собою задачей(сделать всё это в одном скрипте).Для того чтобы запускался звук мода,необходимо сначала с помощью батника распаковать оригинальный звук Рима, и только затем закинуть с заменой свои папки(звук мода),ну и потом с помощью другово батника всё это запаковать!Дело в том,что всё это получается только если делать два скрипта,ну и соответственно получается две инсталяхи.
С праздничком! (у нас в Казахстане вчера Новый Год наступил... (Наурыз) )
Добавлено:
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
--------------------------------------------------------------------------------
[то,что не работает...
[Languages]
Name: english; MessagesFile: compiler:Default.isl
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Files]
Source: D:\Mod\data_m\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs overwritereadonly
Source: unpackmusic.bat; DestDir: {app}; AfterInstall: Unpack(); Flags: ignoreversion
Source: D:\Mod\data_unpack\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
Source: Patch_for_Music_Mod.bat; DestDir: {app}; AfterInstall: Pack(); Flags: ignoreversion
Source: D:\Mod\data_patch\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
Source: setup.ico; DestDir: {app}
[Icons]
Name: {group}\{cm:UninstallProgram,Mod}; Filename: {uninstallexe}
Name: {commondesktop}\Mod; Filename: {app}\RomeTW-BI.EXE; WorkingDir: {app}; IconFilename: {app}\setup.ico; Parameters: " -nm"
Name: {group}\Mod; Filename: {app}\rometw-bi.exe; WorkingDir: {app}; IconFilename: {app}\setup.ico; IconIndex: 0; Parameters: " -nm"
[Code]
procedure Unpack();
var
ResultCode: Integer;
begin
Exec(ExpandConstant('{app}\unpackmusic.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
DeleteFile(ExpandConstant('{app}\unpackmusic.bat'));
end;
procedure Pack();
var
ResultCode: Integer;
begin
Exec(ExpandConstant('{app}\Patch_for_Music_Mod.bat'), '', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
DeleteFile(ExpandConstant('{app}\Patch_for_Music_Mod.bat'));
DelTree(ExpandConstant('{app}')+'\data\sounds\data', True, True, True);
end;[/more]
Добавлено:
Видите,даже тэги нормально закрыть не могу |
Просто протупил, ну в ту директорию файл засунул 
