Lom 48 #417739 Posted January 6, 2018 18 минут назад, night_dragon_on сказал: @ЛОМ , в китайке добавлено множество своих функций, кторых нет в стандарте. От этого ошибки лезут ввиду их отстутствия. короче видно не судьба нам))) Quote Share this post Link to post Short link Share on other sites
ktulho 5,793 #417741 Posted January 6, 2018 @D_MAN_1987 не совсем понятно, что вы сделать в этой строчке: Result:=ExpandConstant(Buffer); попробуйте заменить ее на: Result := Copy(Buffer,0,Pos(#0, Buffer)); Quote Share this post Link to post Short link Share on other sites
DuMaH_K 15 #417742 Posted January 6, 2018 1 минуту назад, ktulho сказал: не совсем понятно, что вы сделать в этой строчке Я тоже не понимаю что творю) 2 минуты назад, ktulho сказал: попробуйте заменить ее на: Result := Copy(Buffer,0,Pos(#0, Buffer)); тот же результат - пустая строка адреса Quote Share this post Link to post Short link Share on other sites
ktulho 5,793 #417744 Posted January 6, 2018 (edited) @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 Quote Share this post Link to post Short link Share on other sites
DuMaH_K 15 #417750 Posted January 6, 2018 @ktulho ну по идее строку с результатом WOT_GetClientPathW Quote Share this post Link to post Short link Share on other sites
ktulho 5,793 #417752 Posted January 6, 2018 1 минуту назад, D_MAN_1987 сказал: ну по идее строку с результатом WOT_GetClientPathW Какую? Путь к релизу WOT? Quote Share this post Link to post Short link Share on other sites
DuMaH_K 15 #417755 Posted January 6, 2018 @ktulho ну мне это нужно) Но результата никакого не могу добиться. Если есть готовый пример, как получить путь к релизу, одарите, если возможно) Вариант с реестром не всегда подходит, просто... Quote Share this post Link to post Short link Share on other sites
ktulho 5,793 #417757 Posted January 6, 2018 (edited) @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 Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #417758 Posted January 6, 2018 Всех с праздниками ребят! Сейчас работаю вот с этим кодом: 02_CheckListBox.iss и получаю на выходе небольшую траблу, а именно, при условии, что на нескольких кастомных чеклистах находятся чекбоксы с вариантами на выбор в виде радиобаттонов, то выбрав сначала один из радиобаттонов в одном из компонентов, а потом во втором компоненте, получаю на выходе в готовом инсталле первый отмеченный чекбокс, причём неотмеченный в нём ни один из радиобаттонов, во втором выбранном компоненте всё отрабатывает норм, до той поры, пока снова не выбрать в списке компонентов какой либо радиобаттон. Помогите исправить пожалуйста. Quote Share this post Link to post Short link Share on other sites
DuMaH_K 15 #417759 Posted January 6, 2018 @ktulho ничего не понимаю... DefaultDirName={code:WotDir} указано, вызов функции есть, ошибок нет, а результат все равно такой: Задача то пустяковая. Найти нужную папку и закинуть в неё другую папку, а вожусь уже третьи сутки... Quote Share this post Link to post Short link Share on other sites
ktulho 5,793 #417762 Posted January 6, 2018 @D_MAN_1987 прикрепите исходник. Quote Share this post Link to post Short link Share on other sites
DuMaH_K 15 #417766 Posted January 6, 2018 @ktulho Desktop.zip Quote Share this post Link to post Short link Share on other sites
ktulho 5,793 #417768 Posted January 6, 2018 @D_MAN_1987 проверьте Desktop.rar 1 Quote Share this post Link to post Short link Share on other sites
DuMaH_K 15 #417771 Posted January 6, 2018 @ktulho у вас компилится?? у меня нет Quote Share this post Link to post Short link Share on other sites
ktulho 5,793 #417772 Posted January 6, 2018 @D_MAN_1987 извиняюсь, не сохранил Desktop.rar Quote Share this post Link to post Short link Share on other sites
DuMaH_K 15 #417774 Posted January 6, 2018 @ktulho и мы вернулись к результату "двухстраничной" давности.... Пришлите ваш экзешник, пожалуйста, попробую его у себя запустить, посмотрим что покажет Quote Share this post Link to post Short link Share on other sites
ktulho 5,793 #417775 Posted January 6, 2018 @D_MAN_1987 OLENI_v17.exe Quote Share this post Link to post Short link Share on other sites
DuMaH_K 15 #417776 Posted January 6, 2018 @ktulho ну етижипасатижи! Нормально определил! А у меня дичь выдает... 5,5,9(а) версия у вас какая? Quote Share this post Link to post Short link Share on other sites
ktulho 5,793 #417777 Posted January 6, 2018 (edited) @D_MAN_1987 надо unicod версию ставить. Или использовать функции заканчивающиеся на А. Например WGC_GetInstallPathA Edited January 6, 2018 by ktulho Quote Share this post Link to post Short link Share on other sites
DuMaH_K 15 #417779 Posted January 6, 2018 @ktulho я думаю здесь описаны все имеющиеся в библиотеке процедуры. В общем спасибо всем, кто тратил время и нервы) Поставил юникод версию и заработало) Quote Share this post Link to post Short link Share on other sites