[gmspy]

Доброго времени суток, помогите с решением такой задачи:
Как сделать перемещения (Архив содержит уже готовый setup файл софта + в директории есть папка).
Задача после установки софта инсталятор из своей корневой папки копировал в папку в которую установился софт.
Или 2рое решения как научить инсталятор качать файл с фтп или веб сервера и записывать в директорию устанавливаемой программы.

[Johny777]

Raf-9600,
научился удалять строки из ReadyMemo, но он не удаляет строки типа "Тип установки"
сделал просто
если выбран компонент "Portable"(внутренне название port) и переходим на страницу готовности, то полностью очищаем мемо(!) и вносим свои строки, но без строки говорящей нам о создании папки в меню "Пуск"
короче как ты хотел

читать дальше »

Код:

[Setup]
AppName=Portable
VersionInfoVersion=5.0
AppVerName=Portable
DefaultDirName={pf}\Portable_Or_Not_Test
DefaultGroupName=The_Most_Beautiful_Group_Name_Ever


[Components]
Name: port; Description: Portable; Types: full custom;

[Icons]
Name: {group}\new\Notepad; Filename: notepad.exe; Components: not port

[code]
function  ShouldSkipPage(PageID: Integer): Boolean;
begin
  if PageID = wpSelectProgramGroup then Result := IsComponentSelected('port');
end;

procedure CurPageChanged(CurPageID: Integer); 
begin
  if (CurPageID = wpReady) and (IsComponentSelected('port')) then
  begin
    with WizardForm.ReadyMemo do
    begin
      Clear;
      Lines.Add(SetupMessage(msgReadyMemoDir) + #13#10 +
                '      ' + WizardForm.DirEdit.Text + #13#10 +
                + #13#10 +
                SetupMessage(msgReadyMemoType) + #13#10 +
                '      ' + WizardForm.TypesCombo.Text)
    end;
  end;
end;

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

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

эту тему полистай
в сообщении El Sanchez -а

[Raf-9600]

Johny777, полная очистка не подходит, потому что кроме Portable, компонентов будет дофига (которые можно выбрать вместе с Portable). И хотелось бы чтобы юзер знал что он понавыберал.
Может быть, возможно, удалить только определённую строчку? Хотя это наверно уже из разряда извращений.

[Johny777]

Raf-9600,
смотри
if (CurPageID = wpReady) and (IsComponentSelected('port'))
если страница готовности и выбран компонент port
те для всех остальных компонентов не буден никаких действий с мемо на странице готовности если не выбран компонент port
дай мне список всех компонетов, которые выбираются с портабельной
там просто нужно строки вписывать и всё.

удалить только определённую строчку »

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

[Raf-9600]

дай мне список всех компонетов, которые выбираются с портабельной »

Дело в том, что их 113 штук. Точно давать?

Вот несколько начальных:

Код:

[Components]                
Name: "Game"; Description: "{cm:TypeOfInstallation}"; Flags: disablenouninstallwarning; 
Name: "Game\Full"; Description: "{cm:Game}"; Flags: exclusive disablenouninstallwarning; Types: full 
Name: "Game\Pottable"; Description: "Портативная"; Flags: exclusive disablenouninstallwarning; 
Name: "Game\Lokal"; Description: "{cm:OnlyLocalization}"; Flags: collapsed exclusive disablenouninstallwarning;
Name: "Game\Lokal\Backup"; Description: "{cm:backup}"; Flags: disablenouninstallwarning;

[Johny777]

Raf-9600,
вот тебе пример как вносить строки в мемо в зависимости от выбора (надеюсь не накосячил с проверкой "выбран ли хоть один из компонентов")
разбирай

читать дальше »

Код:

[Setup]
AppName=Portable
VersionInfoVersion=5.0
AppVerName=Portable
DefaultDirName={pf}\Portable_Or_Not_Test
DefaultGroupName=The_Most_Beautiful_Group_Name_Ever


[Components]
Name: port; Description: Portable; Types: full custom;
Name: port\add1; Description: Patch_for_Portable; Types: full custom; Flags: exclusive;
Name: port\add2; Description: Portable_Rusian_Language; Types: full custom; Flags: exclusive;

Name: dr_port; Description: Another_Portable; Types: full custom;



[Icons]
Name: {group}\new\Notepad; Filename: notepad.exe; Components: not port

[code]
function  ShouldSkipPage(PageID: Integer): Boolean;
begin
  if PageID = wpSelectProgramGroup then Result := IsComponentSelected('port');
end;

procedure CurPageChanged(CurPageID: Integer);
var
  i: Integer;
  
begin
  if (CurPageID = wpReady) and (IsComponentSelected('port')) then
  begin
    with WizardForm.ReadyMemo do
    begin
      Clear;
      Lines.Add(SetupMessage(msgReadyMemoDir) + #13#10 +                       
                '      ' + WizardForm.DirEdit.Text + #13#10 +
                + #13#10 +
                SetupMessage(msgReadyMemoType) + #13#10 +
                '      ' + WizardForm.TypesCombo.Text);
      if WizardForm.ComponentsList.Checked[i] then /// если отмечен хоть один из компонентов
      begin
        Lines.Add('');  /// пустая строка
        Lines.Add(SetupMessage(msgReadyMemoComponents));  /// "Выбранные компоненты:"
        
        if IsComponentSelected('port') then Lines.Add('      ' + 'Portable'); /// если выбран компонет port, то добавить строку   '      '  - пробелы от левого края + 'описание компонента'
        if IsComponentSelected('port\add1') then Lines.Add('      ' + 'Patch_for_Portable');  /// по аналогии и дальше
        if IsComponentSelected('port\add2') then Lines.Add('      ' + 'Portable_Rusian_Language');
        if IsComponentSelected('dr_port') then Lines.Add('      ' + 'Another_Portable');
      end;
    end;
  end;
end;

И вообще ты уверен что есть люди которые читают страницу готовности ?

[Raf-9600]

Неужели есть люди которые читают страницу готовности ? »

Это дело вкуса. Когда у меня только-только появился компьютер, то я её читал.
Ну и если что, я не предполагал что для удаления той строчки придёться так извращаться

вот тебе пример как вносить строки в мемо в зависимости от выбора (надеюсь не накосячил с проверкой "выбран ли хоть один из компонентов") разбирай »

Всё работает. Благодарю

[El Sanchez]

Johny777, Raf-9600, дабы покончить с извращениями, направляю обоих в нужном направлении:

Код:

function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
begin
    if IsComponentSelected('portable') then
        Result := MemoComponentsInfo
    else
        Result := MemoDirInfo + NewLine + NewLine + MemoTypeInfo + NewLine + NewLine + MemoComponentsInfo + NewLine + NewLine + MemoGroupInfo;
end;

[Johny777]

El Sanchez,
А что такое MemoTypeInfo и MemoDirInfo и откуда ты их взял? (часом не встроенные обозначения, которые используются только в WizardForm.ReadyMemo ?)

WizardForm.TypesCombo.Text и WizardForm.DirEdit.Text например понимаю хорошо в отличии от тех, что в твоей функции

[Raf-9600]

El Sanchez, Спасибо!!! Я знал что должен быть элегантный способ! Теперь заодно уберу и ненужный MemoTypeInfo