Jump to content
Korean Random
EvilAlex

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

Recommended Posts

как сделать так что бы текст размера папки изменялся (динамически) когда меняешь папку для установки?
 

Edited by Dark_Knight_MiX

Share this post


Link to post

Short link
Share on other sites

как сделать так что бы текст размера папки изменялся (динамически) когда меняешь папку для установки?

Используй:

WizardForm.DirEdit.OnChange
  • Upvote 2

Share this post


Link to post

Short link
Share on other sites

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;


Spasiba

Edited by asterix93

Share this post


Link to post

Short link
Share on other sites

@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;
  • Upvote 1

Share this post


Link to post

Short link
Share on other sites

 

@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 

post-33758-0-02094200-1452759209_thumb.png

Edited by asterix93

Share this post


Link to post

Short link
Share on other sites

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;
 

  • Upvote 1

Share this post


Link to post

Short link
Share on other sites

У Вас ошибка в название папки {#MyAppName} должно быть слитное, пример #define MyAppName  "ModPack_by_Asterix93"

Да как бы без разницы должно быть.

  • Upvote 1

Share this post


Link to post

Short link
Share on other sites

У Вас ошибка в название папки {#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 by asterix93

Share this post


Link to post

Short link
Share on other sites
Isio adin vapros u meanea raspakovka delaet posle najatie Завершить... kak delati stobi bil do najatie Завершить...

Выполняй ExtractResources после idpDownloadAfter.

Edited by Kotyarko_O
  • Upvote 1

Share this post


Link to post

Short link
Share on other sites

Выполняй ExtractResources после idpDownloadAfter.

Spasiba no esti malencaea pakaji pajalusta v cod  gde staviti ea ne razbiraiusi gde staviti :dots:  :dots:  :dots:    U nas u maldavani esti tacaia fraza (EA PA RUSKI PLOHA VIJU:heh:  tak i ea va atai functie 

Share this post


Link to post

Short link
Share on other sites

 

 

pakaji pajalusta v cod gde staviti ea ne razbiraiusi gde staviti
Чтобы разбираться - нужно учиться. Тебе и так абсолютно во всём помогают. Так что сам подумай.
  • Upvote 1

Share this post


Link to post

Short link
Share on other sites

Чтобы разбираться - нужно учиться. Тебе и так абсолютно во всём помогают. Так что сам подумай.

Ok spasiba

Share this post


Link to post

Short link
Share on other sites

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 by Dark_Knight_MiX

Share this post


Link to post

Short link
Share on other sites
как я помню то где то писали что если использовать 7za то в пути папок не должно быть пробелов

Просто при наличии пробелов в пути, необходимо использовать двойные кавычки "...". Это правило командной строки.

Edited by Kotyarko_O

Share this post


Link to post

Short link
Share on other sites

 

 

как я помню то где то писали что если использовать 7za то в пути папок не должно быть пробелов

Возможно, не помню. У меня все каталоги с "_" по умолчанию.

Share this post


Link to post

Short link
Share on other sites

вроде так

[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 by asterix93

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...