如何從inno setup內調用winXP sett命令？

Question

我需要在inno setup安裝腳本中設置python路徑。

據我所知，可以通過鍵入以下命令從命令行進行設置：

set path= C:\pythonTargetDir;%path%

在我的inno設置中，在[運行]部分，我嘗試添加以下行：

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

運行腳本最終在錯誤的錯誤消息框中顯示：

無法執行文件：設置

CreateProcess失敗； 代碼2; 該系統找不到指定的文件

我想我可以編寫一個批處理文件來執行set命令，然后命令inno從run部分調用它，這將達到目的。 但是，即使它行得通，我也不想那樣做。 似乎不是很優雅的解決方案。 還有另一種方法嗎？

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

Answer 1

我的Pascal功能很少。 查看代碼，然后考慮是否滿足您的需求。 我很久以前就做到了，我的版本不是更好。 運行Inno Setup Installer時如何修改PATH環境變量？ 是很好的解決方案。

獲取數組中的路徑：

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;