Lom 48 #417780 Posted January 6, 2018 1 минуту назад, D_MAN_1987 сказал: @ktulho я думаю здесь описаны все имеющиеся в библиотеке процедуры. В общем спасибо всем, кто тратил время и нервы) Поставил юникод версию и заработало) код который у тебя заработал скинь полностью)) 1 Quote Share this post Link to post Short link Share on other sites
ktulho 5,791 #417781 Posted January 6, 2018 9 минут назад, D_MAN_1987 сказал: я думаю здесь описаны все имеющиеся в библиотеке процедуры. Почти. Здесь описаны. Quote Share this post Link to post Short link Share on other sites
DuMaH_K 15 #417783 Posted January 6, 2018 @ktulho очень спасибо @ЛОМ вот тут рабочий вариант 1 Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #418418 Posted January 14, 2018 (edited) Ловлю ошибку Out of Range в скрипте, помогите поправить кто либо. Плюс не находит и не распаковывает файлы модов из вложенных файлов, только если вложенность типа "папка\файл". Edited January 14, 2018 by Darksoul 1 Quote Share this post Link to post Short link Share on other sites
night_dragon_on 5,601 #418435 Posted January 14, 2018 @Darksoul , ошибка ссылается на функцию: 02_CheckListBox.iss function clbIsItemCheckedByName(clbind:integer; Name:AnsiString):boolean; var ii:integer; begin ii:=clbFindItemByName(clbind,Name); Result:=CheckBoxGetChecked(ACLB[clbind].ItemList[ii].Handle); end; Виновник - 09_Log.iss procedure CreateLogModsChanged; Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #418454 Posted January 14, 2018 (edited) Исправил, изменив функцию, на function clbIsItemCheckedByName(clbind:integer; Name:AnsiString):boolean; var ii:integer; begin ii:=clbFindItemByName(clbind,Name); if ii <> -1 then Result:=CheckBoxGetChecked(ACLB[clbind].ItemList[ii].Handle) else Result:=False; end; Плюс я немного тупанул был, не закомментил лишнее. Edited January 14, 2018 by Darksoul 1 Quote Share this post Link to post Short link Share on other sites
NyanDora_Mech_Tank 1 #419401 Posted January 28, 2018 Hello, Sorry for using English, but I have a question I used the given source code to build setup, but it has an error: The browsed location of World of Tanks game folder automatically add another text "World_of_Tanks" to the end of the address, leads to the wrong output folder after installation. I used 3 ISS files to build this setup, attached below. Could anyone show me how to fix this? Components.iss Messages.iss script.iss 1 Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #419402 Posted January 28, 2018 37 minutes ago, NyanDora_Mech_Tank said: The browsed location of World of Tanks game folder automatically add another text "World_of_Tanks" to the end of the address, leads to the wrong output folder after installation. Add a new parameter to the Setup section: AppendDefaultDirName=no 1 Quote Share this post Link to post Short link Share on other sites
night_dragon_on 5,601 #420442 Posted February 8, 2018 (edited) Очистка сообщения ... Edited April 7, 2020 by night_dragon_on Очистка вложений ... 3 Quote Share this post Link to post Short link Share on other sites
Lom 48 #420520 Posted February 9, 2018 (edited) всем привет. подскажите в чем проблема. думал в моём скрипте что то я не правильно сделал ( в коде накосячил или что то не туда вписал и тд ). но... сделав простенький скрипт та же проблема осталась. и вот теперь я вообще ничего не понимаю))) на скрине видно о чем речь. именно в пунктах где радиобутоны вот именно они сами собой выбираются. ну после удаления модпака конечно всё по новой )) пока второй раз установку не начнешь))) P/S... вопрос решен. спасибо Xotabych !!! Edited February 9, 2018 by ЛОМ 1 Quote Share this post Link to post Short link Share on other sites
Draug 59 #421042 Posted February 13, 2018 (edited) Подскажите может кто знает)) как сделать так чтоб определенная папка с модами ставилась по умолчанию по любому, но... если только выбрали хоть один мод из сборки! P.S. все вопрос решен, спасибо ЛОМ за помощь! Edited February 13, 2018 by Draug 1 Quote Share this post Link to post Short link Share on other sites
Draug 59 #421305 Posted February 16, 2018 когда в установщике выбираешь мод и наводишь мышкой на название там картинка отображается... и чем дальше наведешь на название чем дальше эта картинка уходит... как сделать так чтоб картинка оставалась всегда на одном месте? тоесть чтоб как бы прилипла с правого края главного окошка установщика? сейчас стоит так: Цитата #ifdef UNICODE #define A "W" #else #define A "A" #endif const UNDEF_INDEX = -777; ALPHA_BLEND_LEVEL = 255; // max=Byte=255 WS_EX_LAYERED = $80000; WS_EX_TRANSPARENT = $20; LWA_COLORKEY = 1; LWA_ALPHA = 2; GWL_EXSTYLE = (-20); var InfoPic: TBitmapImage; LastIndex: Integer; TempPath: String; PicForm: TForm; type COLORREF = DWORD; function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall'; function SetLayeredWindowAttributes(Hwnd: THandle; crKey: COLORREF; bAlpha: Byte; dwFlags: DWORD): Boolean; external '[email protected] stdcall'; function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLong{#A}@user32.dll stdcall'; function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall'; function SetFocus(hWnd: HWND): HWND; external '[email protected] stdcall'; procedure ShowPicHint(const PicFilePath: String); var pt: TPoint; begin if not GetCursorPos(pt) then Exit; InfoPic.Bitmap.LoadFromFile(PicFilePath); try with PicForm do begin SetBounds(ScaleX(pt.x + 390), ScaleY(pt.y + 7), InfoPic.Width, InfoPic.Height); Show; end; finally SetFocus(WizardForm.Handle); end; end; Quote Share this post Link to post Short link Share on other sites
night_dragon_on 5,601 #421323 Posted February 16, 2018 @Draug , Компонентлист с превью.zip Quote Share this post Link to post Short link Share on other sites
Andrew_Dark 8 #421339 Posted February 16, 2018 6 часов назад, Draug сказал: когда в установщике выбираешь мод и наводишь мышкой на название там картинка отображается... и чем дальше наведешь на название чем дальше эта картинка уходит... как сделать так чтоб картинка оставалась всегда на одном месте? тоесть чтоб как бы прилипла с правого края главного окошка установщика? сейчас стоит так: Напиши мне числа 22, я тебе дам свой старый код инсталла, там всё уже настроено, если хочешь. 1 Quote Share this post Link to post Short link Share on other sites
Draug 59 #421367 Posted February 16, 2018 1 час назад, night_dragon_on сказал: @Draug , Компонентлист с превью.zip а как в моем случае я прошу ни как не сделать? чтоб встала картинка и замостилась в красном квадрате, а не гуляла по движению мышки по названию мода... у кого то видел так в модпаке(( Quote Share this post Link to post Short link Share on other sites
night_dragon_on 5,601 #421371 Posted February 16, 2018 20 минут назад, Draug сказал: а не гуляла по движению мышки по названию мода В этой строке кода: SetBounds(ScaleX(pt.x + 390), ScaleY(pt.y + 7), InfoPic.Width, InfoPic.Height); Задай фиксированные координаты, например: SetBounds(ScaleX(250), ScaleY(50), InfoPic.Width, InfoPic.Height); Где 250 и 50 координаты по оси X и Y соответственно. Quote Share this post Link to post Short link Share on other sites
Draug 59 #421372 Posted February 16, 2018 Только что, night_dragon_on сказал: В этой строке кода: SetBounds(ScaleX(pt.x + 390), ScaleY(pt.y + 7), InfoPic.Width, InfoPic.Height); Задай фиксированные координаты, например: SetBounds(ScaleX(250), ScaleY(50), InfoPic.Width, InfoPic.Height); Где 250 и 50 координаты по оси X и Y соответственно. Делал такой вариант уже((( тогда картинка вообще ни как не зависима от установщика главного окна((( хоть куда установщик двигай а картинка на одном месте... (( Quote Share this post Link to post Short link Share on other sites
night_dragon_on 5,601 #421373 Posted February 16, 2018 (edited) 2 часа назад, Draug сказал: хоть куда установщик двигай а картинка на одном месте SetBounds(ScaleX(WizardForm.Left + 350), ScaleY(WizardForm.Top + 50), InfoPic.Width, InfoPic.Height); Где 350 и 50 отступ от левого края окна установщика и вернего края установщика. Edited February 16, 2018 by night_dragon_on 1 Quote Share this post Link to post Short link Share on other sites
Furious 2 #421561 Posted February 18, 2018 Не подскажете ли, как можно автоматически распаковать зип архив, который был установлен, в папку установки? Quote Share this post Link to post Short link Share on other sites
Lom 48 #421563 Posted February 18, 2018 (edited) 10 минут назад, Furious сказал: Не подскажете ли, как можно автоматически распаковать зип архив, который был установлен, в папку установки? а что мешает сразу в распакованном виде его вложить в инсталлятор? Edited February 18, 2018 by ЛОМ 1 Quote Share this post Link to post Short link Share on other sites