通过 InnoSetup 中的脚本访问文件列表答案

【问题标题】：Access file list via script in InnoSetup通过 InnoSetup 中的脚本访问文件列表
【发布时间】：2012-01-19 10:03:54
【问题描述】：

在运行安装程序时，有什么方法可以从 PascalScript 访问文件列表（[Files] 部分中的条目）？我们正在尝试使应用程序可以直接从设置中运行，而不必安装它，这样可以更轻松地维护文件列表。

【问题讨论】：

您应该澄清您的问题，但如果我理解正确，您希望在运行时从设置中提取文件以便运行它们 - 如果是这样，请查看 ExtractTemporaryFile() 辅助函数。但是，您可以不通过 AFAIK 访问文件列表，您必须对所需文件的提取进行硬编码。
@mghie：是的，我们使用了 ExtractTemporaryFile（并且遇到了该函数的其他问题，例如无法将多个同名文件提取到不同的目录）——但到目前为止，我们很难-将要提取的文件列表编码到脚本中，因此在更改列表时我们有两个地方需要维护。很遗憾，无法从脚本访问该列表。
您打算使用通配符从目录或单个文件列表中添加文件吗？在后一种情况下，可以在单个文本文件中包含文件列表并将其添加到文件部分并填充例如使用 InnoSetup 预处理器的代码段中的字符串列表。
@TLama：不，问题是应用程序要么由 InnoSetup 安装，要么直接从安装程序运行。对于后者，我们目前必须维护一个单独的文件列表来临时提取。如果我可以读取设置的实际文件列表并从中提取，那会更容易。当然，将文件列表放在单独的文件中并生成文件部分和提取代码可能是一个有趣的想法。您将如何使用预处理器来做到这一点？
@TLama：对不起，这个项目早就结束了，所以我没有真正尝试过。不过，我会看看您的答案，因为这可能会在另一个项目中派上用场，因为出于某种原因，同一个客户再次想要一个可执行的应用程序...... :) 这个想法听起来不错。不知道你可以用预处理器做到这一点。看起来很像Basic...

【解决方案1】：

这里的想法是将文件名存储到单独的文本文件中（此处为Source.txt），其中每一行都是一个文件。然后预处理器将为您生成脚本。实际上，它创建了一个数组，其中包含来自Source.txt 的文件列表，并将其所有元素添加到[Files] 部分中，在[Code] 部分中它将填充字符串列表（这里使用一个列表框来显示内容）。

重要：

Source.txt 文件的末尾必须有一个额外的非空行，所以只需添加例如; 在文件末尾。

脚本：

#define FilesSource "d:\Source.txt"
#define FileLine
#define FileIndex
#define FileCount
#define FileHandle
#dim FileList[65536]
#sub ProcessFileLine
  #if FileLine != ""
    #expr FileList[FileCount] = FileLine
    #expr FileCount = ++FileCount
  #endif  
#endsub
#for {FileHandle = FileOpen(FilesSource); \
  FileHandle && !FileEof(FileHandle); \
  FileLine = FileRead(FileHandle)} \
  ProcessFileLine
#if FileHandle
  #expr FileClose(FileHandle)
#endif
[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Files]
#sub AddFileItem
  #emit 'Source: "' + FileList[FileIndex] + '"; DestDir: "{app}"'
#endsub
#for {FileIndex = 0; FileIndex < FileCount; FileIndex++} AddFileItem

[Code]
procedure InitializeWizard;
var  
  FileList: TStringList;
  FileListBox: TListBox;
  CustomPage: TWizardPage;
begin
  CustomPage := CreateCustomPage(wpWelcome, 'Theme selection page', '');

  FileListBox := TListBox.Create(WizardForm);
  FileListBox.Parent := CustomPage.Surface;
  FileListBox.Align := alClient;

  FileList := TStringList.Create;
  try
    #sub AddFileItemCode
      #emit '    FileList.Add(''' + FileList[FileIndex] + ''');'
    #endsub
    #for {FileIndex = 0; FileIndex < FileCount; FileIndex++} AddFileItemCode
    FileListBox.Items.Assign(FileList);
  finally
    FileList.Free;
  end;  
end;

#expr SaveToFile("d:\PreprocessedScript.iss")

测试源.txt：

MyProg.exe
MyProg.chm
Readme.txt
;

测试 PreprocessedScript.iss 的输出：

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Files]
Source: "MyProg.exe"; DestDir: "{app}"
Source: "MyProg.chm"; DestDir: "{app}"
Source: "Readme.txt"; DestDir: "{app}"

[Code]
procedure InitializeWizard;
var  
  FileList: TStringList;
  FileListBox: TListBox;
  CustomPage: TWizardPage;
begin
  CustomPage := CreateCustomPage(wpWelcome, 'Theme selection page', '');

  FileListBox := TListBox.Create(WizardForm);
  FileListBox.Parent := CustomPage.Surface;
  FileListBox.Align := alClient;

  FileList := TStringList.Create;
  try
    FileList.Add('MyProg.exe');
    FileList.Add('MyProg.chm');
    FileList.Add('Readme.txt');
    FileListBox.Items.Assign(FileList);
  finally
    FileList.Free;
  end;  
end;

【讨论】：