我需要创建一个安装程序包,允许同一个应用程序的多个实例安装在同一台PC /服务器上。所以,我希望动态修改默认"安装到"处理UserInfo页面后的位置。
即。在NextButtonClick
事件中,我希望在CurPageID=wpUserInfo
时更改SelectDir向导页面上的值。下面这样的东西(抛出异常)。我还假设我可以通过展开{userinfoname}
来访问用户名。任何帮助将不胜感激。
function NextButtonClick(CurPageID: Integer): Boolean;
var
Page: TInputDirWizardPage;
begin
case CurPageID of
........
wpUserInfo:
begin
Page := TInputDirWizardPage(PageFromID(wpSelectDir));
Page.Values[0] := MyAppDirFunction;
end;
end;
Result := True;
end;
答案 0 :(得分:3)