[R.i.m.s.k.y.]

Я пользуюсь "индусским" способом - делаю две одинаковых строчки в секции Files но в первой Check: IsWin64, а во второй Check: Not IsWin64
Это сбивает инно с толку и он не показывает размер.

[Files]
Source: report.xml; DesDir: {app}; components: a; Check: IsWin64
Source: report.xml; DesDir: {app}; components: a; Check: Not IsWin64

[lmiol]

lmiol, Поиск -великая вещ, ну почему так лениво потратить на него пять минут? »

насчет поиска вы то знали что на странице было, а я ничего не нашел, я то и искать не понял что нужно вообще (а так спасибо конечно)
cкрипт добавил но это не то (мб надо еще чтото переделать в коде?)
при выборе простого пользователя установка идет своим чередом
а при выборе продвинутого идет выбор компонентов, а мне нада чтобы при том и при том выборе был выбор компонентов, только разных файлов

[El Sanchez]

Подскажите пожалуйста, как в окне "Выбор компанентов" отключить вывод размерности файлов при установке. »

ArtemYa,

Код:

[Setup]
ShowComponentSizes=false

lmiol, у вас 5 компонентов. Какие компоненты должны входить в PRO, а какие в STANDART?

[lmiol]

El Sanchez:

Полный скрипт

Код:

[Setup]
AppName=Quake Live
AppVerName="Quake Live"
AppPublisher=Mio Dark Project
CreateAppDir=no
DefaultGroupName=Mio Dark Project\Quake Live
AllowNoIcons=yes
OutputDir=Output
OutputBaseFilename=Quake Live
SetupIconFile=setup.ico
Compression=lzma/ultra
SolidCompression=yes
ShowTasksTreeLines=yes
DisableProgramGroupPage=yes
WizardImageFile=Big.bmp
WizardSmallImageFile=Small.bmp
UninstallDisplayIcon={app}\Uninstall\uninstall.ico
UninstallFilesDir={app}\Uninstall
WizardImageStretch=no
AlwaysShowComponentsList=no

[Languages]
Name: ru; MessagesFile: compiler:Languages\Russian.isl;

[Types]
Name: "full"; Description: "Все компоненты";
Name: "custom"; Description: "Выбрать компоненты"; Flags:  iscustom

[Components]
Name: "main"; Description: "Главные файлы Quake Live"; Types: full custom; Flags: fixed
Name: "main2"; Description: "Главные файлы Quake Live Premium"; Types: full custom; Flags: fixed
Name: "browser2"; Description: "Портативный Firefox под Quake Live Premium"; Types: full custom
Name: "plug"; Description: "Плагин Quake Live"; Types: full custom
Name: "browser"; Description: "Портативный Firefox под Quake Live"; Types: full custom
Name: "manual"; Description: "Руководство и Награды"; Types: full custom
Name: "anti"; Description: "Античит PunkBuster"; Types: full custom

[CustomMessages]
HeaderLabelPage=Выберите тип вашего аккаунта
MyRadioCaption_1=Standart
MyRadioCaption_2=Premium / Pro
PageTextHeader=На этой странице Вы можете выбрать тип вашего аккаунта, который вы используете в игре.
MyText_1=Будут установлены файлы которые доступны для игроков без подписки.
MyText_2=Будут установлены файлы которые доступны для игроков с Premium/Pro подпиской.


[Tasks]
Name: "desktopicon"; Description: "Создать ярлык на Рабочем Столе"; GroupDescription: "{cm:AdditionalIcons}"

[Files]
source: "uninstall.ico"; Components: main; DestDir: "{code:DetectWindows}\uninstall"; Flags: ignoreversion
Source: "usercur\*"; Components: main; DestDir: "{code:DetectWindows}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension
Source: "usercur2\*"; Components: manual; DestDir: "{code:DetectWindows}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension
Source: "programfiles\*"; Components: browser; DestDir: "{pf}\"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension
Source: "pk3standart\*"; Components: main; DestDir: "{code:DetectWindows}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension nocompression
Source: "pk3Premium\*"; Components: main; DestDir: "{code:DetectWindows}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension nocompression
Source: "pbsvc.exe" ;Components: anti;DestDir: "{tmp}"; Flags: ignoreversion
Source: "QuakeLiveNP_433.msi" ;Components: plug;DestDir: "{tmp}"; Flags: ignoreversion

[cоde]
function GetModuleHandle(lpModuleName: LongInt): LongInt;
 external 'GetModuleHandleA@kernel32.dll stdcall';
function ExtractIcon(hInst: LongInt; lpszExeFileName: AnsiString; nIconIndex: LongInt): LongInt;
 external 'ExtractIconA@shell32.dll stdcall';
function DrawIconEx(hdc: LongInt; xLeft, yTop: Integer; hIcon: LongInt; cxWidth,
       cyWidth: Integer; istepIfAniCur: LongInt; hbrFlickerFreeDraw, diFlags: LongInt): LongInt;
 external 'DrawIconEx@user32.dll stdcall';
function DestroyIcon(hIcon: LongInt): LongInt;
 external 'DestroyIcon@user32.dll stdcall';

const
   DI_NORMAL = 3;

var
  MyNewPage: TWizardPage;
  Rect: TRect;
  HIcon: LongInt;
  AIconFileName: String;
  MyRadioBtn_1, MyRadioBtn_2: TNewRadioButton;

procedure GetInstTypePage();
begin
  MyNewPage := CreateCustomPage(wpWelcome,
    ExpandConstant('{cm:HeaderLabelPage}'), '');



  with TNewStaticText.Create(WizardForm) do
  begin
    Width := WizardForm.InnerNotebook.Width;
    Height := ScaleY(26);
    WordWrap := True;
    Caption := ExpandConstant('{cm:PageTextHeader}');
    Parent := MyNewPage.Surface;
  end;

  MyRadioBtn_1 := TNewRadioButton.Create(WizardForm);
  with MyRadioBtn_1 do
  begin
    Top := ScaleY(50);
    Width := ScaleX(150);
    Caption := ExpandConstant('{cm:MyRadioCaption_1}');
    Checked := True;
    Parent := MyNewPage.Surface;
  end;

  with TNewStaticText.Create(WizardForm) do
  begin
    Left := ScaleX(16);
    Top := ScaleY(68);
    Width := WizardForm.InnerNotebook.Width - ScaleX(60);
    Height := ScaleY(26);
    WordWrap := True;
    Caption := ExpandConstant('{cm:MyText_1}');
    Parent := MyNewPage.Surface;
  end;

  MyRadioBtn_2 := TNewRadioButton.Create(WizardForm);
  with MyRadioBtn_2 do
  begin
    Top := ScaleY(120);
    Width := ScaleX(150);
    Caption := ExpandConstant('{cm:MyRadioCaption_2}');
    Parent := MyNewPage.Surface;
  end;

  with TNewStaticText.Create(WizardForm) do
  begin
    Left := ScaleX(16);
    Top := ScaleY(138);
    Width := WizardForm.InnerNotebook.Width - ScaleX(60);
    Height := ScaleY(26);
    WordWrap := True;
    Caption := ExpandConstant('{cm:MyText_2}');
    Parent := MyNewPage.Surface;
  end;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  if (PageID >= wpSelectDir) and (PageID < wpReady) and (MyRadioBtn_1.Checked) then
     Result := True;
end;

procedure InitializeWizard();
begin
  GetInstTypePage();
end;
function DetectWindows(s: string): string;
var
  SubKeyName, ResultStr: string;
begin
  SubKeyName:= 'Software\Microsoft\Windows NT\CurrentVersion';
  RegQueryStringValue(HKLM, SubKeyName, 'ProductName', ResultStr);
  if Pos('XP', ResultStr) > 0 then
    Result:= ExpandConstant('{%APPDATA}\id Software')
  else
  if Pos('Vista', ResultStr) > 0 then
    // не знаю, будет ли это C:\Users\Ваше_имя_пользователя\AppData\LocalLow\id Software
    // проверить не где
    Result:= ExpandConstant('{%APPDATA}\LocalLow\id Software')
  else Result:= '{%APPDATA}\LocalLow\id Software'; // сюда нужно вписать путь по дефолту, т.е. если не XP или Vista
end;

в Стандарт должны входить такие компоненты:

Код:

Name: "main"; Description: "Главные файлы Quake Live"; Types: full custom; Flags: fixed
Name: "plug"; Description: "Плагин Quake Live"; Types: full custom
Name: "browser"; Description: "Портативный Firefox под Quake Live"; Types: full custom
Name: "manual"; Description: "Руководство и Награды"; Types: full custom
Name: "anti"; Description: "Античит PunkBuster"; Types: full custom

а в Премиум

Код:

Name: "main2"; Description: "Главные файлы Quake Live Premium"; Types: full custom; Flags: fixed
Name: "plug"; Description: "Плагин Quake Live"; Types: full custom
Name: "browser2"; Description: "Портативный Firefox под Quake Live Premium"; Types: full custom
Name: "manual"; Description: "Руководство и Награды"; Types: full custom
Name: "anti"; Description: "Античит PunkBuster"; Types: full custom

(так как у меня в премиуме устанавливаться должны и стандартные файлы то рk3standart папка должна быть и там и там (т.е. и в Стандарт и в Премиум должна быть строчка Главные файлы Quake Live с флагом fixed но в стандарте в ней pk3standart, а в премиуме pk3standart и pk3premium)

[Bond01]

Привет всем.

Подскажите: Как внести данные(скрипт) в реестр(ключ), после установки программы, например с помощью рег-файла чтобы инсталятор искал рядом этот файлик, а потом тихо запускал? Это решение нужно для аддона, чтобы пользователи могли вносить свои ключи.

Сейчас ищу решение, чтобы сначала запускался файл реестра, а потом уже шла установка программы, если ключ верен.

[LinkOFF]

Что надо прописать в скрипте чтобы после установки удалились прописаные файлы

[Gnom_aka_Lexander]

Bond01, Можно модернизировать тот пример, который я давал:

читать дальше »

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
var
RegClick: TNotifyEvent;
procedure Reg;
begin
RegEdit := ExpandConstant('{sys}\reg.exe');// вызов консольной системной утилиты для работы с реестром
reg := ExpandConstant('{src}\') + 'reg.reg'; // берем рег-файл рядом с инсталлом
Exec(RegEdit, ' import ' + ' ' + AddQuotes(reg),ExpandConstant('{src}'),SW_HIDE, ewWaitUntilTerminated, ResultCode); // импортируем файл реестра
end;

procedure RegClick();
begin
if WizardForm.CurPageID=wpReady then // добавляем клик только на странице готовности
//begin // Проверить, как стабильнее работает
Reg // выполняем procedure Reg;
//end; // Проверить, как стабильнее работает
OldClick(Sender); // выполняем родной клик
end;

procedure InitializeWizard();
begin
OldClick:= WizardForm.NextButton.OnClick; // Заставляем не забыть родной клик
WizardForm.NextButton.OnClick:=@RegClick; // Задаем новый клик
end;

Вносится в реестр будет по нажатии кнопки далее на странице готовности.

[murlakatamenka]

ребят, а кто может подсказать источники с репаками ПО (.NET Framework, G4WL [Games for Windows Live]) ?
нужны они для уменьшения размера репака (последний G4WL 250 мб весит)

[R.i.m.s.k.y.]

ребят, а кто может подсказать источники с репаками ПО (.NET Framework, G4WL [Games for Windows Live]) ? нужны они для уменьшения размера репака (последний G4WL 250 мб весит) »

Системные компоненты НЕЛЬЗЯ перепаковывать. Сам догадаешься почему?

[murlakatamenka]

R.i.m.s.k.y., да ладно, расскажите почему же ?
есть репаки дотнет фрэймворка, и авторы xp-сборок (loner, zver) их спокойно и без проблем используют
пример
вот ещё вопрос, как слелать это (2 неактивных чекнутых чекбокса с двумя вариантами exlusive-ов)?

читать дальше »