Innosetup6 code修改环境变量

最新推荐文章于 2024-07-17 16:04:26 发布

YY&QQ

最新推荐文章于 2024-07-17 16:04:26 发布

阅读量940

点赞数 1

分类专栏： Innosetup pascal

本文链接：https://blog.csdn.net/yingyingququ/article/details/106639582

版权

本文介绍了一个在InnoSetup6中修改环境变量的实测可用代码，包括安装和卸载时如何设置、删除环境变量，适用于WinNT系统和非NT系统。

摘要由CSDN通过智能技术生成

在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) )