[NewMix]

Здравствуйте. Делаю модпак для танков и столкнулся с такой проблемой. В общем прописываю путь из реестра в скрипт мол чтобы определить установлена ли игра или нет, проверить версию патча и т.д но он не может найти игру. В чем проблема? Вот часть скрипта и скрин. Сразу говорю что использовал исходник от какого то мода для сталкера где была вбита проверка на игру и версию патча.

PHP код:

//Ищем в реестре место расположения игры

function GetAppDir(Path: String): String;

begin

  if RegKeyExists(HKEY_LOCAL_MACHINE, 'Software\Wargaming.net\wot') then begin

    RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\Wargaming.net\wot', 'InstallPath', Path);

    Result := Path end else

  Result := ExpandConstant('{pf}\Software\Wargaming.net\wot')

end;



//Выполняем проверку системы на соответсвтвие моду

procedure CheckRequirements(CurPageID: Integer);

var

  Path, Vers: String;

begin

  if CurPageID=SystemPage.ID then

  begin

    //Ищем папку с игрой

    if RegValueExists(HKLM, 'Software\Wargaming.net\wot', 'InstallPath') then

    begin

      RegQueryStringValue(HKLM, 'Software\Wargaming.net\wot', 'InstallPath', Path)

      GamePathFindMemo.Caption := ExpandConstant('{cm:GameDetected}');

    end else

    begin

      GamePathFindMemo.Caption := ExpandConstant('{cm:GameNotDetected}');

      GamePathFindMemo.Color := clRed;

      ReqSatisfy.Caption := ExpandConstant('{cm:NotReqSatisfy}');

    end;



    //Ищем и проверяем версию игры

    if RegValueExists(HKLM, 'Software\Wargaming.net\wot', 'InstallVers') then

    begin

      RegQueryStringValue(HKLM, 'Software\Wargaming.net\wot', 'InstallVers', Vers)

      if Vers = ExpandConstant('{#NeedVers}') then

        GameVersFindMemo.Caption := ExpandConstant('{cm:GameVersDetected} ') + Vers

      else begin

        GameVersFindMemo.Caption := ExpandConstant('{cm:GameVers} ') + Vers + ExpandConstant(' {cm:GameVersNotSatisfy}');

        GameVersFindMemo.Color := clRed;

        ReqSatisfy.Caption := ExpandConstant('{cm:NotReqSatisfy}');

      end

    end else

    begin

      GameVersFindMemo.Caption := ExpandConstant('{cm:GameVersNotDetected}');

      GameVersFindMemo.Color := clRed;

      ReqSatisfy.Caption := ExpandConstant('{cm:NotReqSatisfy}');

    end;



    //Ищем наличие модов в папке с игрой

    if RegValueExists(HKLM, 'Software\Wargaming.net\wot', 'InstallPath') then

    begin

      if DirExists(Path+'\res_mods\0.9.6') then

      begin

        GameModFindMemo.Caption := ExpandConstant('{cm:ModDetected}');

        GameModFindMemo.Color := clRed;

        ReqSatisfy.Caption := ExpandConstant('{cm:NotReqSatisfy}');

        RenameCheckBox.Show;

      end else

        GameModFindMemo.Caption := ExpandConstant('{cm:ModNotDetected}');

      end else

    begin

      GameModFindMemo.Caption := ExpandConstant('{cm:GameNotDetected}');

      GameModFindMemo.Color := clRed;

      ReqSatisfy.Caption := ExpandConstant('{cm:NotReqSatisfy}');

    end;

  end;

end; 

[kotyarko@fb]

NewMix, а что, пользователю не предоставляется возможность вручную выбрать папку с игрой? - Это неправильно. Бывают ситуации, когда в реестре нет следов от игры, а она есть.

HKEY_LOCAL_MACHINE »

Текущий установщик заносит ветку игры в HKEY_CURRENT_USER. Поэтому лучше скомбинировать.

[NewMix]

NewMix, а что, пользователю не предоставляется возможность вручную выбрать папку с игрой? - Это неправильно. Бывают ситуации, когда в реестре нет следов от игры, а она есть. Цитата NewMix: HKEY_LOCAL_MACHINE » Текущий установщик заносит ветку игры в HKEY_CURRENT_USER. Поэтому лучше скомбинировать. »

а если не трудно можешь кинуть исправленный код ибо я уже не догоняю что и как делать. Но запасная проверка на исполнительный файл есть позже при выборе места установки.

[NewMix]

Сделал все как в этом уроке и вылетает такая ошибка, в чем проблема?

[kotyarko@fb]

в чем проблема? »

Нужна расширенная версия компилятора.

[NewMix]

Нужна расширенная версия компилятора. »

так у меня и так стоит inno setup plus

[dracosha]

NewMix, а что за сборка такая inno setup plus? Гугл тоже не в курсе про такую сборку
Рекомендую установить полную версию сборки InnoSetup Ultra

[R.i.m.s.k.y.]

dracosha, а автору можно отписать? а то вместо инно ультра качается какая-то заглушка

[dracosha]

R.i.m.s.k.y. отписал.
Залил полную версию InnoUltra на drive.google.com и ссылку выше временно изменил.

[NewMix]

А такой еще вопрос, как изменить размер инсталятора?