[注册表和VBS]配置环境变量并立即生效 - 电脑技术 - 广西民族师范学院论坛 创新的|...

[注册表和VBS]配置环境变量并立即生效

最近开始学Java。我们主要学Java Application和Java Applet两个分类。为了在任意目录下都能编译和运行Java程序，需要对path和classpath环境变量进行相关设置。终于知道环境变量用处之一了。想用程序来实现一下设置环境变量。好不容易用注册表函数写好，结果不行。晕。。。后来想到应该要刷新一下。注销和重起都可以。但我想实现的是立即生效。后来上网搜了一下,得到如下结果：
通过修改注册表，修改了系统的环境变量，但是不会立即生效，除非在【我的电脑】上点击右键，然后打开环境变量的窗口，点击【OK】后，才能生效。后来用Spy++工具捕获消息，发现在点击【OK】按钮时，发送了WM_SETTINGCHANGE消息。
这里有两种方法可以实现：
1.SendMessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,(LPARAM)TEXT("Environment"));
2.SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, (LPARAM)"Environment", SMTO_ABORTIFHUNG, 5000, 0);
终于成功了，高兴哇。后来无意中发现用VBS配置环境变量并立即生效简单得要命，当场晕倒。。。
下面把两种实现方法都贴出来吧。

1. //////////配置JAVA环境变量////////
   
2. #include <windows.h>
   
3. #include <string.h>
   
4. #include <stdlib.h>
   
5. 
   
6. int SetValue (char * valueName, char *AddValue);
   
7. 
   
8. DWORD nLength = MAX_PATH;
   
9. char DirectoryName[MAX_PATH];
   
10. 
    
11. int APIENTRY WinMain(HINSTANCE hInstance,
    
12.                      HINSTANCE hPrevInstance,
    
13.                      LPSTR     lpCmdLine,
    
14.                      int       nCmdShow)
    
15. {
    
16.         char pValue[MAX_PATH];
    
17.         ::ZeroMemory(DirectoryName,MAX_PATH);
    
18.         ::ZeroMemory(pValue,MAX_PATH);
    
19. 
    
20.         // 得到当前执行文件的路径名       
    
21.         ::GetCurrentDirectory(nLength,DirectoryName);
    
22. 
    
23.         // 设置path环境变量
    
24.         strcat(pValue,";");
    
25.         strcat(pValue,DirectoryName);
    
26.         strcat(pValue,"\\bin");
    
27.         SetValue("path",pValue);
    
28. 
    
29.         // 重置pValue
    
30.         ::ZeroMemory(pValue,MAX_PATH);
    
31. 
    
32.         // 设置classpath环境变量
    
33.         strcat(pValue,".;");
    
34.         strcat(pValue,DirectoryName);
    
35.         strcat(pValue,"\\lib\\tool.jar;");
    
36.         strcat(pValue,DirectoryName);
    
37.         strcat(pValue,"\\lib\\dt.jar");
    
38.         SetValue("classpath",pValue);
    
39.         return 0;
    
40. }
    
41. 
    
42. int SetValue(char * valueName, char *AddValue)
    
43. {
    
44.         DWORD keyType = REG_SZ;       
    
45.         BYTE getValue[1024];
    
46.         DWORD DataLen = 1024;
    
47.         HKEY hRoot = HKEY_LOCAL_MACHINE;
    
48.         HKEY hKey;
    
49.         char *pIsset;
    
50.         ::ZeroMemory(getValue,MAX_PATH);
    
51.     char *szSubKey = "SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment";
    
52.        
    
53.         // 打开键
    
54.         DWORD dwDisposition = REG_OPENED_EXISTING_KEY;       
    
55.         LONG lRet = ::RegCreateKeyEx(hRoot, szSubKey, 0, NULL, REG_OPTION_NON_VOLATILE,
    
56. 
    
57. KEY_ALL_ACCESS, NULL, &hKey, &dwDisposition);
    
58.         if (lRet != ERROR_SUCCESS)
    
59.                 return -1;
    
60.        
    
61.         // 读取键值
    
62.         lRet = ::RegQueryValueEx(hKey,valueName,NULL,&keyType,getValue,&DataLen);
    
63.        
    
64.         pIsset = strstr((char*)getValue, DirectoryName);
    
65. 
    
66.         // 如果已设置则返回
    
67.         if (pIsset)
    
68.         {
    
69.                 char MsgText[80];
    
70.                 strcpy(MsgText,valueName);
    
71.                 strcat(MsgText,"环境变量已配置好，不需再配置！");
    
72.                 ::MessageBox(NULL,MsgText,"fc提示",MB_OK);
    
73.                 return -1;
    
74.         }
    
75. 
    
76.         strcat((char*)getValue,AddValue);
    
77.        
    
78.         // 写入键值
    
79.         lRet = ::RegSetValueEx(hKey, valueName, 0, REG_SZ, (BYTE*)getValue, strlen((char*)
    
80. 
    
81. getValue));
    
82.         if (lRet == ERROR_SUCCESS)
    
83.         {       
    
84.                 char MsgText[80];
    
85.                 strcpy(MsgText,valueName);
    
86.                 strcat(MsgText,"环境变量配置成功！");
    
87.                 ::MessageBox(NULL,MsgText,"fc提示",MB_OK);
    
88. 
    
89.                 // 使设置立即生效，下面两种法都可以
    
90.                 SendMessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,(LPARAM)TEXT("Environment"));
    
91.                 //SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0,
    
92. 
    
93. (LPARAM)"Environment", SMTO_ABORTIFHUNG, 5000, 0);
    
94.         }
    
95.        
    
96.         // 关闭句柄
    
97.         ::RegCloseKey(hKey);
    
98.         return 0;
    
99. }

复制代码

1. on error resume next
   
2. set sysenv = CreateObject("WScript.Shell").Environment("system") '系统环境变量的数组对象
   
3. sysenv.Remove("ztest3")                      '删除变量
   
4. sysenv("ztest3")="test value"                '添加变量

复制代码

VBS这种简单吧……