batch file - Inno Setup-Crea una lista dinámica de componentes/tipos de fuentes externas(contenido de archivos o carpetas)

batch-file components

Question

Tengo un archivo por lotes (cambiador de configuración) que usa xcopy para listar formatos de archivos específicos en una carpeta específica, luego me permite escribir uno de los nombres y la secuencia de comandos usa ese nombre para copiar ese archivo a otra ubicación.

Primero xcopy crea una copia del original como copia de seguridad (copia de seguridad rodante solamente 1 copia ) y luego hace la copia del archivo (la extensión se repara solo en el cuerpo del nombre del archivo) Esto funciona bien PERO me gustaría probar y hacer esto en Inno Setup for una buena GUI limpia

Me gustaría completar la lista de componentes / tipos de esta lista de archivos encontrados en una carpeta fija específica. O incluso crea un archivo ini con esos nombres en ( paso adicional, pero quizás con un mejor control ). El problema principal que puede evitar que esto sea posible es no saber cuántas entradas sería una matriz. Si solo 1 entrada o archivo solo tiene 1 opción (1 o a) si es 4, entonces el usuario puede seleccionar 1 de 4 (a, b, c o d). Extraería el nombre del archivo para crear el nombre / descripción.

Luego, al completar la misma tarea que mi lote, haga una copia de seguridad (fácil siempre el mismo nombre como start.ini) luego copie el archivo, por ejemplo, ejemplo1.ini y sobrescriba start.ini

ini podría ser más flexible, ya que me puedo imaginar más tarde agregando nuevas secciones para cambiar las acciones realizadas.

¿Es esto posible o estirar este programa demasiado lejos? No hay prisa porque mi lote funciona por ahora, pero cuanto menos tipee y más pasos manuales, mejor para un uso continuado.

Encontré un ejemplo para mostrar los contenidos en una ventana de diálogo, pero no pude encontrar la manera de usarlo para completar los componentes. TLama: enumera todos los archivos en un directorio

Answer 1

No puede crear los componentes dinámicamente en tiempo de ejecución (puede hacerlo en tiempo de compilación).

Pero no es difícil implementar una página similar a componentes dinámicos personalizados utilizando CreateCustomPage y TNewCheckListBox .

Luego, en CurStepChanged(ssInstall) , procesa los archivos / componentes seleccionados según sus necesidades.

[Code]

const
  SourcePath = ''C:/somepath'';

var
  CustomSelectTasksPage: TWizardPage;
  ComponentsList: TNewCheckListBox;

procedure InitializeWizard();
var
  FindRec: TFindRec;
  SelectComponentsLabel: TNewStaticText;
begin
  CustomSelectTasksPage :=
    CreateCustomPage(
      wpSelectComponents, SetupMessage(msgWizardSelectComponents),
      SetupMessage(msgSelectComponentsDesc));

  SelectComponentsLabel := TNewStaticText.Create(WizardForm);
  SelectComponentsLabel.Parent := CustomSelectTasksPage.Surface;
  SelectComponentsLabel.Top := 0;
  SelectComponentsLabel.Left := 0;
  SelectComponentsLabel.Width := CustomSelectTasksPage.Surface.Width;
  SelectComponentsLabel.AutoSize := False;
  SelectComponentsLabel.ShowAccelChar := False;
  SelectComponentsLabel.WordWrap := True;
  SelectComponentsLabel.Caption := SetupMessage(msgSelectComponentsLabel2);
  WizardForm.AdjustLabelHeight(SelectComponentsLabel);

  ComponentsList := TNewCheckListBox.Create(WizardForm);
  ComponentsList.Parent := CustomSelectTasksPage.Surface;
  ComponentsList.Top :=
    SelectComponentsLabel.Top + SelectComponentsLabel.Height + ScaleY(8);
  ComponentsList.Left := 0;
  ComponentsList.Width := CustomSelectTasksPage.Surface.Width;
  ComponentsList.Height := CustomSelectTasksPage.Surface.Height - ComponentsList.Top;

  if FindFirst(ExpandConstant(AddBackslash(SourcePath) + ''*.dat''), FindRec) then
  begin
    try
      repeat
        ComponentsList.AddCheckBox(FindRec.Name, '''', 0, False, True, False, False, nil);
      until not FindNext(FindRec);
    finally
      FindClose(FindRec);
    end;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  I: Integer;
  FileName: string;
  SourceFilePath: string;
  TargetFilePath: string;
begin
  if CurStep = ssInstall then
  begin
    for I := 0 to ComponentsList.Items.Count - 1 do
    begin
      if ComponentsList.Checked[I] then
      begin
        FileName := ComponentsList.Items[I];
        SourceFilePath := AddBackslash(SourcePath) + FileName;
        TargetFilePath := AddBackslash(ExpandConstant(''{app}'')) + FileName;
        if FileCopy(SourceFilePath, TargetFilePath, False) then
        begin
          Log(Format(''Installed "%s".'', [FileName]));
        end
          else
        begin
          Log(Format(''Failed to install "%s".'', [FileName]));
        end;
      end;
    end;
  end;
end;