Innosetup6 code修改环境变量

在Innosetup6运行测试通过

网上已经有很多前辈有过相似代码，但是在使用过程中编译出错或者由于大小写或函数调用参数等的小问题，导致实际编译运行并非预期结果，下面是本人将前辈们的基础上修改后，实测可用的代码

[Code]

procedure SetEnv(aEnvName, aEnvValue: string; aIsInstall, aIsInsForAllUser: Boolean);
var
sOrgValue: string;
S1, sFileName, sInsFlag: string;
bRetValue, bInsForAllUser: Boolean;
SL: TStringList;
x: integer;
S2: AnsiString;
begin
bInsForAllUser := aIsInsForAllUser;
if UsingWinNT then
begin
    if bInsForAllUser then
      bRetValue := RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', aEnvName, sOrgValue)
    else
      bRetValue := RegQueryStringValue(HKEY_CURRENT_USER, 'Environment', aEnvName, sOrgValue);
    sOrgValue := Trim(sOrgValue);
    begin
      S1 := aEnvValue;
      if pos(Uppercase(S1),Uppercase(sOrgValue) )