VC/NSIS 设置环境变量

　　//unicode编码下

       HKEY hregkey;
 　　DWORD dwReturnValue = 0;
 　　CString strEnvironmentPath(_T("")); //环境变量值

 　　TCHAR chsys[MAX_PATH] = {0};
 　　CString sSysCh;
 　　GetSystemDirectory( chsys , sizeof(chsys) ); //获取系统盘盘符
 　　sSysCh.Format( _T("%s") , chsys );
 　　CString charSysCh = _T("");
 　　charSysCh.Format(_T("%c"),sSysCh.GetAt(0));
 　　sSysCh = charSysCh + _T(":\windows\system32;") ;//设置system32环境变量参数
 　　long res = RegOpenKeyEx(HKEY_LOCAL_MACHINE,
  　　　　_T("System\CurrentControlSet\Control\Session Manager\Environment"),
  　　　　0, KEY_ALL_ACCESS, &hregkey); //打开注册表环境变量
 　　if(res == 0)
 　　{
 　　　　LPBYTE lpa = new BYTE[500];
  　　　　DWORD dwAidSize=500;
  　　　　DWORD type=REG_SZ;
  　　　　if(ERROR_SUCCESS == ::RegQueryValueEx(hregkey,_T("Path"),
   　　　　　　NULL,&type,lpa,&dwAidSize))
  　　　　{
  　　　　　　 strEnvironmentPath = (LPTSTR)lpa;

　　　　　　　if (strEnvironmentPath.Find(sSysCh) != -1)
   　　　　　　　　 return TRUE;
   　　　　　　strEnvironmentPath.Insert(0,sSysCh);
   　　　　　　if (ERROR_SUCCESS ==::RegSetValueEx(hregkey,_T("Path"),
   　　　　　　　　 0,REG_SZ,(LPBYTE)(LPCTSTR)strEnvironmentPath,
     　　　　　　　　strEnvironmentPath.GetLength()*2)
   　　　　　　 )
  　　　　 {
   　　　　　　 SendMessageTimeout(HWND_BROADCAST,
    　　　　 　　WM_SETTINGCHANGE,
     　　　　　　0, (LPARAM) _T("Environment"),
     　　　　　　SMTO_ABORTIFHUNG,
     　　　　　　5000,
    　　　　　　 &dwReturnValue); //使修改的环境变量立即生效
   　　　　　　 ::RegCloseKey(hregkey);
    　　　　　　return TRUE;
   　　　　}
   　　　　AfxMessageBox(strEnvironmentPath);
  　　　　}
  　　　　::RegCloseKey(hregkey);
 　　}

;设置PATH路径
ReadRegStr $0 HKLM "SYSTEM\CurrentControlSet\Control\Session Manager\Environment" "Path"
WriteRegExpandStr HKLM "SYSTEM\CurrentControlSet\Control\Session Manager\Environment" "Path" "$0;$INSTDIR\Oracle\bin\"
;刷新环境变量
SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} 0 "STR:Environment"