procedure TForm1.Button1Click(Sender: TObject);
var
Info: INTERNET_PROXY_INFO;
Reg : TRegistry; begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_USERS;
if Reg.OpenKey('\S-1-5-21-515967899-839522115-1343024091-1003\Software\Microsoft\Windows\CurrentVersion\Internet Settings', False) then
begin
Reg.WriteString('ProxyServer', '60.254.188.10:80');
Reg.WriteInteger('ProxyEnable', 1);
end;
finally
Reg.CloseKey;
Reg.Free;
end;高手们看好是注册表HKEY_USERS下创建新子项目 但是可能是权限的问题
创建不了 我的问题就是怎么在HKEY_USERS提权 或者有权限在HKEY_USERS下创建项目
var
Info: INTERNET_PROXY_INFO;
Reg : TRegistry; begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_USERS;
if Reg.OpenKey('\S-1-5-21-515967899-839522115-1343024091-1003\Software\Microsoft\Windows\CurrentVersion\Internet Settings', False) then
begin
Reg.WriteString('ProxyServer', '60.254.188.10:80');
Reg.WriteInteger('ProxyEnable', 1);
end;
finally
Reg.CloseKey;
Reg.Free;
end;高手们看好是注册表HKEY_USERS下创建新子项目 但是可能是权限的问题
创建不了 我的问题就是怎么在HKEY_USERS提权 或者有权限在HKEY_USERS下创建项目
解决方案 »
- 初学者(文件类型)
- 充实的一天
- 图片旋转的问题,以任意角度旋转
- 散分 天亮结贴
- 在DELPHI7如何中实现发送电子邮件的功能?
- 高分求助。如何禁用浏览器(解决后将加送200分)
- 关于imagelist的应用,太菜了,都问不出口了。呵呵
- 求一条查询ado的sql语句,我有一个sql server表,其中有一个'物资编码'字段,例如02020106335285,我想查询前四位是0202的记录,并不想查
- 高分寻找控件, 大家帮帮我, 急急!!!!!
- 关于ISAPI
- Invalid UTF-8 middle byte ox3f(at char #412,byte #127)
- 小妹求教高手。。。快进来看看。急。。。急。。。画拓扑图。
http://blog.csdn.net/iseekcode/archive/2010/03/07/5353994.aspx