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

Neutron,
по второму вопросу ответ есть в сборнике скриптов в шапке

Код:

[Setup] 
DefaultDirName={reg:HKLM\Software\My Program, Path} 

где будет браться путь из HKLM\Software\My Program , где ключ обозван Path , где в ключе Path хранится путь до того, что тебе надо. 
Вот как отключить окно выбора пути установки: 

[Setup] 
DefaultDirName={pf}\My Program 
DisableDirPage=yes 

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

С первым можно попробовать так:

Код:

Function InitializeSetup: Boolean;
var res : integer;
begin
...
Exec('ping.exe ', ' 2ip.ru ', ExpandConstant('{sys}'), SW_HIDE, ewWaitUntilTerminated, res);
if res > 0 then begin
MsgBox('Надено подключение к интернету. Установка будет прекращена'+Filepath, mbInformation, MB_OK);
Result := False;
end;
end; //InitializeSetup

[MrAWP]

Здравствуйте! Очень нужна помощь в реализации казалось бы простой фишки, от которой зависит выход релиза.

Принцип: пользователь качает базовый пакет программы, во время установки на определенной странице (допустим, на стандартной странице выбора компонентов установки) он выбирает дополнительные пакеты для этой программы, который инсталлятор сам вытянет из нужного сервера и распакует во время установки.

На первый взгляд, всё просто - скачал плагин ISDownloader для IS, нашел уже чеё-то готовый скрипт который проверяет, выбран ли компонент и качает. Вот этот скрипт:

Код:

 [Components]
Name: Component1; Description: Антивирус касперского; Flags: checkablealone; Types: full
Name: Component2; Description: Commfort Chat; Flags: checkablealone; Types: full
Name: Component3; Description: IpTv Player; Flags: checkablealone; Types: full
Name: Component4; Description: VideoLan (VLC); Flags: checkablealone; Types: full
Name: Component5; Description: Opera Browser; Flags: checkablealone; Types: full 

[Для Code (бб-код форума не парсится)]

procedure InitializeWizard();
begin
 itd_init; 

if ISComponentSelected('Component1') then itd_addfile('http://192.168.1.153/mhhl/install/KAV6WKS_2011-09-18_x600_05E5A9CD.key',expandconstant('{tmp}\KAV6WKS_2011-09-18_x600_05E5A9CD.key'));
if ISComponentSelected('Component1') then itd_addfile('http://192.168.1.153/mhhl/install/kav.msi',expandconstant('{tmp}\kav.msi'));
if ISComponentSelected('Component2') then itd_addfile('http://192.168.1.153/mhhl/install/Chat.exe',expandconstant('{tmp}\Chat.exe'));
if ISComponentSelected('Component3') then itd_addfile('http://192.168.1.153/mhhl/install/iptvLan.exe',expandconstant('{tmp}\iptvLan.exe'));
if ISComponentSelected('Component4') then itd_addfile('http://192.168.1.153/mhhl/install/vlc.exe',expandconstant('{tmp}\vlc.exe'));
if ISComponentSelected('Component5') then itd_addfile('http://192.168.1.153/mhhl/install/Opera11.exe',expandconstant('{tmp}\Opera11.exe'));


 itd_downloadafter(wpReady);
end;

Но вот беда - файлы качаются ВСЕ, независимо от того что выбрано на странице компонентов

Затем наткнулся на скрипт, в котором реализовано то что я хочу, но через костыли (вот он - http://freetexthost.com/osq0sfyeav) - тут перед появлением приветствия вылетают поочередно окошки для каждого компонента (типа: Ставить Это... Да/Нет), потом появляются нормальные окна установщика, окно с выбором компонентов (которое, естественно ни на что не влияет), но качает то что надо.

Прошу у вас помощи, т.к. срывается важный релиз. Гляньте кто-нибудь 1й код, мб там ошибка? Если там всё норм и это баг плагина, возможно ли действовать по принципу 2го кода, но создать новую страницу, которая будет иммитировать обычную страницу с компонентами(с чекбоксами)?

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

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

MrAWP, ты компоненты обрабатываешь когда до самого окна компонентов еще очередь не дошла но оно уже создано - в InitializeWizard.
Почитай в справке Installation order, а пока попробуй так:

Код:

procedure InitializeWizard();
begin
end;

procedure CurPageChanged(CurPageID: Integer);
begin
If CurPageID=wpReady then begin
 itd_init; 

if ISComponentSelected('Component1') then itd_addfile('http://192.168.1.153/mhhl/install/KAV6WKS_2011-09-18_x600_05E5A9CD.key',expandconstant('{tmp}\KAV6WKS_2011-09-18_x600_05E5A9CD.key'));
if ISComponentSelected('Component1') then itd_addfile('http://192.168.1.153/mhhl/install/kav.msi',expandconstant('{tmp}\kav.msi'));
if ISComponentSelected('Component2') then itd_addfile('http://192.168.1.153/mhhl/install/Chat.exe',expandconstant('{tmp}\Chat.exe'));
if ISComponentSelected('Component3') then itd_addfile('http://192.168.1.153/mhhl/install/iptvLan.exe',expandconstant('{tmp}\iptvLan.exe'));
if ISComponentSelected('Component4') then itd_addfile('http://192.168.1.153/mhhl/install/vlc.exe',expandconstant('{tmp}\vlc.exe'));
if ISComponentSelected('Component5') then itd_addfile('http://192.168.1.153/mhhl/install/Opera11.exe',expandconstant('{tmp}\Opera11.exe'));
 itd_downloadafter(wpInstalling);
end;//wpReady 
end;//CurPageChanged

Только смотри чтобы промежуточные окна инно не были отключены а то условие не сработает, тогда wpReady смени на то, что наступает перед wpInstalling, на wpSelectProgramGroup к примеру

страницы идут в следующем порядке
wpWelcome, wpLicense, wpPassword, wpInfoBefore, wpUserInfo, wpSelectDir, wpSelectComponents, wpSelectProgramGroup, wpSelectTasks, wpReady, wpPreparing, wpInstalling, wpInfoAfter, wpFinished

[Serega]

Но вот беда - файлы качаются ВСЕ, независимо от того что выбрано на странице компонентов »

Ответ есть в ваших словах, немного вдумайтесь...
Когда срабатывает procedure InitializeWizard(); и когда нужно проверять ISComponentSelected?

P.S.
R.i.m.s.k.y., извиняюсь когда писал поста не было...

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

R.i.m.s.k.y., извиняюсь когда писал поста не было... »

ничего, лучше глянь, я не попутал If CurPageID=wpReady then begin и itd_downloadafter(wpInstalling);

[MrAWP]

R.i.m.s.k.y., Serega спасибо вам большое, а то б сам наверное никогда не допер что дело в этом) Кажется работает.

[Serega]

я не попутал If CurPageID=wpReady then begin и itd_downloadafter(wpInstalling); »

Да в принципе всё нормально, единственное я бы посадил эту проверку в function NextButtonClick, ну и в itd_downloadafter указал wpReady, чтоб загрузка доп. программ шла до установки основной программы.

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

R.i.m.s.k.y., Serega спасибо вам большое, а то б сам наверное никогда не допер что дело в этом) Кажется работает. »

читай справку и будешь таким же крутым

[vovka1021]

у ково есть свободное время помогите пожалуйста обьединить это

скрипт

[Files]
Source: "gifctrl.dll"; Flags: dontcopy solidbreak
Source: 0023.gif; Flags: dontcopy solidbreak

[code]
const
HALIGN_CENTER = 0;
HALIGN_LEFT = 1;
HALIGN_RIGHT = 2;
VALIGN_CENTER = 0;
VALIGN_TOP = 1;
VALIGN_BOTTOM = 2;
FIT_NONE = 0;
FIT_WIDTH = 1;
FIT_HEIGHT = 2;
FIT_BOTH = 3;
CLR_INVALID = $FFFFFFFF;

function NewGifbWnd(hWndParent: HWND; X, Y, nWidth, nHeight: Integer): HWND; external 'newgifwnd@files:gifctrl.dll stdcall';
function FreeGifWnd(hWndGif: HWND): Boolean; external 'freegifwnd@files:gifctrl.dll stdcall';
function FreeAllGifWnd(): Boolean; external 'freeallgifwnd@files:gifctrl.dll stdcall';
function GifWndSetParent(hWndGif: HWND; hWndParent: HWND): Boolean; external 'gifwndsetparent@files:gifctrl.dll stdcall';
function GifWndSetBounds(hWndGif: HWND; X, Y, nWidth, nHeight: Integer): Boolean; external 'gifwndsetbounds@files:gifctrl.dll stdcall';
function GifWndLoadFromFile(hWndGif: HWND; HAlign, VAlign: Integer; BGColor: DWord; Fit: integer; GifFileName: PChar): Boolean; external 'gifwndloadfromfile@files:gifctrl.dll stdcall';

var
GifPanel: TPanel;
GIFHWND: HWND;

function InitializeSetup(): Boolean;
begin
GIFHWND := 0;
Result := True;
end;

procedure DeinitializeSetup();
begin
FreeAllGifWnd();
end;

procedure InitializeWizard();
var
GifFileName: String;
Lbl: TNewStaticText;
begin
ExtractTemporaryFile('0023.gif');

GIFHWND := NewGifbWnd(WizardForm.Handle, ScaleX(30), WizardForm.Bevel.Top + ScaleY(8), 88, 31);
GifWndLoadFromFile(GIFHWND, HALIGN_CENTER, VALIGN_CENTER, CLR_INVALID, FIT_NONE, ExpandConstant('{tmp}\0023.gif'));
Lbl := TNewStaticText.Create(WizardForm);
Lbl.Parent := WizardForm;
Lbl.AutoSize := False;
Lbl.SetBounds(ScaleX(30), WizardForm.Bevel.Top + ScaleY(8), 88, 31);
end;

с этим:

У меня не доходит как сделать првильно.

Большое спасибо!

[LordSP]

Serega, Сергей а покажи пример:

Да в принципе всё нормально, единственное я бы посадил эту проверку в function NextButtonClick, ну и в itd_downloadafter указал wpReady, чтоб загрузка доп. программ шла до установки основной программы. »