inno-setup - Inno Setup - 如何从"file"部分获取当前复制文件的路径

Question

我有带有以下代码的 .iss 脚本:

[Files]
Source: "..\*.ext"; DestDir: "{tmp}\Test\"; \
   AfterInstall: DoSomething('{path}'); Flags: ignoreversion recursesubdirs createallsubdirs;

[Code]

procedure DoSomething(path: string)
...
end;

我需要调用程序 DoSomething()并将每个文件的当前复制文件的路径传递给它。如何从 [Files] 获取当前文件的路径部分？

Answer 1

引用 documentation of the AfterInstall parameter :

Use CurrentFilename to check for which file the function is called.

(链接是我加的)

[Files]
Source: "..\*.ext"; DestDir: "{tmp}\Test\"; \
   AfterInstall: DoSomething; Flags: ignoreversion recursesubdirs createallsubdirs;

[Code]

procedure DoSomething;
var
  Path: string;
begin
  Path := CurrentFilename;
  { ... }
end;