系统环境变量的设置Delphi函数
来源:互联网 发布:联想指纹识别软件win7 编辑:程序博客网 时间:2024/05/29 07:54
uses TRegistry;
function SetGlobalEnvironment(const Name, Value: string;
const User: Boolean = True): Boolean;
resourcestring
REG_MACHINE_LOCATION = 'System/CurrentControlSet/Control/Session Manager/Environment';
REG_USER_LOCATION = 'Environment';
begin
with TRegistry.Create do
try
if User then { User Environment Variable }
Result := OpenKey(REG_USER_LOCATION, True)
else { System Environment Variable }
begin
RootKey := HKEY_LOCAL_MACHINE;
Result := OpenKey(REG_MACHINE_LOCATION, True);
end;
if Result then
begin
WriteString(Name, Value); { Write Registry for Global Environment }
{ Update Current Process Environment Variable }
SetEnvironmentVariable(PChar(Name), PChar(Value));
{ Send Message To All Top Window for Refresh }
SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Integer(PChar('Environment')));
end;
finally
Free;
end;
end; { SetGlobalEnvironment }
- 系统环境变量的设置Delphi函数
- 系统环境变量的设置Delphi函数
- delphi设置环境变量
- 操作系统系统环境变量的设置
- windows系统环境变量的设置
- VBS设置系统的环境变量
- 用Delphi修改系统环境变量
- 用Delphi修改系统环境变量
- Windows系统python环境变量的设置
- 批处理根据不同的系统设置环境变量
- Android系统编译环境变量的设置
- shell设置系统环境变量的问题
- 设置的系统环境变量不成功 MAC
- 【linux系统】 关于环境变量的设置
- 使用批处理文件设置系统的环境变量
- delphi 设置系统级的组合键
- getenv、setenv函数 获取和设置系统环境变量
- getenv、setenv函数 获取和设置系统环境变量
- 好久没有写blog了。。。
- 用DELPHI设置文件的属性
- 数据库分页技术
- 键盘ASCII码查询
- 系统环境变量的设置Delphi函数
- 系统环境变量的设置Delphi函数
- 一个ReportNet连接Oracle数据库的问题
- 基于.net技术的代码高亮显示组件
- 虚拟机下上网的设定
- 建表 sql
- 利用Ireport和JasperReport实现导出RTF等文件
- powerpoint application 的事件
- J2EE框架设计技术分析
- 工作记事