Draug 59 #391509 Posted May 22, 2017 вот эти флаги пропиши к тому варианту что я скидывал - Flags: postinstall shellexec P/S... Gad575 как всегда всем помогает!!! не раз выручал))) оки! добавлю себе сразу два варианта... чтоб на верочку сайт открылся! ))) 3 Quote Share this post Link to post Short link Share on other sites
BeJIuKuu_TaHKoBbIu_BouH 4 #391632 Posted May 23, 2017 (edited) добавлю себе сразу два варианта... чтоб на верочку сайт открылся! ))) а вот это лишнее, тебе бы понравилось, если бы 1 сайт 2 раза открывался? UPD дак вон оно шо))) вижу в военно морском юморе ты не слишком силен)) естественно только один вариант поставил... )) Edited May 24, 2017 by Gad575 Quote Share this post Link to post Short link Share on other sites
Draug 59 #391634 Posted May 23, 2017 а вот это лишнее, тебе бы понравилось, если бы 1 сайт 2 раза открывался? вижу в военно морском юморе ты не слишком силен)) естественно только один вариант поставил... )) 3 Quote Share this post Link to post Short link Share on other sites
KIBORG 17 #392220 Posted May 28, 2017 Привет всем,кто подскажет,что нужно сделать, для докачки больших файлов в инсталяторе? Quote Share this post Link to post Short link Share on other sites
Nowik1971 2 #392222 Posted May 28, 2017 (edited) Привет всем,кто подскажет,что нужно сделать, для докачки больших файлов в инсталяторе? Вопрос не совсем понятен... Надо чтобы при обрыве соединения докачивался или просто скачать файл большой в несколько потоков типа торрента? Если просто скачать по сети то есть в инно скрипт скачивания внешнего файла по сети в назначенный момент например перед установкой и распаковка его так же в нужный момент. Многие например не суют в инсталлятор большие файлы, а просто делают скачивание их по сети если его выбрать при установке, тогда и установшик не будет большим и раздутым и правильнее это делать .. ведь может некоторые пользователи модпака и не будут его устанавливать, а соответственно и скачивать ... Edited May 28, 2017 by Nowik1971 Quote Share this post Link to post Short link Share on other sites
BeJIuKuu_TaHKoBbIu_BouH 4 #392240 Posted May 28, 2017 (edited) Привет всем,кто подскажет,что нужно сделать, для докачки больших файлов в инсталяторе? Скрипт только для примера, у меня всё не так написано/описано/подключено! Пример примитивный, включайте воображение и фантазию! Изначальный скрипт имел другой вид, я его немного покромсал под свои нужды. В любом случае рекомендую ознакомиться с оригиналом, справкой и примерами: 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 рублей, который хватает для хранения файлов и обмен нескольких Гб трафика. На самый худой случай можно создать на ucoz.ru бесплатный сайт (места дают 400 Мб). З.Ы. Если не сможете подключить скрипт - ваши проблемы. IDP_and_Extract_Example_AtotIK.rar Edited May 28, 2017 by Gad575 1 Quote Share this post Link to post Short link Share on other sites
Nowik1971 2 #392259 Posted May 28, 2017 Так я же ему и написал, что скриптов полно, просто вопрос у него како-то не совсем понятный, скрипт на докачку хочет, а не скачивание? Твой пример так же нормальный, да и вообще если поискать то и в этой теме есть пример, по моему Атотик там все делал или еще кто, уже давно не читал, а наверное надо обновить в памяти .... в теме все по новой опять с начала перечитать, а то стираться стало.... Quote Share this post Link to post Short link Share on other sites
KIBORG 17 #392262 Posted May 28, 2017 Вопрос не совсем понятен... Надо чтобы при обрыве соединения докачивался или просто скачать файл большой в несколько потоков типа торрента? Если просто скачать по сети то есть в инно скрипт скачивания внешнего файла по сети в назначенный момент например перед установкой и распаковка его так же в нужный момент. Многие например не суют в инсталлятор большие файлы, а просто делают скачивание их по сети если его выбрать при установке, тогда и установшик не будет большим и раздутым и правильнее это делать .. ведь может некоторые пользователи модпака и не будут его устанавливать, а соответственно и скачивать ... Многие например не суют в инсталлятор большие файлы, а просто делают скачивание их по сети если его выбрать при установке, тогда и установшик не будет большим и раздутым и правильнее это делать .. ведь может некоторые пользователи модпака и не будут его устанавливать, а соответственно и скачивать Вот именно так сделать Quote Share this post Link to post Short link Share on other sites
Nowik1971 2 #392280 Posted May 28, 2017 *** Вот именно так сделать Так вам и дал Gad575 примеры скриптов и тем более уже урезанный, я посмотрел , проверил, он отлично работает!! Все просто до ужаса... Quote Share this post Link to post Short link Share on other sites
Nowik1971 2 #392398 Posted May 29, 2017 (edited) Короче сделал тебе один пример , остальное по аналогии сделаешь там не сложно... Пардон перепутал, в личку уже кинул посмотри... А вообще тему с начала всю почитай, все есть в теме и можно собрать установщик на любой вкус, да еще и справку читани... Edited May 29, 2017 by Nowik1971 Quote Share this post Link to post Short link Share on other sites
Lom 48 #393714 Posted June 4, 2017 (edited) Del... Вопрос решен. Edited June 4, 2017 by ЛОМ Quote Share this post Link to post Short link Share on other sites
Lom 48 #393981 Posted June 5, 2017 всем привет. подскажите как сделать так чтобы при наведении не менял цвет пункт очистки кеша? верхние пункты догнал как сделать а вот с этим пунктом беда.. вот кусок скрипта этого.. 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'; Quote Share this post Link to post Short link Share on other sites
sergy2010 24 #394054 Posted June 6, 2017 (edited) 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 thenbegin 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);beginif CurStep = ssInstall thenCreateLogMods;if CurStep = ssInstall thenbeginBackupCheck_4();end;end; Edited June 6, 2017 by sergy2010 1 Quote Share this post Link to post Short link Share on other sites
BrutHunt 27 #394100 Posted June 6, 2017 (edited) если очистить account_caches, то удалятся пароли. может стоит его пропустить? я не удаляю пароль, вдруг не вспомню, ))) да и записывать все, что удаляешь муторно. есть ли функция на поиск папок (файлов) и удаление? в принципе, можно батник запускать или любой другой сторонний чистильщик. это если IS не имеет функции поиска по параметру прошу извинить, что вмешался в обсуждение. тоже кодирую, привычка делать код более компактным. Edited June 6, 2017 by BrutHunt Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #394105 Posted June 6, 2017 (edited) это если IS не имеет функции поиска по параметру Не имеет, но можно сделать вручную (Find*-функции). Но если рассматривать вопрос с точки зрения компактности, то лучше всё записывать отдельно. Edited June 6, 2017 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
Lom 48 #394117 Posted June 6, 2017 (edited) 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 June 6, 2017 by ЛОМ Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #394142 Posted June 7, 2017 и вот как сделать в этом коде чтобы было как я написал выше Попробовать без скина сначала. 1 Quote Share this post Link to post Short link Share on other sites
Lom 48 #394148 Posted June 7, 2017 Попробовать без скина сначала. а других вариантов нет? ))) Quote Share this post Link to post Short link Share on other sites
Draug 59 #394751 Posted June 11, 2017 Всем привет, подскажите 23. мод на картинке как прописать так красный цвет в скобках можно? 3 Quote Share this post Link to post Short link Share on other sites
Lom 48 #394912 Posted June 12, 2017 (edited) всем привет. подскажите а почему с этим кодом скачивает но не распаковывает? #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 June 12, 2017 by ЛОМ Quote Share this post Link to post Short link Share on other sites