asterix93 9 #309324 Posted January 11, 2016 есть же лучше http://krinkels.org/threads/ozuchivanie-komponentov.2429/page-2#post-23989 spasiba ea uja zdelal toja atuda bral!!! Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #309325 Posted January 11, 2016 (edited) как сделать так что бы текст размера папки изменялся (динамически) когда меняешь папку для установки? Edited January 11, 2016 by Dark_Knight_MiX Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #309329 Posted January 11, 2016 как сделать так что бы текст размера папки изменялся (динамически) когда меняешь папку для установки? Используй: WizardForm.DirEdit.OnChange 2 Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #309333 Posted January 11, 2016 Используй: WizardForm.DirEdit.OnChange спасибо 1 Quote Share this post Link to post Short link Share on other sites
asterix93 9 #309528 Posted January 13, 2016 Vsem privet kak zdelati stobi sahranil vibranie modi !!! Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #309530 Posted January 13, 2016 Vsem privet kak zdelati stobi sahranil vibranie modi !!! Например: https://bitbucket.org/Kotyarko_O/kmp/src/c08fa4359f84fb782a11a5be2c0cc720e1a23bbf/Resourses/ParamsRememberer.iss?at=master&fileviewer=file-view-default Quote Share this post Link to post Short link Share on other sites
asterix93 9 #309533 Posted January 13, 2016 (edited) Pamaghiti s IDP pajalusta u menea tacoi vapros scaceaitsa fail s servera standartii cod sahraneaiet v cornevuiu papku ea meneal papcu i seceas on ne ne delaiet raspacovcu ! Vot kod... [Code] procedure ExtractResources(); var ResultCode: Integer; begin ExtractTemporaryFile('7zA.exe'); CreateDir(ExpandConstant('{app}\{#MyAppName}\7zA_Files')); // CreateDir(ExpandConstant('{app}\{#MyAppName}')); CreateDir(ExpandConstant('{app}\res_mods')); FileCopy(ExpandConstant('{tmp}\7zA.exe'), ExpandConstant('{app}\7zA_Files\7zA.exe'), False); If (IsComponentSelected('KMP\Bla\1')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\xvmfresh.7z'))) then begin Exec(ExpandConstant('{app}\{#MyAppName}\7zA_Files\7zA.exe'), 'x -y ..\{#MyAppName}\xvmfresh.7z -o..\res_mods\', '', SW_Hide, ewWaitUntilTerminated, ResultCode); //DeleteFile(ExpandConstant('{app}\xvmfresh.7z')); end; If (IsComponentSelected('KMP\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('KMP\Bla\1') then begin CreateDir(ExpandConstant('{app}\{#MyAppName}')); idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\xvmfresh.7z')); end; if IsComponentSelected('KMP\Bla\2') then begin idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\hangar_2.7z')); end; end; end; procedure IDPdownload(); begin idpDownloadAfter(wpInstalling); end; Например: https://bitbucket.org/Kotyarko_O/kmp/src/c08fa4359f84fb782a11a5be2c0cc720e1a23bbf/Resourses/ParamsRememberer.iss?at=master&fileviewer=file-view-default Spasiba Edited January 13, 2016 by asterix93 Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #309622 Posted January 14, 2016 @asterix93 // папка {#MyAppName} должна быть слитной [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}\Download')); FileCopy(ExpandConstant('{tmp}\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), False); If (IsComponentSelected('KMP\Bla\1')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z'))) then begin ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z'), ExpandConstant('{app}\res_mods')); end; If (IsComponentSelected('KMP\Bla\2')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z'))) then begin ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z'), ExpandConstant('{app}\res_mods')); end; DelTree(ExpandConstant('{app}\{#MyAppName}\Download'), True, True, True); end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep = ssDone then begin ExtractResources; end; end; procedure CurPageChanged(CurPageID: Integer); begin if CurPageID = wpInstalling then begin if IsComponentSelected('KMP\Bla\1') then begin CreateDir(ExpandConstant('{app}\{#MyAppName}\Download')); idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z')); end; if IsComponentSelected('KMP\Bla\2') then begin CreateDir(ExpandConstant('{app}\{#MyAppName}\Download')) idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z')); end; end; end; procedure IDPdownload; begin idpDownloadAfter(wpInstalling); end; 1 Quote Share this post Link to post Short link Share on other sites
asterix93 9 #309645 Posted January 14, 2016 (edited) @asterix93 // папка {#MyAppName} должна быть слитной [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}\Download')); FileCopy(ExpandConstant('{tmp}\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), False); If (IsComponentSelected('KMP\Bla\1')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z'))) then begin ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z'), ExpandConstant('{app}\res_mods')); end; If (IsComponentSelected('KMP\Bla\2')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z'))) then begin ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z'), ExpandConstant('{app}\res_mods')); end; DelTree(ExpandConstant('{app}\{#MyAppName}\Download'), True, True, True); end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep = ssDone then begin ExtractResources; end; end; procedure CurPageChanged(CurPageID: Integer); begin if CurPageID = wpInstalling then begin if IsComponentSelected('KMP\Bla\1') then begin CreateDir(ExpandConstant('{app}\{#MyAppName}\Download')); idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z')); end; if IsComponentSelected('KMP\Bla\2') then begin CreateDir(ExpandConstant('{app}\{#MyAppName}\Download')) idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z')); end; end; end; procedure IDPdownload; begin idpDownloadAfter(wpInstalling); end; Ne ne rabotaet cagda nacinaet scaceati viscakivaet asibcu Edited January 14, 2016 by asterix93 Quote Share this post Link to post Short link Share on other sites
Xotabych 337 #309662 Posted January 14, 2016 Ne ne rabotaet cagda nacinaet scaceati viscakivaet asibcu У Вас ошибка в название папки {#MyAppName} должно быть слитное, пример #define MyAppName "ModPack_by_Asterix93" [code] // Название папки {#MyAppName} должно быть слитное, как пример #define MyAppName "ModPack_by_Asterix93" [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}\Download')); FileCopy(ExpandConstant('{tmp}\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), False); If (IsComponentSelected('KMP\Bla\1')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z'))) then begin ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z'), ExpandConstant('{app}\res_mods')); end; If (IsComponentSelected('KMP\Bla\2')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z'))) then begin ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z'), ExpandConstant('{app}\res_mods')); end; DelTree(ExpandConstant('{app}\{#MyAppName}\Download'), True, True, True); end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep = ssDone then begin ExtractResources; end; end; procedure CurPageChanged(CurPageID: Integer); begin if CurPageID = wpInstalling then CreateDir(ExpandConstant('{app}\{#MyAppName}')); CreateDir(ExpandConstant('{app}\{#MyAppName}\Download')); begin if IsComponentSelected('KMP\Bla\1') then begin idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z')); end; if IsComponentSelected('KMP\Bla\2') then begin idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z')); end; end; end; procedure IDPdownload; begin idpDownloadAfter(wpInstalling); end; 1 Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #309666 Posted January 14, 2016 У Вас ошибка в название папки {#MyAppName} должно быть слитное, пример #define MyAppName "ModPack_by_Asterix93" Да как бы без разницы должно быть. 1 Quote Share this post Link to post Short link Share on other sites
asterix93 9 #309675 Posted January 14, 2016 (edited) У Вас ошибка в название папки {#MyAppName} должно быть слитное, пример #define MyAppName "ModPack_by_Asterix93" [code] // Название папки {#MyAppName} должно быть слитное, как пример #define MyAppName "ModPack_by_Asterix93" [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}\Download')); FileCopy(ExpandConstant('{tmp}\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), False); If (IsComponentSelected('KMP\Bla\1')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z'))) then begin ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z'), ExpandConstant('{app}\res_mods')); end; If (IsComponentSelected('KMP\Bla\2')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z'))) then begin ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z'), ExpandConstant('{app}\res_mods')); end; DelTree(ExpandConstant('{app}\{#MyAppName}\Download'), True, True, True); end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep = ssDone then begin ExtractResources; end; end; procedure CurPageChanged(CurPageID: Integer); begin if CurPageID = wpInstalling then CreateDir(ExpandConstant('{app}\{#MyAppName}')); CreateDir(ExpandConstant('{app}\{#MyAppName}\Download')); begin if IsComponentSelected('KMP\Bla\1') then begin idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z')); end; if IsComponentSelected('KMP\Bla\2') then begin idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z')); end; end; end; procedure IDPdownload; begin idpDownloadAfter(wpInstalling); end; ea ciuciuti peredelal patamusta u menea dal asibcu a siceas fseo narmalina spasiba za pomosi!!! // Название папки {#MyAppName} должно быть слитное, как пример #define MyAppName "ModPack_by_Asterix93" [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}\Download')); FileCopy(ExpandConstant('{tmp}\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), False); If (IsComponentSelected('KMP\Bla\1')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z'))) then begin ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z'), ExpandConstant('{app}\res_mods')); end; If (IsComponentSelected('KMP\Bla\2')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z'))) then begin ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z'), ExpandConstant('{app}\res_mods')); end; DelTree(ExpandConstant('{app}\{#MyAppName}\Download'), True, True, True); end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep = ssDone then begin ExtractResources; end; end; procedure CurPageChanged(CurPageID: Integer); begin if IsComponentSelected('KMP\Bla') then CreateDir(ExpandConstant('{app}\{#MyAppName}')); CreateDir(ExpandConstant('{app}\{#MyAppName}\Download')); begin if IsComponentSelected('KMP\Bla\1') then begin idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z')); end; if IsComponentSelected('KMP\Bla\2') then begin idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z')); end; end; end; procedure IDPdownload; begin idpDownloadAfter(wpInstalling); end; Isio adin vapros u meanea raspakovka delaet posle najatie Завершить... kak delati stobi bil do najatie Завершить... Edited January 14, 2016 by asterix93 Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #309678 Posted January 14, 2016 (edited) Isio adin vapros u meanea raspakovka delaet posle najatie Завершить... kak delati stobi bil do najatie Завершить... Выполняй ExtractResources после idpDownloadAfter. Edited January 14, 2016 by Kotyarko_O 1 Quote Share this post Link to post Short link Share on other sites
asterix93 9 #309679 Posted January 14, 2016 Выполняй ExtractResources после idpDownloadAfter. Spasiba no esti malencaea pakaji pajalusta v cod gde staviti ea ne razbiraiusi gde staviti U nas u maldavani esti tacaia fraza (EA PA RUSKI PLOHA VIJU) tak i ea va atai functie Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #309684 Posted January 14, 2016 pakaji pajalusta v cod gde staviti ea ne razbiraiusi gde staviti Чтобы разбираться - нужно учиться. Тебе и так абсолютно во всём помогают. Так что сам подумай. 1 Quote Share this post Link to post Short link Share on other sites
asterix93 9 #309701 Posted January 14, 2016 Чтобы разбираться - нужно учиться. Тебе и так абсолютно во всём помогают. Так что сам подумай. Ok spasiba Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #309703 Posted January 14, 2016 (edited) Spasiba no esti malencaea pakaji pajalusta v cod gde staviti вроде так [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}\Download')); FileCopy(ExpandConstant('{tmp}\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), False); If (IsComponentSelected('KMP\Bla\1')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z'))) then begin ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z'), ExpandConstant('{app}\res_mods')); end; If (IsComponentSelected('KMP\Bla\2')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z'))) then begin ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z'), ExpandConstant('{app}\res_mods')); end; DelTree(ExpandConstant('{app}\{#MyAppName}\Download'), True, True, True); end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep = ssPostInstall then begin ExtractResources; end; end; procedure CurPageChanged(CurPageID: Integer); begin if CurPageID = wpReady then begin if IsComponentSelected('KMP\Bla\1') then begin CreateDir(ExpandConstant('{app}\{#MyAppName}')); CreateDir(ExpandConstant('{app}\{#MyAppName}\Download')); idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z')); end; if IsComponentSelected('KMP\Bla\2') then begin CreateDir(ExpandConstant('{app}\{#MyAppName}')); CreateDir(ExpandConstant('{app}\{#MyAppName}\Download')); idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z')); end; end; end; procedure IDPdownload; begin idpDownloadAfter(wpReady); end; Да как бы без разницы должно быть. как я помню то где то писали что если использовать 7za то в пути папок не должно быть пробелов Edited January 14, 2016 by Dark_Knight_MiX Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #309706 Posted January 14, 2016 (edited) как я помню то где то писали что если использовать 7za то в пути папок не должно быть пробелов Просто при наличии пробелов в пути, необходимо использовать двойные кавычки "...". Это правило командной строки. Edited January 14, 2016 by Kotyarko_O Quote Share this post Link to post Short link Share on other sites
AtotIK 580 #309712 Posted January 14, 2016 как я помню то где то писали что если использовать 7za то в пути папок не должно быть пробелов Возможно, не помню. У меня все каталоги с "_" по умолчанию. Quote Share this post Link to post Short link Share on other sites
asterix93 9 #309725 Posted January 14, 2016 (edited) вроде так [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}\Download')); FileCopy(ExpandConstant('{tmp}\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), False); If (IsComponentSelected('KMP\Bla\1')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z'))) then begin ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z'), ExpandConstant('{app}\res_mods')); end; If (IsComponentSelected('KMP\Bla\2')) and (FileExists(ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z'))) then begin ExtractResourcesFile(ExpandConstant('{app}\{#MyAppName}\Download\7zA.exe'), ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z'), ExpandConstant('{app}\res_mods')); end; DelTree(ExpandConstant('{app}\{#MyAppName}\Download'), True, True, True); end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep = ssPostInstall then begin ExtractResources; end; end; procedure CurPageChanged(CurPageID: Integer); begin if CurPageID = wpReady then begin if IsComponentSelected('KMP\Bla\1') then begin CreateDir(ExpandConstant('{app}\{#MyAppName}')); CreateDir(ExpandConstant('{app}\{#MyAppName}\Download')); idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\Download\xvmfresh.7z')); end; if IsComponentSelected('KMP\Bla\2') then begin CreateDir(ExpandConstant('{app}\{#MyAppName}')); CreateDir(ExpandConstant('{app}\{#MyAppName}\Download')); idpAddFile('http://proreduceri.tk/xvmfresh.7z', ExpandConstant('{app}\{#MyAppName}\Download\hangar_2.7z')); end; end; end; procedure IDPdownload; begin idpDownloadAfter(wpReady); end; как я помню то где то писали что если использовать 7za то в пути папок не должно быть пробелов Spasiba Zdelal no camandnaea straka pacajit posli tavo ca ea klicaiu na knopcu Завершить... U menea v instaleatore sti 2 raza CurStepChanged v raznih failov adin v idp i ftaroi v BackUpPage i daiot asibbcu kak mojna izbejati atu prablemu? Edited January 14, 2016 by asterix93 Quote Share this post Link to post Short link Share on other sites