如何从 inno setup 中调用 winXP sett 命令？

Question

我需要在 inno setup 安装脚本期间设置 python 路径。

据我所知，从命令行设置它是通过键入：

set path= C:\pythonTargetDir;%path%

在我的 inno 设置中，在 [run] 部分我尝试添加以下行：

Filename: "set"; Parameters:  " ""path ={#pythonTargetDir}"" TARGETDIR=""{#pythonTargetDir}"" ALLUSERS=1 "; StatusMsg: "Adding Python to system path..."

运行脚本在以下错误消息框中结束：

无法执行文件： 设置

创建过程失败；代码 2； 系统找不到指定的文件

我想我可以编写一个批处理文件来执行 set 命令，然后我会命令 inno 从运行部分调用它，这样就可以了。但即使它会奏效，我也不想走那条路。似乎不是很优雅的解决方案。还有其他方法吗？

[ini] 和 [Registry] 部分似乎也不适合此目的。

Answer 1

我在 pascal 中的函数很少。查看代码并确定它们是否符合您的需求。我很久以前就做到了，我不知道哪个版本更好。 How do I modify the PATH environment variable when running an Inno Setup Installer? 是很好的解决方案。

获取数组中的路径：

function GetEnvStrings(VarName:string;AllUsers:Boolean):TArrayOfString;
var
    Path:string;
    i:Longint;
    p:Integer;
begin
    Path:='';
    // See http://www.jrsoftware.org/isfaq.php#env
    if AllUsers then 
    begin
      RegQueryStringValue(HKEY_LOCAL_MACHINE,'SYSTEM\CurrentControlSet\Control\Session Manager\Environment',VarName,Path);
    end 
    else 
    begin
      RegQueryStringValue(HKEY_CURRENT_USER,'Environment',VarName,Path);
    end;
    Path:=Path+';';

    i:=0;
    SetArrayLength(Result,0);

    p:=Pos(';',Path);
    while p>0 do 
    begin
      SetArrayLength(Result,i+1);
      if p>1 then 
      begin
        Result[i]:=Copy(Path,1,p-1);
        i:=i+1;
      end;
      Path:=Copy(Path,p+1,Length(Path));
      p:=Pos(';',Path);
    end;
end;

检查路径中是否已经有目录：

function NeedsAddPath(Param: string): boolean;
var
  OrigPath: string;
  ok: Boolean;
begin
  ok:= False;

  if not RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', OrigPath) then 
  begin
    ok:= True;
    exit;
  end;

  ok:= Pos(';' + Param + ';', ';' + OrigPath + ';') = 0;

  Result:= ok;
end;

设置路径1：

function SetEnvStrings(VarName:string; AllUsers,DeleteIfEmpty: Boolean; DirStrings:TArrayOfString):Boolean;
var
  Path,KeyName:string;
  i:Longint;
begin
  Path:='';
  for i:=0 to GetArrayLength(DirStrings)-1 do 
  begin
    if Length(DirStrings[i])>0 then 
    begin
      if Length(Path)>0 then 
      begin
        Path:=Path+';'+DirStrings[i];
      end 
      else 
      begin
        Path:=DirStrings[i];
      end;
    end;
  end;
  Log(Path);
  if AllUsers then
  begin
    Log('All');
    KeyName:='SYSTEM\CurrentControlSet\Control\Session Manager\Environment';
    if DeleteIfEmpty and (Length(Path)=0) then 
    begin
      Result:=(not RegValueExists(HKEY_LOCAL_MACHINE,KeyName,VarName))
                or RegDeleteValue(HKEY_LOCAL_MACHINE,KeyName,VarName);
    end 
    else 
    begin
      Log(VarName + ' All');
      RegWriteStringValue(HKEY_LOCAL_MACHINE,KeyName,VarName,Path);
      KeyName:='SYSTEM\ControlSet2002\Control\Session Manager\Environment';
      RegWriteStringValue(HKEY_LOCAL_MACHINE,KeyName,VarName,Path);
    end;
  end 
  else 
  begin
    KeyName:='Environment';
    Log(KeyName);
    if DeleteIfEmpty and (Length(Path)=0) then 
    begin
      Result:=(not RegValueExists(HKEY_CURRENT_USER,KeyName,VarName))
                or RegDeleteValue(HKEY_CURRENT_USER,KeyName,VarName);
    end 
    else 
    begin
      Log(VarName + ' Environment');
      Result:=RegWriteStringValue(HKEY_CURRENT_USER,KeyName,VarName,Path);
    end;
  end;
end;

设置路径2：

procedure SetPath(pEnvPath: String);
var 
  Msg :String;
  EnvPath: TArrayOfString;
  i: integer;
begin
  EnvPath:=GetEnvStrings('PATH', IsAdminLoggedOn);
  if NeedsAddPath(pEnvPath) then 
  begin
    i:=GetArrayLength(EnvPath);
    SetArrayLength(EnvPath,i+1);
    log(pEnvPath);
    EnvPath[i]:= pEnvPath;          
  end;

  if not SetEnvStrings('PATH', True, True, EnvPath) then 
  begin
    Msg:='Line {#__LINE__}: Unable to set the PATH environment variable.';
    Log(Msg);
  end; 
  if not SetEnvStrings('PATH', False, True, EnvPath) then 
  begin
    Msg:='Line {#__LINE__}: Unable to set the PATH environment variable.';
    Log(Msg);
  end;
end;