delphi ÐÞ¸Ä×¢²á±íµÄÎÊÌâ

delphi ÐÞ¸Ä×¢²á±íµÄÎÊÌâ 
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;
Info.dwAccessType := INTERNET_OPEN_TYPE_PROXY; 
    Info.lpszProxy := PChar('60.254.188.10:80');
    InternetSetOption(nil, INTERNET_OPTION_PROXY, @Info, 1000);
    InternetSetOption(nil, INTERNET_OPTION_REFRESH, nil, 0);
    InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
    webbrowser1.Navigate('http://www.ip138.com');
  end;


ÎÒÊÔͼÐÞ¸Ä
HKEY_US