Kotyarko_O 1,906 #405208 Posted September 25, 2017 1 minute ago, ЛОМ said: Ну так я уже пробовал... не выходит.. И не выйдет... так. Во-первых, не то свойство указываешь. Во-вторых, эту часть логичнее будет оформить рядом с самим созданием этого чекбокса. Тем более, что переменная объявлена ниже этой части кода. 1 Quote Share this post Link to post Short link Share on other sites
Lom 46 #405209 Posted September 25, 2017 1 минуту назад, Kotyarko_O сказал: И не выйдет... так. Во-первых, не то свойство указываешь. Во-вторых, эту часть логичнее будет оформить рядом с самим созданием этого чекбокса. Тем более, что переменная объявлена ниже этой части кода. аааа..ну да. там же у чекбокса и так своих свойств хватает. чуток примера можно исходя из моего кода? )) Quote Share this post Link to post Short link Share on other sites
sergy2010 24 #405210 Posted September 25, 2017 17 минут назад, ЛОМ сказал: вот это пробуй WizardForm.DirEdit.AutoSelect := False; Русь мне нужно чтоб фон прозрачным был а не выделение названия пути убиралось вспомни по скайпу я тебе показывал про что 1 1 Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #405211 Posted September 25, 2017 Just now, ЛОМ said: чуток примера можно исходя из моего кода? Procedure RadioButtonOnMouseMove(Sender: TObject; ShiftState: TShiftState; X, Y: Integer); begin ... end; Procedure RadioButtonOnMouseLeave(Sender: TObject); begin ... end; ... DeleteRadioButton.OnMouseMove := @RadioButtonOnMouseMove; DeleteRadioButton.OnMouseLeave := @RadioButtonOnMouseLeave; 1 Quote Share this post Link to post Short link Share on other sites
Lom 46 #405214 Posted September 25, 2017 (edited) 1 час назад, Kotyarko_O сказал: Procedure RadioButtonOnMouseMove(Sender: TObject; ShiftState: TShiftState; X, Y: Integer); begin end; DeleteRadioButton.OnMouseMove := @RadioButtonOnMouseMove; DeleteRadioButton.OnMouseLeave := @RadioButtonOnMouseLeave; а чисто теоретически разве не должно заработать если я просто впишу это в свой код? DeleteRadioButton.OnMouseMove := @RadioButtonOnMouseMove; хотя сразу выдает ошибку... Edited September 25, 2017 by ЛОМ Quote Share this post Link to post Short link Share on other sites
sergy2010 24 #405216 Posted September 26, 2017 38 минут назад, ЛОМ сказал: а чисто теоретически разве не должно заработать если я просто впишу это в свой код? DeleteRadioButton.OnMouseMove := @RadioButtonOnMouseMove; хотя сразу выдает ошибку... посмотри выше на процедуры Procedure RadioButtonOnMouseMove(Sender: TObject; ShiftState: TShiftState; X, Y: Integer); begin ... end; Procedure RadioButtonOnMouseLeave(Sender: TObject); begin ... end; на твоём скрине не заметно чтоб ты их переиминовал 1 1 Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #405219 Posted September 26, 2017 7 hours ago, ЛОМ said: хотя сразу выдает ошибку Потому что: 9 hours ago, Kotyarko_O said: Во-вторых, эту часть логичнее будет оформить рядом с самим созданием этого чекбокса. Тем более, что переменная объявлена ниже этой части кода. Quote Share this post Link to post Short link Share on other sites
Lom 46 #405229 Posted September 26, 2017 Procedure RadioButtonOnMouseMove(Sender: TObject; ShiftState: TShiftState; X, Y: Integer); begin ... end; Procedure RadioButtonOnMouseLeave(Sender: TObject); begin ... end; ... DeleteRadioButton.OnMouseMove := @RadioButtonOnMouseMove; DeleteRadioButton.OnMouseLeave := @RadioButtonOnMouseLeave; короче забуксовало )))) моих знаний тут точно не хватит)) Серый подключайся))) Quote Share this post Link to post Short link Share on other sites
sergy2010 24 #405280 Posted September 27, 2017 как эти кнопки в процедуре называются Новый точечный рисунок.bmp 1 Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #405322 Posted September 27, 2017 В 25.09.2017 в 23:16, ЛОМ сказал: а вот это всё таки как завести? ))) понимаю что достаю но всё же ))) Там ещё криво сделано, мерцает при перемещении курсора. Quote Share this post Link to post Short link Share on other sites
Lom 46 #405326 Posted September 27, 2017 Только что, AtotIK сказал: Там ещё криво сделано, мерцает при перемещении курсора. кажись это мерцание с картинками везде есть. мало заметное так что не помеха. AtotIK это ведь твоя работа?))) может поделишься этим кодом? ))) то что Kotyarko_O написал это конечно всё правильно, но я не осилю это по любому))) конечно если не жалко и конечно если есть масть так сказать))) Quote Share this post Link to post Short link Share on other sites
sergy2010 24 #405355 Posted September 28, 2017 (edited) перестал работать срипт, всё равно продолжает установку подскажите в чём может быть причина function FileVersion(const FilePath: AnsiString): AnsiString; var oFS: Variant; begin oFS:=CreateOleObject('Scripting.FileSystemObject'); try Result:=oFS.GetFileVersion(FilePath); except end; end; function NextButtonClick(CurPageID: Integer): Boolean; begin Result:= true; case CurPageID of wpSelectDir: begin if FileExists(ExpandConstant('{app}')+'\WorldOfTanks.exe') then begin if FileVersion(ExpandConstant('{app}')+'\WorldOfTanks.exe') < '0.9.19.0' then begin MsgBoxEx(WizardForm.Handle, 'МодПак не предназначен для данной версии игры, невозможно продолжить установку!', 'Не актуальная версия игры', MB_OK or MB_ICONWARNING, 0, 0); Abort; end; end; end; end; end; Edited September 28, 2017 by sergy2010 1 Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #405364 Posted September 28, 2017 @sergy2010 function FileVersion(const FilePath: String): String; var oFS: Variant; begin oFS:= CreateOleObject('Scripting.FileSystemObject'); try Result:= oFS.GetFileVersion(FilePath); except end; end; function FileVersionMsgBox(const FilePath: String): String; begin GetVersionNumbersString(FilePath, Result) Result := Copy(Result,1,6); end; //"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""// Function NextButtonClick(CurPageID: Integer): Boolean; begin Result := True; case CurPageID of wpSelectDir: begin if not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then begin MsgBoxEx(0, 'Установка модов невозможна, так как по выбранному пути отсутствует клиент игры World of Tanks. Выберите правильный путь и продолжайте установку!','Внимание!',MB_OK or MB_ICONERROR, 0, 0); Result := False; end; if FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then begin if FileVersion(ExpandConstant('{app}\WorldOfTanks.exe')) < '{#Patch}.0' then begin MsgBoxEx(WizardForm.Handle, 'Моды не будут работать на данной версии игры [' + FileVersionMsgBox(ExpandConstant('{app}\WorldOfTanks.exe')) + '] ! Моды предназначены для версии патча [{#Patch}] ', 'Моды не подходят к данному патчу World of Tanks', MB_OK or MB_ICONWARNING, 0, 0); Result:= false; end; if FileVersion(ExpandConstant('{app}\WorldOfTanks.exe')) > '{#Patch}.0' then begin MsgBoxEx(WizardForm.Handle, 'Моды не будут работать на данной версии игры [' + FileVersionMsgBox(ExpandConstant('{app}\WorldOfTanks.exe')) + '] ! Моды предназначены для версии патча [{#Patch}] ', 'Моды не подходят к данному патчу World of Tanks', MB_OK or MB_ICONWARNING, 0, 0); Result:= false; end; end; end; end; end; Quote Share this post Link to post Short link Share on other sites
sergy2010 24 #405367 Posted September 28, 2017 (edited) Новый точечный рисунок.bmp @Ekspoint всё равно чтота не так Edited September 28, 2017 by sergy2010 1 1 Quote Share this post Link to post Short link Share on other sites
Lom 46 #405747 Posted October 1, 2017 (edited) в чем может быть причина? думал может вдруг из за тех программ ( проверка пинга - программа танцуля ) что у меня в установщике стало срабатывать. но нет... вообще без модов сделал установщик закинул на яндекс и всё равно показывает что вирус. у кого так же? вроде неделю назад этот же пак нормально было. Edited October 1, 2017 by ЛОМ Quote Share this post Link to post Short link Share on other sites
night_dragon_on 5,601 #405772 Posted October 1, 2017 2 часа назад, ЛОМ сказал: в чем может быть причина? Возможно в DLL-ках подключаемых в Inno Setup, проверь каждую на virustotal-ле. Quote Share this post Link to post Short link Share on other sites
Lom 46 #405786 Posted October 1, 2017 1 час назад, night_dragon_on сказал: Возможно в DLL-ках подключаемых в Inno Setup, проверь каждую на virustotal-ле. у меня есть две bass.dll, одна 2014 другая 2017 г. так вот первая на вирустотале чистая а вот 2017г там один вирусняк. хотя ерунда судя по самому антивирусу. https://www.virustotal.com/ru/file/9ac13f9bc5564fd8a1eab5f7c945dce1c27940dd63a913108eac64481ddde6af/analysis/1506864148/ но... проблема в том что сама dll 2014 года вроде глючная а то так заменил бы. к тому же я и не подключал никаких новых dll чтобы вдруг показало на яндексе вирусню. короче хз. не понимаю... Quote Share this post Link to post Short link Share on other sites
night_dragon_on 5,601 #405790 Posted October 1, 2017 (edited) 1 час назад, ЛОМ сказал: но... проблема в том что сама dll 2014 года вроде глючная а то так заменил бы Не обязательно использовать настолько старую версию. До версии библиотеки BASS v. 2.4.10.0 включительно dll-ки проходят проверку антивирусами. Версии старше - только 64-х разрядные версии библиотек проходят проверку. 1 час назад, ЛОМ сказал: к тому же я и не подключал никаких новых dll Так неважно подключал новые или нет. Если обновятся базы одного из антивирусов, который в дальнейшем станет ругаться на какой нибудь файл (который использовал уже N-ое кол-во лет), на обменник вскоре придут новые данные о проверке (по новым базам) и будет выведено уведомление о возможном заражении файла. Edited October 1, 2017 by night_dragon_on 1 Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #405803 Posted October 1, 2017 (edited) 6 hours ago, ЛОМ said: в чем может быть причина? думал может вдруг из за тех программ ( проверка пинга - программа танцуля ) что у меня в установщике стало срабатывать. но нет... вообще без модов сделал установщик закинул на яндекс и всё равно показывает что вирус. Нажимай "сообщить об ошибке" и разбирайся с тех.поддержкой. Edited October 1, 2017 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
P.S.Enot 416 #405830 Posted October 1, 2017 В 28.04.2014 в 23:12, liked сказал: Да и в обще кто бы выложил готовый скрипт хорошего инсталятора, по примеру проще делать. меня например заинтересовал вот такой вот инсталятор Шас сижу леплю простенький как на 1 варианте который дали, но хотело бы вариант такой как на скрине выше еще нужен пример такого варианта скрипта Quote Share this post Link to post Short link Share on other sites