asterix93 Posted January 11, 2016 Share Posted January 11, 2016 есть же лучше http://krinkels.org/threads/ozuchivanie-komponentov.2429/page-2#post-23989 spasiba ea uja zdelal toja atuda bral!!! @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted January 11, 2016 Share Posted January 11, 2016 (edited) как сделать так что бы текст размера папки изменялся (динамически) когда меняешь папку для установки? Edited January 11, 2016 by Dark_Knight_MiX @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted January 11, 2016 Share Posted January 11, 2016 как сделать так что бы текст размера папки изменялся (динамически) когда меняешь папку для установки? Используй: WizardForm.DirEdit.OnChange 2 @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted January 11, 2016 Share Posted January 11, 2016 Используй: WizardForm.DirEdit.OnChange спасибо 1 @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted January 13, 2016 Share Posted January 13, 2016 Vsem privet kak zdelati stobi sahranil vibranie modi !!! @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted January 13, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
asterix93 Posted January 13, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted January 14, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
asterix93 Posted January 14, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Xotabych Posted January 14, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
AtotIK Posted January 14, 2016 Share Posted January 14, 2016 У Вас ошибка в название папки {#MyAppName} должно быть слитное, пример #define MyAppName "ModPack_by_Asterix93" Да как бы без разницы должно быть. 1 @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted January 14, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted January 14, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
asterix93 Posted January 14, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted January 14, 2016 Share Posted January 14, 2016 pakaji pajalusta v cod gde staviti ea ne razbiraiusi gde staviti Чтобы разбираться - нужно учиться. Тебе и так абсолютно во всём помогают. Так что сам подумай. 1 @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted January 14, 2016 Share Posted January 14, 2016 Чтобы разбираться - нужно учиться. Тебе и так абсолютно во всём помогают. Так что сам подумай. Ok spasiba @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted January 14, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted January 14, 2016 Share Posted January 14, 2016 (edited) как я помню то где то писали что если использовать 7za то в пути папок не должно быть пробелов Просто при наличии пробелов в пути, необходимо использовать двойные кавычки "...". Это правило командной строки. Edited January 14, 2016 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted January 14, 2016 Share Posted January 14, 2016 как я помню то где то писали что если использовать 7za то в пути папок не должно быть пробелов Возможно, не помню. У меня все каталоги с "_" по умолчанию. @ Quote Link to comment Short link Share on other sites More sharing options...
asterix93 Posted January 14, 2016 Share 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 Link to comment Short link Share on other sites More sharing options...
Recommended Posts
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.