16,471
社区成员
发帖
与我相关
我的任务
分享
[Setup]
AppName=MyProgram
AppVersion=1.0
DefaultDirName={code:GetDefaultInstallRoot}\MyProgram
[code]
function GetDefaultInstallRoot(Param: String): String;
begin
if ((GetWindowsVersion shr 16) >= $0600) then
Result := ExpandConstant('{userappdata}')
else
Result := ExpandConstant('{pf}');
end;