Создание инсталляторов для модпаков на базе Inno Setup

[Lom]

18 минут назад, night_dragon_on сказал:

@ЛОМ , в китайке добавлено множество своих функций, кторых нет в стандарте. От этого ошибки лезут ввиду их отстутствия.

 

короче видно не судьба нам))) 

[ktulho]

@D_MAN_1987 не совсем понятно, что вы сделать в этой строчке:

Result:=ExpandConstant(Buffer);

попробуйте заменить ее на:

Result := Copy(Buffer,0,Pos(#0, Buffer));

 

[DuMaH_K]

1 минуту назад, ktulho сказал:

не совсем понятно, что вы сделать в этой строчке

Я тоже не понимаю что творю)

2 минуты назад, ktulho сказал:

попробуйте заменить ее на:

Result := Copy(Buffer,0,Pos(#0, Buffer));

тот же результат - пустая строка адреса

[ktulho]

@D_MAN_1987 измените

for Index:=1 to ClientsCount do

на

for Index:=0 to ClientsCount - 1 do

 

@D_MAN_1987 А вообще это я туплю. Что должна вернуть функция WotDir?

Edited January 6, 2018 by ktulho

[DuMaH_K]

@ktulho ну по идее строку с результатом WOT_GetClientPathW 

[ktulho]

1 минуту назад, D_MAN_1987 сказал:

ну по идее строку с результатом WOT_GetClientPathW 

Какую? Путь к релизу WOT?

[DuMaH_K]

@ktulho ну мне это нужно) Но результата никакого не могу добиться. Если есть готовый пример, как получить путь к релизу, одарите, если возможно) Вариант с реестром не всегда подходит, просто...

[ktulho]

@D_MAN_1987 Попробуйте, могу ошибиться в синтаксисе, не имею опыта написания на InnoSetup:

function WotDir (Path: String): String;
var
  ClientsCount, Index: Integer;
begin
  ClientsCount:= WOT_GetClientsCount();
  if ClientsCount > 0 then
    begin
      Result:= 'Not found';
      for Index:=0 to ClientsCount - 1 do 
      begin
        WOT_GetClientVersionW(Buffer, Length(Buffer)-1, Index);
        if WOT_GetClientBranch(Index) = 1 then   
          begin
            WOT_GetClientPathW(Buffer, Length(Buffer)-1, Index);
            Result:=Copy(Buffer, 0, Pos(#0, Buffer));
            Exit;
          end;
      end;
    end; 
end;

 

Edited January 6, 2018 by ktulho

[Andrew_Dark]

Всех с праздниками ребят! Сейчас работаю вот с этим кодом: 02_CheckListBox.iss 

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

[DuMaH_K]

@ktulho ничего не понимаю... DefaultDirName={code:WotDir} указано, вызов функции есть, ошибок нет, а результат все равно такой:

Задача то пустяковая. Найти нужную папку и закинуть в неё другую папку, а вожусь уже третьи сутки...

[ktulho]

@D_MAN_1987 прикрепите исходник.

[DuMaH_K]

@ktulho 

Desktop.zip

[ktulho]

@D_MAN_1987 проверьте Desktop.rar

[DuMaH_K]

@ktulho у вас компилится?? у меня нет

[ktulho]

@D_MAN_1987 извиняюсь, не сохранил Desktop.rar

[DuMaH_K]

@ktulho и мы вернулись к результату "двухстраничной" давности....

Пришлите ваш экзешник, пожалуйста, попробую его у себя запустить, посмотрим что покажет

[ktulho]

@D_MAN_1987 OLENI_v17.exe

[DuMaH_K]

@ktulho ну етижипасатижи! Нормально определил! А у меня дичь выдает... 

5,5,9(а) версия

у вас какая?

 

[ktulho]

@D_MAN_1987 надо unicod версию ставить.

Или использовать функции заканчивающиеся на А. Например WGC_GetInstallPathA

Edited January 6, 2018 by ktulho

[DuMaH_K]

@ktulho я думаю здесь описаны все имеющиеся в библиотеке процедуры.

В общем спасибо всем, кто тратил время и нервы) Поставил юникод версию и заработало)