Jump to content
Korean Random

Nowik1971

User
  • Content Count

    143
  • Joined

  • Last visited

Community Reputation

2 Noob

Basic information

  • Gender
    Мужчина
  • Interests
    ПК, Грузовики, музыка, графика и рисование, электротехника, самообучение.

Contacts

Recent Profile Visitors

2,842 profile views
  1. Вот код с этой темы раз не можешь или ленишься найти!!! #define GameName "Sacred" #define modpack_versionInfo "0.9.15" [Setup] AppName={#GameName} AppVerName={#GameName} DefaultDirName={pf}\{#GameName} AppPublisher=troyan [Languages] Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl" [CustomMessages] russian.Modpack=Модпак russian.SupportForum=Тема на koreanrandom.com russian.ForumLink=http://сайт.ru/updater russian.UpdatedLabel=Обновлено: russian.WOT_version=Версия WOT: russian.modpack_version=Версия модпака: russian.installer_version=wotunion installer russian.CheckingActualModpackVersionLabel=Проверка обновлений модпака... russian.CannotCheckUpdate=Ошибка при проверке обновлений. Далее - для установки russian.NoUpdates=Обновлений не найдено. Далее - для установки russian.ErrorWhileOpeningUpdatePage=Ошибка при переходе на страницу загрузки russian.AllIsReadyForInstall=Все готово для установки. Нажмите Далее для продолжения russian.UpdateFound=найдено russian.httpVersion=http://сайт.ru/updater/version.txt russian.httpMsg=http://сайт.ru/updater/msg.txt russian.WOT_NotFound=Клиент World of Tanks не обнаружен. Установка будет прервана. russian.for=для russian.CheckAccess=Установка невозможна. Проверьте наличие прав доступа к файлам и папкам установленного клиента World of Tanks, закройте программы, которые используют папки и/или файли клиента World of Tanks, или запустите инсталлятор модпака с правами администратора. russian.MustUninstallBefore=Установка невозможна. Воспользуйтесь деинсталлятором модпака для удаления предыдущей установки модпака (Пуск - Программы - wotunion modpack - Удалить wotunion modpack). russian.NewVersionFound=Доступна новая версия модпака: russian.GoToLink=Перейти по ссылке в браузере для загрузки ? russian.CheckAccessUninstall=Деинсталляция невозможна. Проверьте наличие прав доступа к файлам и папкам установленного клиента World of Tanks закройте программы, которые используют папки и/или файлы клиента World of Tanks, или запустите деинсталлятор модпака с правами администратора. [Code] var CheckingActualModpackVersionLabel: TLabel; WelcomePageID: Integer; ActualVersion: String; ActualVersionLongint: Longint; InstallVersionLongint: Longint; ActualVersionMsg: String; ReadyToInstall: Boolean; TerminateInstall: Boolean; function DownloadFile(const AURL: string; var AResponse: string): Boolean; var WinHttpRequest: Variant; begin Result := False; try WinHttpRequest := CreateOleObject('WinHttp.WinHttpRequest.5.1'); WinHttpRequest.Open('GET', AURL, False); WinHttpRequest.Send; AResponse := WinHttpRequest.ResponseText; Case WinHttpRequest.Status of '200': begin Result := True; end; end; except ReadyToInstall:=True; AResponse := GetExceptionMessage; CheckingActualModpackVersionLabel.Caption:=ExpandConstant('{cm:CannotCheckUpdate}'); Result := False; end; end; procedure CurPageChanged(CurPageID: Integer); begin if CurPageID = wpSelectDir then begin end; WizardForm.InnerNotebook.Visible := CurPageID <> WelcomePageID; end; function Form_CreatePage(PreviousPageId: Integer): Integer; var Page: TWizardPage; begin Page := CreateCustomPage(PreviousPageId, '', ''); WelcomePageID := Page.ID; CheckingActualModpackVersionLabel := TLabel.Create(WizardForm); with CheckingActualModpackVersionLabel do begin Parent := WizardForm.InnerPage; Visible:=True; Left := ScaleX(5); Top := ScaleY(292); Font.Color:= clBlack; end; Result := Page.ID; end; Procedure ForumLinkOnClick (Sender: TObject); var ErrorCode: Integer; Begin ShellExec ('open', ExpandConstant('{cm:ForumLink}'),'','', SW_SHOWNORMAL, ewNoWait, ErrorCode); end; procedure InitializeWizard(); begin Form_CreatePage(wpWelcome); with WizardForm.PageDescriptionLabel do begin Visible := False; end; with WizardForm.PageNameLabel do begin Visible := False; end; end; function CheckUpdates():Boolean; var ErrorCode: Integer; begin if ReadyToInstall=False then begin CheckingActualModpackVersionLabel.Visible:=True; CheckingActualModpackVersionLabel.Caption := ExpandConstant('{cm:CheckingActualModpackVersionLabel}'); if ((DownloadFile(ExpandConstant('{cm:httpVersion}'), ActualVersion)=True) and (DownloadFile(ExpandConstant('{cm:httpMsg}'), ActualVersionMsg)=True)) then begin if (StrToIntDef(ActualVersion, ActualVersionLongint)) > (StrToIntDef('{#modpack_versionInfo}', InstallVersionLongint)) then begin CheckingActualModpackVersionLabel.Caption := CheckingActualModpackVersionLabel.Caption + ExpandConstant('{cm:UpdateFound}'); if MsgBox(ExpandConstant('{cm:NewVersionFound}') + ActualVersionMsg + ExpandConstant('{cm:GoToLink}'), mbConfirmation, MB_YESNO) = IDYES then begin If not ShellExec('', ExpandConstant('{cm:ForumLink}'), '', '', SW_SHOW, ewNoWait, ErrorCode) then begin CheckingActualModpackVersionLabel.Caption:=ExpandConstant('{cm:ErrorWhileOpeningUpdatePage}'); ReadyToInstall:=True; Result:=False; end else begin Result:=False; TerminateInstall:=True; WizardForm.Close; end; end else begin CheckingActualModpackVersionLabel.Caption:=ExpandConstant('{cm:AllIsReadyForInstall}'); ReadyToInstall:=True; Result:=False; end; end else begin CheckingActualModpackVersionLabel.Caption:=ExpandConstant('{cm:NoUpdates}'); ReadyToInstall:=True; Result:=False; end; end else begin CheckingActualModpackVersionLabel.Caption:=ExpandConstant('{cm:CannotCheckUpdate}'); ReadyToInstall:=True; Result:=False; end; end else begin Result:=True; end; end; function NextButtonClick(CurPageID: Integer): Boolean; begin if CurPageID <> WelcomePageID then begin Result:=True; end else begin Result:=CheckUpdates; end; end; procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean); begin if ((CurPageID=WelcomePageID) and (TerminateInstall=True)) then Confirm := False; end; или вот!!! [Code] function FileVersion(const FilePath: String): String; 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}')+'win32\WorldOfTanks.exe') then begin if FileVersion(ExpandConstant('{app}')+'win32\WorldOfTanks.exe') < '{#patch}' then begin MsgBoxEx(WizardForm.Handle, 'Моды не будут работать на данной версии патча игры! Моды предназначены для версии патча {#patch}', 'Моды не подходят к данному патчу World of Tanks', MB_OK or MB_ICONWARNING, 0, 0); Result:= false; end; end; end; end; end; Коды конечно немного устарели, но как образец и для размышления пойдут!!! Подправишь...
  2. Читайте За вас здесь никто ничего делать не будет, я месяц разбирался потом купил и учил на примере и потом когда немного понял уже стал переделывать на свой лад и то это было давно щас уже все забыл... А так вообще рассказываю.... берете этот скрипт, открываете инно сетуп создаете файл с этим содержимым, обзываете его например: "авто определение пути к папке с игрой.iss" Затем в шапке основного скрипта подключаете его... например так как у меня по старинке ::: #include "скрипты инсталлятора\авто определение пути к папке с игрой.iss" с обязательным указанием пути где лежит скрипт... вот и все!!! Искать будет по реестру установки в виндах, но не будет после переустановки виндов, так что в теме что выше ссылку дал есть ответ как и без реестра.... Ученье Вам в помощь и удачи!!!
  3. Все есть на форуме и в теме, только надо поискать... Вот пример поиска по реестру установленной игры! [Code] function WotDirNameRU(Path: String): String; // ключ для основного клиента {1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1 begin if RegKeyExists(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then begin RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path); Result := Path end else if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then begin RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path); Result := Path end else if RegKeyExists(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then begin RegQueryStringValue(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path); Result := Path end else if RegKeyExists(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then begin RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path); Result := Path end else Result := ExpandConstant('C:\Games\World_of_Tanks\'); end; //""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""// код рабочий только потом надо Вам знать куда его вставить... Вот например тема
  4. Нет двоеточия между цифрами часов пришлось поставить так : <formatHrs offsetHrs="0">{HH} :}</formatHrs> <formatMin offsetMin="0">{mm} :}</formatMin> <formatSec offsetSec="0" visible="true">{ss}</formatSec> <formatAMPM offsetAMPM="4"></formatAMPM > Может не правильно , но все работает ...
  5. Не работают часики ошибка: 2020-10-24 19:43:04.419: WARNING: [WARNING] (scripts/client/gui/mods/__init__.py, 72): There is problem while import gui mod ('gui.mods', 'mod_hangarclock.pyc') 2020-10-24 19:43:04.420: ERROR: [EXCEPTION] (scripts/client/gui/mods/__init__.py, 74): Traceback (most recent call last): File "scripts/client/gui/mods/__init__.py", line 67, in _findValidMODs File "scripts/common/Lib/importlib/__init__.py", line 37, in import_module File "mod_hangarClock", line 13, in <module> ImportError: cannot import name ViewTypes
  6. У меня работает только ничего не переименовывал.... Вроде как была папка стандартная так и осталась, может кто с нуля качает игру у того сейчас так, не перекачивал... Калькулем не пользуюсь, часы работают!
  7. А не проще ли точку в начале пути в скрипте мода к файлу конфига добавить например так: cfg_file = '../mods/configs/AntonVK/configHangarClock.xml' и все будет правильно работать. Хотя я не спец, а просто как вариант... Заранее прошу не пинать. У меня и так пока все работает! в 32 директории ничего не создавал, конфиг по старому пути \World_of_Tanks\mods\configs\*** вот наверное где-то здесь надо исправить: def py_getWoTPath(self): __WoT__ = os.path.dirname(os.path.abspath(__file__)) __WoT__ = __WoT__[0:__WoT__.rfind('scripts')] return __WoT__
  8. У меня часы работают с конфигом по старому пути... и 1,5 версия и 1,6
  9. Ну, пока хоть так...да это во флешке что-то, но так же не разбираюсь в этом и пока буду ждать норм варианта и кататься с твоим.... Спасибо!
  10. Только вот такую ошибку постоянно через секунду в питон шлет:
×
×
  • Create New...