[Влад2012]

Подскажите, пожалуйста, как реализовать подхват настроек из reg файлов (как в репаках от elchupakabra?)

[insombia]

У кого-то есть закос под шепарда?

[EvilAlex]

Лександер, выручай, вообще не доходит что там как 0_о Мне бы пример готовый, яб на нем натренировался, а так я только нашел в их справках про размер и ссылки, про установку не слова

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

Подскажите, пожалуйста, как реализовать подхват настроек из reg файлов (как в репаках от elchupakabra? »

вас ист дас elchupakabra?
а вообще почитать в шапке "сборник вопросов", третий пример сверху

[Gnom_aka_Lexander]

EvilAlex, вот накидал тебе распаковку на базе твоего примера + Библиотечка от Экспедитора.

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

[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
Compression=zip

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

[Files]
Source: is7z.dll; DestDir: {tmp}; Flags: dontcopy

[Icons]
Name: "{group}\Удалить"; IconFilename: "{app}\unins000.exe"; Filename: "{app}\unins000.exe"

[code]
var
ProgressBar : TNewProgressBar;
ExtractFile:TNewStaticText;
Button1:TButton;

procedure Extract7z (hWnd, hpb, hst: THandle; fpath, extractPath, pass:pchar); external 'Extract7z@files:is7z.dll stdcall';
procedure CancelExtract; external 'CancelExtract@files:is7z.dll stdcall';

procedure download();
begin
itd_init;

//Let's download two zipfiles from my website..
itd_addfile('http://87.224.140.43/files/setup1.zip',expandconstant('{tmp}\setup1.zip'));

//Start the download after the "Ready to install" screen is shown
itd_downloadafter(wpReady);
end;

procedure InitializeWizard();
begin
download();

ProgressBar := TNewProgressBar.Create(WizardForm);
ExtractFile:=TNewStaticText.Create(WizardForm);
with WizardForm.ProgressGauge do
begin
ProgressBar.Left := Left;
ProgressBar.Top := Top + ScaleX(55);
ProgressBar.Width := Width;
ProgressBar.Height := Height;
ProgressBar.Parent := WizardForm.InstallingPage;
ProgressBar.max := 100;
ProgressBar.Position := 0;
ExtractFile.parent:=WizardForm.InstallingPage;
ExtractFile.autosize:=false;
ExtractFile.Width := Width;
ExtractFile.top:=Top + ScaleX(35);
ExtractFile.caption:='Распаковка архива 7zip';
end;
end;

procedure Button1OnClick(Sender: TObject);
begin
CancelExtract;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
If CurStep=ssPostInstall then
begin
Button1:=TButton.create(WizardForm);
Button1.parent:=WizardForm;
Button1.width:=135;
Button1.caption:='Отменить распаковку';
Button1.left:=260;
Button1.top:=WizardForm.cancelbutton.top;
Button1.OnClick:=@Button1OnClick;
try

if FileExists (expandconstant('{tmp}\setup1.zip')) then begin // проверяем наличие файла
Extract7z (wizardform.handle, progressbar.handle, ExtractFile.handle, ExpandConstant('{tmp}') + '\setup1.7z', ExpandConstant('{app}'), '');
end;
Button1.visible:=false;
except
MsgBox('Неверный пароль!', mbInformation, MB_OK);
Button1.visible:=false;
end;
end;
end;

Во вложении архив с библиотечкой и этим-же скриптом.

insombia,

У кого-то есть закос под шепарда? »

У Гугла. http://rghost.ru/4896048

[EvilAlex]

Лександер, вот что выдает, я хз http://rghost.ru/5599931

[Gnom_aka_Lexander]

EvilAlex, залей целиком свой скрипт замени вот в этой строчке 7z на zip - пропустил...

Код:

Extract7z (wizardform.handle, progressbar.handle, ExtractFile.handle, ExpandConstant('{tmp}') + '\setup1.zip', ExpandConstant('{app}'), '');

[EvilAlex]

Лександер, http://rghost.ru/5600921 это тот что ты дал, я скопировл, потом добавил is7z.dll и нажал на копиляцию, он создал сетап и я нажал установка, фаил скачиваеться и когда идет распаковка архивов 7зип то вылетает ошибка, жмеш ок и снова компиляцию, показывет в инстале окошко с надписью "Неправельный пароль", жму ок и он пшет что установка прошла успешно, а куда и что он установил хз !!! Также установлена itd0.3.5.exe

[Gnom_aka_Lexander]

а куда и что он установил хз !!! »

- сюда: DefaultDirName={pf}\My Program - ты сам указываеш, куда распаковывать, мне нужен полный скрипт - иначе никак не проверить.

[EvilAlex]

полный ? всмысле ? я тебе скинул какой есть ... ты вот пример дал, и я его скопипастил, запустил и ошибка ...

у мня только твой пример и все, есть еще 1 http://rghost.ru/5603241 тут и все! больше нет ни каких ...