我有以下代码的.iss脚本:
[Files]
Source: "..\*.ext"; DestDir: "{tmp}\Test\"; \
AfterInstall: DoSomething('{path}'); Flags: ignoreversion recursesubdirs createallsubdirs;
[Code]
procedure DoSomething(path: string)
...
end;
我需要调用过程
DoSomething()
并将每个文件当前复制文件的路径传递给它。如何从[Files]
部分获取当前文件的路径? 最佳答案
引用documentation of the AfterInstall
parameter:
使用CurrentFilename
检查为哪个文件调用了该函数。
(我添加的链接)
[Files]
Source: "..\*.ext"; DestDir: "{tmp}\Test\"; \
AfterInstall: DoSomething; Flags: ignoreversion recursesubdirs createallsubdirs;
[Code]
procedure DoSomething;
var
Path: string;
begin
Path := CurrentFilename;
{ ... }
end;