我有.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:
Use 07001 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;