我有以下代码的.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;

10-07 19:10
查看更多