Inno---注册系统环境变量

最新推荐文章于 2025-01-09 23:08:29 发布

原创最新推荐文章于 2025-01-09 23:08:29 发布 · 679 阅读

2 ·

CC 4.0 BY-SA版权

TOOl 专栏收录该内容

21 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的设置环境变量的方法。通过注册表操作来修改环境变量，支持安装和卸载环境变量，并确保变化立即生效而无需重启计算机。提供了具体的Delphi代码实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

[Code]

//环境变量名、值、是否安装（删除）、是否所有用户有效
procedure SetEnv(aEnvName, aEnvValue: string; aIsInstall: Boolean);//设置环境变量函数
var
sOrgValue: string;
x,len: integer;
begin
    //得到以前的值
    RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', aEnvName, sOrgValue)
    sOrgValue := Trim(sOrgValue);
    begin
      x := pos( Uppercase(aEnvValue),Uppercase(sOrgValue));
      len := length(aEnvValue);
      if aIsInstall then//是安装还是反安装
      begin
          if length(sOrgValue)>0 then aEnvValue := ';'+ aEnvValue;
          if x = 0 then Insert(aEnvValue,sOrgValue,length(sOrgValue) +1);
      end
      else
      begin
        if x>0 then Delete(sOrgValue,x,len);
         if length(sOrgValue)=0 then 
         begin
           RegDeleteValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment',aEnvName);
           exit;
         end;
      end;
      StringChange(sOrgValue,';;',';');
      RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', aEnvName, sOrgValue)
    end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  //在这儿调用,一定在这儿调用,安装完无须重启,立即生效
	SetEnv('path','D:\\OpenCV\\bin',true);
end;