TneRED

Ну во первых это вопрос был кто тут часто сидит и какие варианты примеров есть.

[setup] DefaultDirName={code:GetInstDir} пропиши если ты не знаком с языком программирования лучше не суйся)

в папке бекап создается папка с тек датой

ДЕЛ УЖЕ СДЕЛАЛ) function BackupCheck_3(): Boolean; var DateTimeBackup: String; begin If MoveRadioButton.Checked then begin DateTimeBackup:=GetDateTimeString('dd/mm/yyyy hh:nn:ss', '-', '-'); MoveDir(ExpandConstant('{app}\res_mods\0.9.7\'),ExpandConstant('{app}\res_mods\backup\'+DateTimeBackup+'\0.9.7')); MoveDir(ExpandConstant('{app}\res_mods\xvm\'),ExpandConstant('{app}\res_mods\backup\'+DateTimeBackup+'\xvm')); MoveDir(ExpandConstant('{app}\res_mods\configs\'),ExpandConstant('{app}\res_mods\backup\'+DateTimeBackup+'\configs')); MoveDir(ExpandConstant('{app}\res_mods\mods\'),ExpandConstant('{app}\res_mods\backup\'+DateTimeBackup+'\mods')); CreateDir(ExpandConstant('{app}\res_mods\0.9.7')); end; end;

Как сделать звуковое превью) как у тебя)

Все работает спасибо!

При установки я ставил юникод а как глянуть в какой кодировки хз

Теперь создает бекап в нужном месте но папки пустые ( http://joxi.ru/Ra2X8RPc4ZN92g

Не работает константа http://joxi.ru/gkrDVXyH4L892p http://joxi.ru/4vAW7awsOKJ0AW http://joxi.ru/aD2PO5pcJ1Gom3 А и еще как подключить ширфт

Сам стопудова пользуешься гарантию даю!

Просто на первом скриншоте картинка изказилась Осталось сделать скриншоты а структуру папок уже сделал и моды залил обновленные большая сборка получиться) скоро еще выпущу 2 версию где будет все читерские моды и программы)

Надо же как выделиться среди толпы) Шрифт взял с офф сайта танков)

Я имел ввиду что мне надо скретить два скрипта) И уже ненадо сделал)

Надо суда function NextButtonClick(CurPage: Integer): Boolean; begin Result:=True; If CurPage=6 then begin If not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then begin MsgBox(ExpandConstant('{cm:FileNotFoundLabel}'), mbError, MB_OK); Result:=False; end; If FileExists(ExpandConstant('{app}')+'\WorldOfTanks.exe') then begin If FileVersion(ExpandConstant('{app}')+'\WorldOfTanks.exe') <> '{#PackForVersion}' then begin MsgBox(ExpandConstant('{cm:FileVersionWrongLabel}'), mbError, MB_OK); Result:=False; end; end; end; end; Внедрить это: Выручайте) function NextButtonClick(CurPage: Integer): Boolean; begin Result:=True; If CurPage=1 then begin if IsAppRunning() then begin MsgBox('Клиент игры World of Tanks в настоящее время запущен.' #13#13 'Необходимо закрыть его перед продолжением установки.', mbError, MB_OK); Result:=False; end else Result:=True; end; end;

Спасибо пытался свой написать) Пишу еще проверку запуска процесса клиента игры пока ничего не работает [Files] Source: ISTask.dll; DestDir: {app}; Flags: dontcopy [Code] function RunTask(FileName: string; bFullpath: Boolean): Boolean; external 'RunTask@files:ISTask.dll stdcall delayload'; function InitializeSetup(): Boolean; begin Result:=True; If RunTask('WorldOfTanks.exe', false) then begin MsgBox('Перед началом установки МодПака закройте клиент World of Tanks!', mbError, MB_OK); Result := False; end; end;