[Vitalik_Byrevich]

Добрый день. Не подскажите как узнать номер цвета? Стандартный в скрипте прописан Color:=11232829 и в окне он отображется синим (за текстом) , а мне надо чтобы этого синего фона не было.

[FX-DENIS]

Спасибо всем за помощь! »

Есть кнопка Полезное сообщение

Не подскажите как узнать номер цвета »

Логически надо этот цвет узнать в стандартной цветовой кодировке потом конвертировать в эту.А узнать цвет проще программой Пипетка,таких в инете много,запустите инсталятор скопируете пипеткой цвет на этом тексте,а потом на любом сайте его конвертируете в другой формат. Мне видится такой вариант,можно еще почитать справку инно,по тегу Колор.мож че найдете.

[Nordek]

как узнать номер цвета? »

С помощью Pixie.
Inno понимает не как привычный цвет HTML, а как HEX. Т.е у Inno обратный порядок.
Нужно поменять первые два и последние два значения местами.
Пример: FFECDF » DFECFF

Pixie - умеет выводить в HEX, увидите, трудно не заметить.

[dracosha]

Ребята! Может кто-то знает или может кто-то слышал, когда на свет появится расширенная версия на основе последней версии inno?

[gurulea93]

Privet vsem pamaghite pajalusta stobi delati mesta MsgBox TMemo Безымянный.png
vot cod

Скрытый текст

HTML код:

#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;

[markovicius]

Привет есть у меня токой скрипт




; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "PES 6 Firebird Markovicius"
#define MyAppVersion "1.0"
#define MyAppPublisher "Marius Z."
#define MyAppExeName "mark6.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{E1FCAB5E-7AF2-42E0-93E8-E4A1FBF90B09}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
AllowNoIcons=yes
InfoBeforeFile=D:\Games\PES 6 Firebird Markovicius\readme.txt
OutputBaseFilename=PES 6 Firebird Markovicius
SetupIconFile=D:\Games\pes 6 firebird markovicius\1.ico
Compression=lzma
SolidCompression=yes
;Compression=none
;SolidCompression=no
WizardImageFile=1.bmp
DiskSpanning=yes
DiskSliceSize=1566000000

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

Name: "BrazilianPortuguese"; MessagesFile: "compiler:Languages\BrazilianPortuguese.isl"
Name: "Czech"; MessagesFile: "compiler:Languages\Czech.isl"
Name: "Danish"; MessagesFile: "compiler:Languages\Danish.isl"
Name: "Dutch"; MessagesFile: "compiler:Languages\Dutch.isl"
Name: "Finnish"; MessagesFile: "compiler:Languages\Finnish.isl"
Name: "French"; MessagesFile: "compiler:Languages\French.isl"
Name: "German"; MessagesFile: "compiler:Languages\German.isl"
Name: "Greek"; MessagesFile: "compiler:Languages\Greek.isl"
Name: "Hungarian"; MessagesFile: "compiler:Languages\Hungarian.isl"
Name: "Italian"; MessagesFile: "compiler:Languages\Italian.isl"
Name: "Japanese"; MessagesFile: "compiler:Languages\Japanese.isl"
Name: "Norwegian"; MessagesFile: "compiler:Languages\Norwegian.isl"
Name: "Polish"; MessagesFile: "compiler:Languages\Polish.isl"
Name: "Portuguese"; MessagesFile: "compiler:Languages\Portuguese.isl"
Name: "ScottishGaelic"; MessagesFile: "compiler:Languages\ScottishGaelic.isl"
Name: "SerbianCyrillic"; MessagesFile: "compiler:Languages\SerbianCyrillic.isl"
Name: "SerbianLatin"; MessagesFile: "compiler:Languages\SerbianLatin.isl"
Name: "Slovenian"; MessagesFile: "compiler:Languages\Slovenian.isl"
Name: "Spanish"; MessagesFile: "compiler:Languages\Spanish.isl"
Name: "Turkish"; MessagesFile: "compiler:Languages\Turkish.isl"
Name: "Ukrainian"; MessagesFile: "compiler:Languages\Ukrainian.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "D:\Games\PES 6 Firebird Markovicius\PhysX-9.15.0428-SystemSoftware\*"; DestDir: "{app}\PhysX-9.15.0428-SystemSoftware"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Games\PES 6 Firebird Markovicius\Papildomi zaidimo nustatymai\*"; DestDir: "{app}\Papildomi zaidimo nustatymai"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Games\PES 6 Firebird Markovicius\mark6.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Games\PES 6 Firebird Markovicius\settings.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Games\PES 6 Firebird Markovicius\readme.txt"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Games\PES 6 Firebird Markovicius\kitserver\*"; DestDir: "{app}\kitserver"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Games\PES 6 Firebird Markovicius\dat\*"; DestDir: "{app}\dat"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Games\PES 6 Firebird Markovicius\misc\*"; DestDir: "{app}\misc"; Flags: ignoreversion recursesubdirs createallsubdirs


; íàñòðîéêè
Source: "D:\Games\PES 6 Firebird Markovicius\misc\Option File\settings.dat"; DestDir: "{userdocs}\FRBD15\Pro Evolution Soccer 6"; Flags: ignoreversion uninsneveruninstall ;
; îïøèí
Source: "D:\Games\PES 6 Firebird Markovicius\misc\Option File\KONAMI-WIN32PES6OPT"; DestDir: "{userdocs}\FRBD15\Pro Evolution Soccer 6\save\folder1"; Flags: ignoreversion uninsneveruninstall;

; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; WorkingDir: "{app}"
Name: "{group}\Settings"; Filename: "{app}\settings.exe"; WorkingDir: "{app}"
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon; WorkingDir: "{app}"

[Registry]

Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: string; ValueName: "installdir"; ValueData: "{app}\"
Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: string; ValueName: "code"; ValueData: "K7URDJNALJV3SSLMATK6"
Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_e"; ValueData: "00000001"
Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_f"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_g"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_i"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_p"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_s"; ValueData: "00000000"

Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: string; ValueName: "installdir"; ValueData: "{app}\"
Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: string; ValueName: "code"; ValueData: "K7URDJNALJV3SSLMATK6"
Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_e"; ValueData: "00000001"
Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_f"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_g"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_i"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_p"; ValueData: "00000000"
Root: HKLM; Subkey: "SOFTWARE\Wow6432Node\KONAMIPES6\PHMA"; ValueType: dword; ValueName: "lang_s"; ValueData: "00000000"

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent



Что надо добавить чтобы в конце инстала автоматически запустилась и устанавилось програма
"PhysX-9.15.0428-SystemSoftware" которая после инстала есть в папке игры

[Nordek]

markovicius,

Код:

[Tasks]
Name: physx; Description: Установить PhysX [9.15.0428]; GroupDescription: Дополнительное программное обеспечение:

[Run]
Filename: {src}\PhysX-9.15.0428-SystemSoftware.exe; Parameters: -s; StatusMsg: Установка PhysX; Tasks: physx

[markovicius]

Привет Nordek написал код но выбрасывает ошибку

Unable to execute file:
D:\Games\Pes 6 Firebird
Markovicius\Output\PhysX-9.15.0428-SystemSoftware.exe

CreateProcess failed;code 2.
Yhe system cannot find the file speciefed.

Что может быть не так ?

[Nordek]

markovicius, Привет!
PhysX скачивал со страницы.
Проверял, ошибок нет. Предыдущий пример рассчитан на то, если PhysX-9.15.0428-SystemSoftware.exe и setup.exe расположены в одном месте.

Если вы PhysX включаете в инсталлятор, затем при установке PhysX помещается в папку "PhysX-9.15.0428-SystemSoftware" внутри папки самого приложения, то в секции [Run] замените это:

Код:

Filename: {src}\PhysX-9.15.0428-SystemSoftware.exe; Parameters: -s; StatusMsg: Установка PhysX; Tasks: physx

на это:

Код:

Filename: {app}\PhysX-9.15.0428-SystemSoftware\PhysX-9.15.0428-SystemSoftware.exe; Parameters: -s; StatusMsg: Установка PhysX; Tasks: physx

Чтоб пропустить ошибку выполнения при отсутствии исполняемого файла: в секции [Run], в конеце можете добавить Flags: skipifdoesntexist, т.е:

Код:

Filename: {app}\PhysX-9.15.0428-SystemSoftware\PhysX-9.15.0428-SystemSoftware.exe; Parameters: -s; StatusMsg: Установка PhysX; Tasks: physx; Flags: skipifdoesntexist

На будущее:
Обсуждение скриптов (т.е написание собственного инсталлятора) находится здесь.
Длинные коды прячьте под спойлер: [spoiler][/spoiler]
Обрамляйте в [code][/code] (Если проблема с выводом, читайте здесь)

[markovicius]

Nordek Большое вам спасибо за помощь.