Kotyarko_O 1,906 #264761 Posted April 24, 2015 Как исправить? Установить компилятор со встроенным препроцессором. Quote Share this post Link to post Short link Share on other sites
StranikS_Scan 4,203 #264762 Posted April 24, 2015 Установить компилятор со встроенным препроцессором. O_O Это так тема продвинулась что ли? А я и не заметил ((( Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #264763 Posted April 24, 2015 Помогите пожалуйста пеньку. Не редактируя скрипт, пытаюсь произвести компиляцию и посмотреть инсталятор, но вылезает ошибка. http://s020.radikal.ru/i701/1504/0e/1f2d00a3ad8f.png Как исправить? 1 Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #264765 Posted April 24, 2015 Это так тема продвинулась что ли? Ну да, года 3 или больше назад) Quote Share this post Link to post Short link Share on other sites
guceds 2 #264772 Posted April 24, 2015 Установить компилятор со встроенным препроцессором. Можете дать пожалуйста ссылку. Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #264777 Posted April 24, 2015 Можете дать пожалуйста ссылку. http://innoultra.ru/?page_id=534 1 Quote Share this post Link to post Short link Share on other sites
guceds 2 #264788 Posted April 24, 2015 (edited) http://innoultra.ru/?page_id=534 При скачивании File does not exist. Ну да ладно, я 5.5.4 скачал, надеюсь это не имеет значения. инталятор зпустился Edited April 24, 2015 by guceds Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #264807 Posted April 24, 2015 При скачивании File does not exist. Ну да ладно, я 5.5.4 скачал, надеюсь это не имеет значения. инталятор зпустился Вообще то имеет значение Quote Share this post Link to post Short link Share on other sites
TneRED 0 #264842 Posted April 24, 2015 (edited) Народ не подскажите как сделать Превью картинки к модам как у джова пробывал варианты которыe на 1-5 страницах не катит Edited April 24, 2015 by TneRED Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #264848 Posted April 24, 2015 Народ не подскажите как сделать Превью картинки к модам как у джова пробывал варианты которыe на 1-5 страницах не катит Всё там катит, просто нужно правильно вписать. И там немного по-другому, чем "как у Джова". Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #264878 Posted April 24, 2015 А как в InitializeWizard сделать так что бы читал {app} ? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #264880 Posted April 24, 2015 А как в InitializeWizard сделать так что бы читал {app} ? Никак. Используй CurPageChanged. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #264881 Posted April 24, 2015 Никак. Используй CurPageChanged. Делал и в ней, но если я в нее пишу то грузит не все сразу Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #264882 Posted April 24, 2015 Делал и в ней, но если я в нее пишу то грузит не все сразу Значит что-то не совсем правильно. Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #264884 Posted April 24, 2015 Значит что-то не совсем правильно. если я вот это WizardForm.ComponentsList.Checked[0]:= SearchValues(ExpandConstant('{app}\1.txt'),'тополя ля ля ля'); WizardForm.ComponentsList.Checked[0]:= SearchValues(ExpandConstant('{app}\1.txt'),'тополя ля ля ля'); WizardForm.ComponentsList.Checked[0]:= SearchValues(ExpandConstant('{app}\1.txt'),'тополя ля ля ля'); WizardForm.ComponentsList.Checked[0]:= SearchValues(ExpandConstant('{app}\1.txt'),'тополя ля ля ля'); WizardForm.ComponentsList.Checked[0]:= SearchValues(ExpandConstant('{app}\1.txt'),'тополя ля ля ля'); WizardForm.ComponentsList.Checked[0]:= SearchValues(ExpandConstant('{app}\1.txt'),'тополя ля ля ля'); прописываю в CurPageChanged на заданную стр то список загружается постепенно Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #264886 Posted April 24, 2015 (edited) WizardForm.ComponentsList.Checked[0]:= SearchValues(ExpandConstant('{app}\1.txt'),'тополя ля ля ля'); А подобный образом? var I: Integer; .... for I := 0 to WizardForm.ComponentsList.Items.Count - 1 do begin WizardForm.ComponentsList.Checked[I] := SearchValues(ExpandConstant('{app}\1.txt'), WizardForm.ComponentsList.ItemCaption[I]); end; Edited April 24, 2015 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #264889 Posted April 24, 2015 А подобный образом? var I: Integer; .... for I := 0 to WizardForm.ComponentsList.Items.Count - 1 do begin WizardForm.ComponentsList.Checked[I] := SearchValues(ExpandConstant('{app}\1.txt'), WizardForm.ComponentsList.ItemCaption[I]); end; я так делал,но не подходит,нужно именно номер чека писать и текст который должен быть в файле Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #264890 Posted April 24, 2015 (edited) я так делал,но не подходит Всё там нормально подходит. У меня похожий способ и всё отрабатывает отлично. Ищу проблему со своей стороны. Edited April 24, 2015 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
TneRED 0 #264940 Posted April 25, 2015 (edited) Всё там катит, просто нужно правильно вписать. И там немного по-другому, чем "как у Джова". Я не имею ввиду что я не смог установить! Я все варианты перепробвал которые нашел с 1 по 40 страницы ток 3 варианта нашел(От самого автора,с права картинка и тоже самое с коментами) Мне не понравилась не одна из вариантов просто хочу еще что нибуть другое попробывать, лень листать эту тему ведь тут не 30 страниц:) Также ищу код на проверку запуска клиента игры тоесть процесса worldoftanks.exe и чек версий клиента Edited April 25, 2015 by TneRED Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #264947 Posted April 25, 2015 (edited) TneRED, вот так: #define PackForVersion "0.9.7.0"; [CustomMessages] FileNotFoundLabel=Игра не найдена в данной директории!%n%nПожалуйста, укажите папку с игрой. FileVersionWrongLabel=Обнаружена несовместимая версия игрового клиента!%n%nПожалуйста, укажите клиент версии {#PackForVersion}. [~~Code~~] function FileVersion(const FilePath: AnsiString): AnsiString; var oFS: Variant; begin oFS:=CreateOleObject('Scripting.FileSystemObject'); try Result:=oFS.GetFileVersion(FilePath); except end; end; function NextButtonClick(CurPage: Integer): Boolean; begin Result:=True; If CurPage=6 then begin If not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then begin MsgBox(ExpandConstant('{cm:FileNotFoundLabel}'), mbError, MB_OK); Result:=False; end; If FileExists(ExpandConstant('{app}')+'\WorldOfTanks.exe') then begin If FileVersion(ExpandConstant('{app}')+'\WorldOfTanks.exe') <> '{#PackForVersion}' then begin MsgBox(ExpandConstant('{cm:FileVersionWrongLabel}'), mbError, MB_OK); Result:=False; end; end; end; end; Обратите внимание, что версия в exe'шнике игры прописывается как 0.9.7.0, а не 0.9.7. Проверку на запущенный клиент тут я уже видел. Заумную версию, можно конечно сделать намного короче. В примерах в шапке темы скорее всего должен быть код. Edited April 25, 2015 by AtotIK Quote Share this post Link to post Short link Share on other sites