用Delphi修改系统环境变量

最近有个程序，要用到Oracle客户端，又不想用官方的，就想自己写一个用来安装。要安装Oracle客户端有几个工作要做：

第一个是复制Oracle客户端文件。

第二个是写注册表。

第三个是注册环境变量。

用Delphi怎么修改系统的环境变量呢，上网找了一下，写了下面的程序，怕以后忘记了，贴上来。

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry,ShellAPI; type TForm1 = class(TForm) btnAddOraCli: TButton; procedure btnAddOraCliClick(Sender: TObject); private { Private declarations } public { Public declarations } procedure SetEnvPath; //设置环境变量 function CopyOraFiles(const SourDir,DestDir :string) :Boolean; //复制整个文件夹 end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btnAddOraCliClick(Sender: TObject); var sbtnCaption : string; begin sbtnCaption := btnAddOraCli.Caption; btnAddOraCli.Enabled := False; btnAddOraCli.Caption := '正在复制文件'; if not CopyOraFiles('Ora_Cli', 'C:/') then begin ShowMessage('复制文件出错，Oracle客户端没有设置成功'); Exit; end; WinExec('merge.bat',sw_hide); //运行批处理文件，合并注册表信息 btnAddOraCli.Caption :='正在设置环境变量'; SetEnvPath; btnAddOraCli.Enabled := True; btnAddOraCli.Caption := sbtnCaption; end; function TForm1.CopyOraFiles(const SourDir, DestDir: string): Boolean; var fOPStruct :TSHFileOpStruct; begin {网上抄来的COPY文件的方法} FillChar(fOPStruct,SizeOf(fOPStruct),0); with fOPStruct do begin Wnd := 0; wFunc := FO_COPY; pFrom := PChar(SourDir + #0); pTo := PChar(DestDir +#0); fFlags := FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR ; end; if (SHFileOperation(fOPStruct) = 0) and (fOPStruct.fAnyOperationsAborted = False) then //检查返回值是0表示成功，再检查用户是否取消了复制 Result := True else Result := False; end; procedure TForm1.SetEnvPath; var reg : TRegistry; sLMKey : string; sCurStr : string; sStrToAdd: string; sName: string; begin sLMKey := 'System/CurrentControlSet/Control/Session Manager/Environment'; //环境变量保存在注册表的这个位置 sName := 'Path'; //我们要修改的是Path环境变量 sStrToAdd := 'C:/Ora_Cli/bin'; //要添加的环境变量 reg := TRegistry.Create; try reg.RootKey := HKEY_LOCAL_MACHINE; if reg.OpenKey(sLMKey,False) then begin sCurStr := reg.ReadString(sName); //读取环境变量 if Pos(sStrToAdd,sCurStr) = 0 then //判断此环境变量是否已经存在 begin sCurStr := sCurStr + ';' + sStrToAdd; //把'C:/Ora_Cli/bin'这个值加入到环境变量的最后 {网上看到的方法都是用WriteString这个函数来写Path环境变量， 可是我用了就有问题 用了这个函数后，系统对%systemroot%,这带%的变量就不翻译了，有很多命令如ping就不能用了， 会说ping不是可执行命令等等，后来经高手提醒说：用WriteExpandString就没问题了。 看了Delphi的帮助，有这么一句： Call WriteExpandString to store a string that contains unexpanded references to environment variables such as %PATH% } //reg.WriteString(sName,sCurStr); //用这句就有问题 reg.WriteExpandString(sName,sCurStr); //把值写到注册表里 reg.CloseKey; SetEnvironmentVariable(PChar(sName),PChar(sCurStr));//更新当前进程的环境变量 SendMessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,Integer(PChar('Environment'))); //通知所有上层窗口，环境参数变化 ShowMessage('Oracle客户端安装成功'); end else ShowMessage('此环境变量已经存在'); end; except on E: Exception do begin reg.Free; ShowMessage('Error: ' + E.Message); Exit; end; end; reg.Free; end; end.

 

 

merge.bat批处理文件的内容如下：

regedit /s Instal_Ora_Cli.reg

 

 

注册表文件内容如下：

 Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE/SOFTWARE/ORACLE] "ORACLE_HOME"="C://Ora_Cli" "ORACLE_HOME_NAME"="OraHome92" "ORACLE_GROUP_NAME"="Oracle - OraHome92" "NLS_LANG"="AMERICAN_AMERICA.US7ASCII" "VOBHOME2.0"="C://Ora_Cli" [HKEY_LOCAL_MACHINE/SOFTWARE/ORACLE/ALL_HOMES] "HOME_COUNTER"="1" "DEFAULT_HOME"="OraHome92" "LAST_HOME"="0" [HKEY_LOCAL_MACHINE/SOFTWARE/ORACLE/ALL_HOMES/ID0] "NAME"="OraHome92" "PATH"="C://Ora_Cli" "NLS_LANG"="NA" [HKEY_LOCAL_MACHINE/SOFTWARE/ORACLE/HOME0] "ID"="0" "ORACLE_GROUP_NAME"="Oracle - OraHome92" "ORACLE_HOME_NAME"="OraHome92" "ORACLE_HOME"="C://Ora_Cli" "NLS_LANG"="AMERICAN_AMERICA.US7ASCII" "ORAMTS_CP_TRACE_LEVEL"="0" "ORAMTS_CONN_POOL_TIMEOUT"="120" "ORAMTS_SESS_TXNTIMETOLIVE"="120" "ORAMTS_NET_CACHE_MAXFREE"="5" "ORAMTS_NET_CACHE_TIMEOUT"="120000" "ORAMTS_OSCREDS_MATCH_LEVEL"="OS_AUTH_LOGIN" "ORACLE_HOME_KEY"="Software//ORACLE//HOME0"