Jump to content
Korean Random
EvilAlex

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

Recommended Posts

вот эти флаги пропиши к тому варианту что я скидывал -  Flags: postinstall shellexec

 

P/S...  Gad575 как всегда всем помогает!!!  не раз выручал)))

оки! добавлю себе сразу два варианта... чтоб на верочку сайт открылся! )))

  • Downvote 3

Share this post


Link to post

Short link
Share on other sites

добавлю себе сразу два варианта... чтоб на верочку сайт открылся! )))

а вот это лишнее, тебе бы понравилось, если бы 1 сайт 2 раза открывался?

 

UPD

дак вон оно шо)))

вижу в военно морском юморе ты не слишком силен)) естественно только один вариант поставил... ))

Edited by Gad575

Share this post


Link to post

Short link
Share on other sites

а вот это лишнее, тебе бы понравилось, если бы 1 сайт 2 раза открывался?

вижу в военно морском юморе ты не слишком силен)) естественно только один вариант поставил... ))

  • Downvote 3

Share this post


Link to post

Short link
Share on other sites

Привет всем,кто подскажет,что нужно сделать, для докачки больших файлов в инсталяторе?

Share this post


Link to post

Short link
Share on other sites

Привет всем,кто подскажет,что нужно сделать, для докачки больших файлов в инсталяторе?

Вопрос не совсем понятен... Надо чтобы при обрыве соединения докачивался или просто скачать файл большой  в несколько потоков типа торрента?

Если просто скачать по сети то есть в инно скрипт скачивания внешнего файла по сети в назначенный момент например перед установкой и распаковка его так же в нужный момент.

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

Edited by Nowik1971

Share this post


Link to post

Short link
Share on other sites

Привет всем,кто подскажет,что нужно сделать, для докачки больших файлов в инсталяторе?

Скрипт только для примера, у меня всё не так написано/описано/подключено! Пример примитивный, включайте воображение и фантазию! :heh:

Изначальный скрипт имел другой вид, я его немного покромсал под свои нужды. В любом случае рекомендую ознакомиться с оригиналом, справкой и примерами: https://code.google.com/p/inno-download-plugin/. Тестировал под 5.5.1ee2 (u).

 

[Setup]
#include "Embedded\idp.iss";

[Setup]
AppName= My Program
AppVersion= 1.0
DefaultDirName= C:\My Program
OutputDir=.

[Files]
Source: "Embedded\idp.dll"; Flags: dontcopy;
Source: "Embedded\7zA.exe"; Flags: dontcopy;
Source: "Key.png"; DestDir: "{app}"; Flags: overwritereadonly ignoreversion;

[Types]
Name: "full"; Description: "Full installation"; Flags: iscustom;

[Components]
Name: "Bla"; Description: "Bla-bla-bla"; Types: full;
Name: "Bla\1"; Description: "Bla-bla-bla-bla"; Types: full;
Name: "Bla\2"; Description: "Bla-bla-bla-bla-bla"; Types: full;

[_Code_]
/// --- UnPack Begin --- ///

procedure ExtractResources();
var
  ResultCode: Integer;
begin
  ExtractTemporaryFile('7zA.exe');
  CreateDir(ExpandConstant('{app}\7zA_Files'));
  CreateDir(ExpandConstant('{app}\res_mods'));
  FileCopy(ExpandConstant('{tmp}\7zA.exe'), ExpandConstant('{app}\7zA_Files\7zA.exe'), False);

  If (IsComponentSelected('Bla\1')) and (FileExists(ExpandConstant('{app}\hangar_1.7z'))) then
begin
  Exec(ExpandConstant('{app}\7zA_Files\7zA.exe'), 'x -y ..\hangar_1.7z -o..\res_mods', '', SW_Hide, ewWaitUntilTerminated, ResultCode);
  DeleteFile(ExpandConstant('{app}\hangar_1.7z'));
end;

  If (IsComponentSelected('Bla\2')) and (FileExists(ExpandConstant('{app}\hangar_2.7z'))) then
begin
  Exec(ExpandConstant('{app}\7zA_Files\7zA.exe'), 'x -y ..\hangar_2.7z -o..\res_mods', '', SW_Hide, ewWaitUntilTerminated, ResultCode);
  DeleteFile(ExpandConstant('{app}\hangar_2.7z'));
end;

  DelTree(ExpandConstant('{app}\7zA_Files'), True, True, True);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  If CurStep=ssDone then
begin
  ExtractResources();
end;
end;

/// --- UnPack End --- ///

procedure CurPageChanged(CurPageID: Integer);
begin
    if CurPageID = wpInstalling then
begin
    if IsComponentSelected('Bla\1') then
begin
    idpAddFile('http://www.com/hangar_1.7z', ExpandConstant('{app}\hangar_1.7z'));
end;
    if IsComponentSelected('Bla\2') then
begin
    idpAddFile('http://www.com/hangar_2.7z', ExpandConstant('{app}\hangar_2.7z'));
end;
end;
end;

procedure InitializeWizard();
begin
  idpDownloadAfter(wpInstalling);
end;

 

Для хранения файлов рекомендую использовать FTP-хранилище (например selectel.ru). Сервис обладает удобной закачкой файлов, контролем за ними, счётчиком скачиваний и т.д. При регистрации начисляется 10 рублей, который хватает для хранения файлов и обмен нескольких Гб трафика.

9c27a9c4581d.png

 

На самый худой случай можно создать на ucoz.ru бесплатный сайт (места дают 400 Мб).

 

З.Ы. Если не сможете подключить скрипт - ваши проблемы.

IDP_and_Extract_Example_AtotIK.rar

Edited by Gad575
  • Upvote 1

Share this post


Link to post

Short link
Share on other sites

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

Share this post


Link to post

Short link
Share on other sites

Вопрос не совсем понятен... Надо чтобы при обрыве соединения докачивался или просто скачать файл большой  в несколько потоков типа торрента?

Если просто скачать по сети то есть в инно скрипт скачивания внешнего файла по сети в назначенный момент например перед установкой и распаковка его так же в нужный момент.

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

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

Вот именно так сделать

Share this post


Link to post

Short link
Share on other sites

***

Вот именно так сделать

Так вам и дал Gad575 примеры скриптов и тем более уже урезанный, я посмотрел , проверил, он  отлично работает!! Все просто до ужаса...

Share this post


Link to post

Short link
Share on other sites

Короче сделал тебе один пример , остальное по аналогии сделаешь там не сложно... 
Пардон перепутал, в личку уже кинул посмотри...

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

Edited by Nowik1971

Share this post


Link to post

Short link
Share on other sites

Del... Вопрос решен.

Edited by ЛОМ

Share this post


Link to post

Short link
Share on other sites

всем привет. подскажите как сделать так чтобы при наведении не менял цвет пункт очистки кеша? верхние пункты догнал как сделать а вот с этим пунктом беда..

вот кусок скрипта этого..

  NoneRadioButton:=TRadioButton.Create(WizardForm);
  NoneRadioButton.SetBounds(290, 240, WizardForm.RunList.Width, 20)
  NoneRadioButton.Checked:=False;
  NoneRadioButton.Caption:='шгргшргргргшгр';
  NoneRadioButton.Parent:=WizardForm.SelectDirPage;
  NoneRadioButton.Height:=13;
  NoneRadioButton.Width:=13;
  NoneDescLabel:=TLabel.Create(WizardForm);
  NoneDescLabel.Parent:=WizardForm.SelectDirPage;
  NoneDescLabel.Left:=307;
  NoneDescLabel.Top:=237;
  NoneDescLabel.Width:=WizardForm.SelectDirPage;
  NoneDescLabel.Height:=20;
  NoneDescLabel.AutoSize:=False;
  NoneDescLabel.Wordwrap:=True;
  NoneDescLabel.Caption:=NoneDescText;
  NoneDescLabel.Font.Color := clSilver;
  NoneDescLabel.Font.Size:=11;
  NoneDescLabel.Font.Name := 'WarHeliosCondCBold';



// вот тут сделать как сделано выше...

  DeleteCashAndLogsCheckBox:=TCheckBox.Create(WizardForm);
  DeleteCashAndLogsCheckBox.SetBounds(292, 280, WizardForm.RunList.Width, 20)
  DeleteCashAndLogsCheckBox.Checked:=True;
  DeleteCashAndLogsCheckBox.Caption:=' Очистить кэш игры?';
  DeleteCashAndLogsCheckBox.Parent:=WizardForm.SelectDirPage;
  DeleteCashAndLogsCheckBox.Font.Color := clSilver;
  DeleteCashAndLogsCheckBox.Font.Size:=11;
  DeleteCashAndLogsCheckBox.Font.Name := 'WarHeliosCondCBold';

04dff88391714858881e23bdef3e890a.png

Share this post


Link to post

Short link
Share on other sites

var
  DeleteCashAndLogsCheckBox: TCheckBox;

const
  DeleteCashAndLogsDescText =
    'Очистить кэш игры?';
function BackupCheck_1(): Boolean;
var
   DeleteCashAndLogsDescLabell: TLabel;

begin 

 

  DeleteCashAndLogsCheckBox:=TCheckBox.Create(WizardForm);

  DeleteCashAndLogsCheckBox.SetBounds(262, 240, WizardForm.RunList.Width, 20)
  DeleteCashAndLogsCheckBox.Checked:=True;
  DeleteCashAndLogsCheckBox.Caption:=' ';
  DeleteCashAndLogsCheckBox.Parent:=WizardForm.SelectDirPage;
  DeleteCashAndLogsCheckBox.Font.Color := clSilver;
  DeleteCashAndLogsCheckBox.Font.Size:=9;
  DeleteCashAndLogsCheckBox.Font.Name := 'Sitka Small';
  DeleteCashAndLogsCheckBox.Font.Style := [fsBold];
  DeleteCashAndLogsDescLabel:=TLabel.Create(WizardForm);
  DeleteCashAndLogsDescLabel.Parent:=WizardForm.SelectDirPage;
  DeleteCashAndLogsDescLabel.Left :=205;
  DeleteCashAndLogsDescLabel.Top:=276;
  DeleteCashAndLogsDescLabel.Width:=WizardForm.SelectDirPage;
  DeleteCashAndLogsDescLabel.Height:=80;
  DeleteCashAndLogsDescLabel.AutoSize:=False;
  DeleteCashAndLogsDescLabel.Wordwrap:=True;
  DeleteCashAndLogsDescLabel.Caption:=DeletekeshDescText;
  DeleteCashAndLogsDescLabel.Font.Color := clSilver;
  DeleteCashAndLogsDescLabel.Font.Size:=13;
  DeleteCashAndLogsDescLabel.Font.Name := 'Times New Roman';
  DeleteCashAndLogsDescLabel.Font.Style := [fsBold];

 

function BackupCheck_4(): Boolean;
begin
  If DeleteCashAndLogsCheckBox.Checked then
begin
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\account_caches\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\battle_results\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\clan_cache\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\custom_data\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\dossier_cache\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\messenger_cache\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\pmod\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\tutorial_cache\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\veh_cmp_cache\'), True, True, True);

 

end;
end;

 

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssInstall then
CreateLogMods;
if CurStep = ssInstall then
begin
BackupCheck_4();
end;
end;

Edited by sergy2010
  • Upvote 1

Share this post


Link to post

Short link
Share on other sites

если очистить account_caches, то удалятся пароли. может стоит его пропустить? я не удаляю пароль, вдруг не вспомню, )))

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

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

Edited by BrutHunt

Share this post


Link to post

Short link
Share on other sites

это если IS не имеет функции поиска по параметру

Не имеет, но можно сделать вручную (Find*-функции).

Но если рассматривать вопрос с точки зрения компактности, то лучше всё записывать отдельно.

Edited by Kotyarko_O

Share this post


Link to post

Short link
Share on other sites

sergy2010 что то не получается ничего... вот весь мой код очистки и удаления...

var
  DeleteRadioButton, MoveRadioButton, NoneRadioButton: TRadioButton;
  DeleteCashAndLogsCheckBox: TCheckBox;

const
  DeleteDescText =
    'Установщик очистит папки res_mods и mods.';
  MoveDescText =
    'Установщик сделает резервную копию файлов.';
  NoneDescText =
    'Установщик не будет ничего трогать.';

function BackupCheck_1(): Boolean;
var
  DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel;
begin
  DeleteRadioButton:=TRadioButton.Create(WizardForm);
  DeleteRadioButton.SetBounds(290, 160, WizardForm.RunList.Width, 20)
  DeleteRadioButton.Checked:=True;
  DeleteRadioButton.Caption:='рукркуркурку';
  DeleteRadioButton.Parent:=WizardForm.SelectDirPage;
  DeleteRadioButton.Height:=13;
  DeleteRadioButton.Width:=13;
  DeleteDescLabel:=TLabel.Create(WizardForm);
  DeleteDescLabel.Parent:=WizardForm.SelectDirPage;
  DeleteDescLabel.Left:=307;
  DeleteDescLabel.Top:=157;
  DeleteDescLabel.Width:=WizardForm.SelectDirPage;
  DeleteDescLabel.Height:=20;
  DeleteDescLabel.AutoSize:=False;
  DeleteDescLabel.Wordwrap:=True;
  DeleteDescLabel.Caption:=DeleteDescText;
  DeleteDescLabel.Font.Color := clSilver;
  DeleteDescLabel.Font.Size:=11;
  DeleteDescLabel.Font.Name := 'WarHeliosCondCBold';





  MoveRadioButton:=TRadioButton.Create(WizardForm);
  MoveRadioButton.SetBounds(290, 200, WizardForm.RunList.Width, 20)
  MoveRadioButton.Checked:=False;
  MoveRadioButton.Caption:='щлзщьлщш0зьлщьл';
  MoveRadioButton.Parent:=WizardForm.SelectDirPage;
  MoveRadioButton.Height:=13;
  MoveRadioButton.Width:=13;
  MoveDescLabel:=TLabel.Create(WizardForm);
  MoveDescLabel.Parent:=WizardForm.SelectDirPage;
  MoveDescLabel.Left:=307;
  MoveDescLabel.Top:=197;
  MoveDescLabel.Width:=WizardForm.SelectDirPage;
  MoveDescLabel.Height:=20;
  MoveDescLabel.AutoSize:=False;
  MoveDescLabel.Wordwrap:=True;
  MoveDescLabel.Caption:=MoveDescText;
  MoveDescLabel.Font.Color := clSilver;
  MoveDescLabel.Font.Size:=11;
  MoveDescLabel.Font.Name := 'WarHeliosCondCBold';





  NoneRadioButton:=TRadioButton.Create(WizardForm);
  NoneRadioButton.SetBounds(290, 240, WizardForm.RunList.Width, 20)
  NoneRadioButton.Checked:=False;
  NoneRadioButton.Caption:='шгргшргргргшгр';
  NoneRadioButton.Parent:=WizardForm.SelectDirPage;
  NoneRadioButton.Height:=13;
  NoneRadioButton.Width:=13;
  NoneDescLabel:=TLabel.Create(WizardForm);
  NoneDescLabel.Parent:=WizardForm.SelectDirPage;
  NoneDescLabel.Left:=307;
  NoneDescLabel.Top:=237;
  NoneDescLabel.Width:=WizardForm.SelectDirPage;
  NoneDescLabel.Height:=20;
  NoneDescLabel.AutoSize:=False;
  NoneDescLabel.Wordwrap:=True;
  NoneDescLabel.Caption:=NoneDescText;
  NoneDescLabel.Font.Color := clSilver;
  NoneDescLabel.Font.Size:=11;
  NoneDescLabel.Font.Name := 'WarHeliosCondCBold';



/////////////////////// вот тут изменить нужно...

  DeleteCashAndLogsCheckBox:=TCheckBox.Create(WizardForm);
  DeleteCashAndLogsCheckBox.SetBounds(292, 280, WizardForm.RunList.Width, 20)
  DeleteCashAndLogsCheckBox.Checked:=True;
  DeleteCashAndLogsCheckBox.Caption:=' Очистить кэш игры?';
  DeleteCashAndLogsCheckBox.Parent:=WizardForm.SelectDirPage;
  DeleteCashAndLogsCheckBox.Font.Color := clSilver;
  DeleteCashAndLogsCheckBox.Font.Size:=11;
  DeleteCashAndLogsCheckBox.Font.Name := 'WarHeliosCondCBold';




end;

function BackupCheck_2(): Boolean;
begin
  If DeleteRadioButton.Checked then
begin
  DelTree(ExpandConstant('{app}\res_mods'), True, True, True);
  ForceDirectories(ExpandConstant('{app}\res_mods\0.9.19.0.1'));

  DelTree(ExpandConstant('{app}\mod_config'), True, True, True);

  DelTree(ExpandConstant('{app}\mods'), True, True, True);
  ForceDirectories(ExpandConstant('{app}\mods\0.9.19.0.1'));
end;
end;

function BackupCheck_3(): Boolean;
begin
  If MoveRadioButton.Checked then
begin
  MoveDir(ExpandConstant('{app}\res_mods\'),ExpandConstant('{app}\res_mods\backup\res_mods'));
  CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));

  MoveDir(ExpandConstant('{app}\mods\'),ExpandConstant('{app}\mods\backup\mods'));
  CreateDir(ExpandConstant('{app}\mods\{#Patch}'));
end;
end;

function BackupCheck_4(): Boolean;
begin
  If DeleteCashAndLogsCheckBox.Checked then
begin
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\account_caches\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\battle_results\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\clan_cache\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\custom_data\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\dossier_cache\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\messenger_cache\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\pmod\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\tutorial_cache\'), True, True, True);
  DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\veh_cmp_cache\'), True, True, True);



end;
end;


procedure CurStepChanged(CurStep: TSetupStep);
begin
 if CurStep = ssInstall then
 CreateLogMods;
if CurStep = ssInstall then
begin
BackupCheck_2();
BackupCheck_3();
BackupCheck_4();

end;
end;

 

и вот как сделать в этом коде чтобы было  как я написал выше???

Edited by ЛОМ

Share this post


Link to post

Short link
Share on other sites

 

 

и вот как сделать в этом коде чтобы было как я написал выше

Попробовать без скина сначала.

  • Upvote 1

Share this post


Link to post

Short link
Share on other sites

Попробовать без скина сначала.

а других вариантов нет? )))

Share this post


Link to post

Short link
Share on other sites

Всем привет, подскажите 23. мод на картинке как прописать так красный цвет в скобках можно?

 2017-06-11_133646.jpg

  • Downvote 3

Share this post


Link to post

Short link
Share on other sites

всем привет. подскажите а почему с этим кодом скачивает но не распаковывает? 

#include "Embedded\idp.iss"
#define MyAppName "XXX-удалить"


[Files]
Source: "Embedded\idp.dll"; Flags: dontcopy;
Source: "Embedded\7zA.exe"; Flags: dontcopy;

[Types]
Name: "full"; Description: "Full installation"; Flags: iscustom;

[Components]
Name: "Bla"; Description: "Bla-bla-bla"; Types: full;
Name: "Bla\1"; Description: "балабала"; Types: full;
Name: "Bla\2"; Description: "ЧТО ТО"; Types: full;


[Code]
procedure ExtractResourcesFile(UnPack, Files, ToPlace: String);
var
  ResultCode: Integer;
begin
  Exec(UnPack, 'x -y' + ' ' + Files + ' ' + '-o' + ToPlace, '', SW_Show, ewWaitUntilTerminated, ResultCode);
end;

procedure ExtractResources;
begin
  ExtractTemporaryFile('7zA.exe');
  CreateDir(ExpandConstant('{app}\res_mods'));
  CreateDir(ExpandConstant('{app}\{#MyAppName}'));
  CreateDir(ExpandConstant('{app}\{#MyAppName}'));
  FileCopy(ExpandConstant('{tmp}\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\7zA.exe'), False);

  If (IsComponentSelected('Bla\1')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\попадание без зассвета.7z'))) then
begin
  ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\попадание без зассвета.7z'), ExpandConstant('{app}\res_mods'));
end;
  If (IsComponentSelected('Bla\2')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\hangar_2.7z'))) then
begin
  ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\hangar_2.7z'), ExpandConstant('{app}\res_mods'));
end;
  DelTree(ExpandConstant('{app}\{#MyAppName}'), True, True, True);
end;

procedure CurStepChanged1(CurStep: TSetupStep);
begin
  If CurStep = ssPostInstall then
begin
  ExtractResources;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
    if CurPageID = wpReady then
begin
    if IsComponentSelected('Bla\1') then
begin
    CreateDir(ExpandConstant('{app}\{#MyAppName}'));
    CreateDir(ExpandConstant('{app}\{#MyAppName}'));
    idpAddFile('http://236703.selcdn.ru/777/попадание без зассвета.7z', ExpandConstant('{app}\{#MyAppName}\попадание без зассвета.7z'));
end;
    if IsComponentSelected('Bla\2') then
begin
    CreateDir(ExpandConstant('{app}\{#MyAppName}'));
    CreateDir(ExpandConstant('{app}\{#MyAppName}'));
    idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\hangar_2.7z'));
end;
end;
end;



procedure IDPdownload;
begin
  idpDownloadAfter(wpReady);
end; 

 

подключал  к основному скрипту через #include. там же в InitializeWizard дописана строчка - idpDownloadAfter(wpInstalling);

 

P/S... эта  тема уже всем надоела))) еще бы...))) одно и тоже по сто раз все спрашивают))) но... я уже второй день заново читаю  эту тему и там на 75 странице AtotIK и пример кода кидал,но что то не заводится у меня это дело( 

Edited by ЛОМ

Share this post


Link to post

Short link
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...