ISetup制作安装程序问题.

onej

ISetup如何将程序安装到AutoCAD根目录下的support目录里，
他有好几个支持路径，
[HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R15.0\ACAD-1:804\Profiles\<<Unnamed Profile>>\General]
"ACAD"="C:\\Program Files\\AutoCAD 2002\\support;C:\\Program Files\\AutoCAD 2002\\fonts;C:\\Program Files\\AutoCAD 2002\\help;C:\\Program Files\\AutoCAD 2002\\express;"
[Setup]
DefaultDirName={reg:HKCU\\Software\Autodesk\AutoCAD\R15.0\ACAD-1:804\Profiles\<<Unnamed Profile>>\General,ACAD|{pf}\My Program}

秋枫

这样是不行di


ACAD-1:804 这个东东各人的机器上视AutoCAD版本是不同的


必须动态判断，即通过程序读取。

onej

那还请教一下秋枫,谢谢!

秋枫

我已经说了啊。需要你自己用Pascal Script语言编程了。Inno Setup的帮助文件中提供了相关的注册表读／写函数。如果你不会用Pascal语言，你还需要先学习一下。不会用Pascal的话Inno Setup并不是很适合你。你如果会C，可以用InstallShield，或者其它的什么脚本语言比如Wise之类。不要指望我有空帮你写完整的代码，我只能给些你参考了……

2. ……   versionlist := TStringList.Create;
3.    n:=0;
4.    try
5.        parseStr(versionSupport, ';', versionlist);
6.        for i := 0 to versionlist.count-1 do   // 版本级循环
7.        begin
8.            ver := trim(versionList[i]);
9.            if RegGetSubkeyNames(HKCU, AutoCADKey+'\'+ver, subvers) then
10.                for j := 0 to GetArrayLength(subvers)-1 do     // 同一版本级循环
11.                    if RegKeyExists(HKCU,AutoCADKey + '\' + ver + '\' + subvers[j] + '\Profiles') then
12.                    begin
13.                    SetArrayLength(SupportedAcadKeys, n+1);
14.                    SupportedAcadKeys[n] := AutoCADKey + '\' + ver + '\' + subvers[j]
15.                    inc(n);
16.                    end; // 同一版本级循环
17.        end; // 版本级循环
18.    finally
19.        VersionList.Free;
20.    end;……

……   versionlist := TStringList.Create;    n:=0;    try        parseStr(versionSupport, ';', versionlist);        for i := 0 to versionlist.count-1 do   // 版本级循环        begin            ver := trim(versionList[i]);            if RegGetSubkeyNames(HKCU, AutoCADKey+'\'+ver, subvers) then                for j := 0 to GetArrayLength(subvers)-1 do     // 同一版本级循环                    if RegKeyExists(HKCU,AutoCADKey + '\' + ver + '\' + subvers[j] + '\Profiles') then                    begin                    SetArrayLength(SupportedAcadKeys, n+1);                    SupportedAcadKeys[n] := AutoCADKey + '\' + ver + '\' + subvers[j]                    inc(n);                    end; // 同一版本级循环        end; // 版本级循环    finally        VersionList.Free;    end;……

onej

谢谢秋枫,InstallShield是什么,我会C语言,能告之吗?

秋枫

InstallShield也是一个专业的安装制作工具。

xj841000

有没有实例？