Создание инсталляторов для модпаков на базе Inno Setup

[Kotyarko_O 1,906]

я подумал что так нельзя

А ты вернись к уже "проминусованному" сообщению. И перейди по ссылке, где всё объясняется.

Edited January 21, 2016 by Kotyarko_O

[Ekspoint 2,122]

А ты вернись к уже "проминусованному" сообщению. И перейди по ссылке, где всё объясняется.

а так оно не пашет

#define MyApp           "MyApp версии #1 от GetDateTimeString('dd/mm/yyyy', '', '')"

поэтому с другой стороны через код лучше

[Kotyarko_O 1,906]

а так оно не пашет

И правильно. Ты же взял выполняемую часть в кавычки, теперь это просто строка.

Edited January 21, 2016 by Kotyarko_O

[Nowik1971 2]

а так оно не пашет

 

Я учусь и за помощь все огромное спасибо! Да и не злись на меня плюсов и тебе наставлю мне не жалко, я просто подчеркнул своим минусом, что ты просто сарказм свой показываешь , а просто помочь не смог сначала, Короче всем спасибо!

И не посылайте меня часто ....

Edited January 22, 2016 by Nowik1971

[wotunion 95]

Выложил исходники своего инсталлятора, может кому-то пригодится.

http://www.koreanrandom.com/forum/topic/24732-xvm-6201-03012016-wot-0913-wotunion-минималистичный-модпак-с-инсталлято/

[Kotyarko_O 1,906]

Выложил исходники своего инсталлятора

Сейчас ещё мейнстрим по этому делу начнётся, а мы будем теми, кто его завёл =)

Edited January 22, 2016 by Kotyarko_O

[Nowik1971 2]

 

 

Выложил исходники своего инсталлятора, может кому-то пригодится. http://www.koreanran...к-с-инсталлято/

Отлично! Кое что мне надо почерпнуть у тебя, а именно это проверка обновлений.... как до этого дойду напишу в личку может поможешь если сам не разберусь  

[Ekspoint 2,122]

как воспроизводить mp3 формат?

[AtotIK 580]

Bass использовать. Хотя тут уже лучше ogg использовать вместо mp3.

[wotunion 95]

Без проблем, чем смогу).

В следующих версиях подумываю сделать веб-установку, чтобы при установке скачивались только выбранные компоненты.

[asterix93 9]

Privet vsem. Kak delati stobi praverca bila cerez ProgressBar???

 

 

#define GameName "Sacred"
#define modpack_versionInfo "101"

[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://www.koreanrandom.com
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://proreduceri.tk/version.txt
russian.httpMsg=http://proreduceri.tk/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;

Edited January 24, 2016 by asterix93

[Kotyarko_O 1,906]

 

 

Kak delati stobi praverca bila cerez ProgressBar?

Ты о чём?

[asterix93 9]

Ты о чём?

Tam esti praverca abnavlenie i ea haciu delati eio v ProgresBar

Edited January 24, 2016 by asterix93

[wotunion 95]

Так по времени проверка занимает до секунды, зачем прогрес бар. И даже если его делать, сколько позиций будет, всего до GET и после.

[asterix93 9]

Так по времени проверка занимает до секунды, зачем прогрес бар. И даже если его делать, сколько позиций будет, всего до GET и послеHarasho 

harasho a kak delati stobi sabsenia bila na stranita

[wotunion 95]

А если в общем, то есть TNewProgressBar.

harasho a kak delati stobi sabsenia bila na stranita

Например,TMemo на форме вместо Msgbox Edited January 24, 2016 by wotunion

[Nowik1971 2]

 

 

А если в общем, то есть TNewProgressBar. asterix93, on 24 Jan 2016 - 15:57, said: harasho a kak delati stobi sabsenia bila na stranita Например,TMemo на форме вместо Msgbox

 подскажите  в примере как этот скрипт подключить и еще вопрос... я не совсем все понимаю, вот например я выложил свежую версии. пака на яндекс диск как сделать чтобы в ангаре  и при установке проверялось и выдавалось сообщение о том что есть обновление.. и гадо перейти по ссылке....

Заранее спасибо за помощь...

[wotunion 95]

В исходниках есть пример создания TLabel. По аналогии.

Насчет сообщения в ангаре, то Вам, наверное, сюда:http://www.koreanrandom.com/forum/topic/16986-python/?p=197456&do=findComment&comment=197456

[asterix93 9]

подскажите в примере как этот скрипт подключить и еще вопрос... я не совсем все понимаю, вот например я выложил свежую версии. пака на яндекс диск как сделать чтобы в ангаре и при установке проверялось и выдавалось сообщение о том что есть обновление.. и гадо перейти по ссылке....

Заранее спасибо за помощь...

vot derji

http://www.koreanrandom.com/forum/index.php?app=core&module=attach&section=attach&attach_id=83756

Edited January 26, 2016 by asterix93

[Nowik1971 2]

WoT CacheCleaner.rarНу, Гуру подскажите как мне вставить этот код очистки кеша  чтобы работал, а то пишет ошибку, я языка не знаю вот и прошу помощи.

'код скрипта'

#include "бекап_.iss"

//========================================================================================================\\function DeleteCheck: Boolean;begin  If DeletMods.Checked thenbegin  DelTree(ExpandConstant('{app}\res_mods'), True, True, True);  CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));end;end;//"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""//function MoveCheck: Boolean;begin  If BackupMods.Checked thenbegin  MoveDir(ExpandConstant('{app}\res_mods\'),ExpandConstant('{app}\res_mods\backup'));  CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));end;end;//"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""//procedure Deletkahh;begin  If Deletkah.Checked thenbeginSet fso = CreateObject("Scripting.FileSystemObject")            Set WshShell = CreateObject("WScript.Shell")            Set strFolder = fso.GetFolder(WshShell.ExpandEnvironmentStrings("%APPDATA%"))            TempGameFolder = (strFolder & "\" & "Wargaming.net" & "\" & "WorldOfTanks")            Set objFSO=Createobject("Scripting.Filesystemobject")            Set objFolder=objFSO.GetFolder(TempGameFolder)            Set objFiles=objFolder.Files            For Each objFile In objFiles                If objFile.Name    <> "preferences.xml" And objFile.Name <> "preferences_ct.xml" And objFile.Name <> "preferences_ctp.xml" Then                    objFSO.DeleteFile TempGameFolder & "\" & objFile.Name, True                End if            Next            For Each objSubFolder In objFolder.SubFolders                If objSubFolder.Name    <> "xvm" Then                    objFSO.DeleteFolder TempGameFolder & "\" & objSubFolder.Name                End if//---------------------------------------------------------------------------//procedure CustomBackupChanged(CurStep: TSetupStep);
begin
  If CurStep=ssInstall then
begin
  DeleteCheck;
  MoveCheck;
end;
end;

кто сможет подправьте... или скажите как мне подключить внешний скрипт вот этот.WoT CacheCleaner

Edited January 28, 2016 by Nowik1971