inno制作安装包时碰到pascal脚本问题：setup段无法从code段提取内容

jpchen

目前要制作一个安装软件，使用Inno Setup V5.23版本，需要实现3个另类的功能：
1、允许用户自己输入一个软件名称（这样不是由开发者来决定了），安装时要自动将软件安装到相应的文件夹里，比如用户在一个框里输入“我的定制软件”，安装包就将软件安装到“C:\Program Files\我的定制软件”这个文件夹里面，如果输入“这软件只有我一个人使用”，那么安装路径就变成“C:\Program Files\这软件只有我一个人使用”这个文件夹里。
2、允许用户改动可执行文件的名称，比如发行时可执行文件是“aaa.exe”，用户可以在安装时的一个输入框里输入自己想要的名字，比如“zzz”，安装后文件就改名成为zzz.exe。
3、开始菜单和桌面的快捷方式，因为上述2项的改动，快捷方式也要有相应的变化，否则会指向不正确。

目前在实现第一个功能时就碰到了问题，我在setup段里这样设置：
[Setup]
DefaultDirName={pf}\{code:GetMyAppNameIn}

code段这样设置
[Code]
var
  MyAppNamePage: TInputQueryWizardPage;
  MyAppNameIn: String;

procedure InitializeWizard();
begin
  MyAppNamePage := CreateInputQueryPage(wpLicense,
    '定制软件名称', '设置自己的特定名称',
    '请输入自己设定的软件名称，随便取什么名字，多有特色都可以');
  MyAppNamePage.Add('软件名称：', False);
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  if CurPageID = MyAppNamePage.ID then begin
    MyAppNameIn := MyAppNamePage.Values[0];
  end;
  Result := True;
end;

function GetMyAppNameIn(Param: String): String;
begin
  Result := MyAppNameIn;
end;

结果发现无效，检查时在NextButtonClick里加上MsgBox函数来检测MyAppNameIn变量，发现确实已经改成了用户输入的名称了，但是在接下来的让用户选择安装路径的框上，却显示路径为“C:\Program Files”，没有用户输入的部分，表明MyAppNameIn没有提取到。我猜测是不是DefaultDirName的生效时间在NextButtonClick函数之前，导致安装包一运行，就先将DefaultDirName赋值好了，用户输入的时候已经太晚了，不知道是不是这样。

这种情况不知道诸位用Inno时有没有碰到，希望能帮我想个办法，谢谢！

jpchen

用code段来设置安装路径的方法，很多人是用来读取注册表来设定路径的，我因为不打算涉及注册表，并且是需要用户在安装时才决定名称，所以是比较另类的要求。

jpchen

有人用Inno来做安装程序吗？

SkyGz

轻松搞定...
[Setup]
DefaultDirName={pf}\
OutputDir=.
AppSupportURL=http://www.skygz.com

[Code]
var
  MyAppNamePage: TInputQueryWizardPage;

procedure InitializeWizard();
begin
  MyAppNamePage := CreateInputQueryPage(wpLicense,
    '定制软件名称', '设置自己的特定名称',
    '请输入自己设定的软件名称，随便取什么名字，多有特色都可以');
  MyAppNamePage.Add('软件名称：', False);
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  if CurPageID = MyAppNamePage.ID then begin
    if MyAppNamePage.Values[0] = '' then begin
      result := false;
      exit;
    end;
    WizardForm.DirEdit.text := ExpandConstant('{pf}\')+MyAppNamePage.Values[0];
  end;
  Result := True;
end;

jpchen

按SkyGz的方法试了一下，果然可行，输入的名称已经附加到安装路径中了，看来关键就是：WizardForm.DirEdit.text := ExpandConstant('{pf}\')+MyAppNamePage.Values[0];

非常高兴，谢谢SkyGz，这问题已经困扰我好几天了，在网上一直查不到相关资料，今天终于解决了，可以继续做下面的几个功能了。

javenreal

论坛真是藏龙卧虎，看来inno也挺强大的。

借楼问一个问题：

有没有办法实现，安装时根据当前所选语言复制不同文件？

[Files]
Source: "a_ch.dat"; DestDir: "{app}";
Source: "a_en.dat"; DestDir: "{app}";

当用户安装时选择英文时，只从安装包中释放a_en.dat并重命名为a.dat，当用户选择中文时，只释放a_ch.dat并重命名为a.dat？

SkyGz

你都不知道Inno软件一直坚持汉化的是我

[Files]
Source: a_ch.dat; DestDir: {app}; Languages: chinesesimp; DestName: a.dat
Source: a_en.dat; DestDir: {app}; Languages: english; DestName: a.dat

jpchen

我说怎么在Inno的help里都查不到WizardForm这个词，去查源码才找到，原来是汉化作者，佩服！
Inno很好用，对于99％的用户而言，不会比InstallShield逊色。我以前用过InstallShield，非常庞大，还不容易用，并且是收费软件，当然我是用破解版的。
强烈推荐大家用Inno，功能强大，并且是免费的，还附带源码。

javenreal

6楼高手，佩服佩服！

vtte

本论坛果然是藏龙卧虎