最近在研究AMF数据结构，因为菜，所以先编写了一个设置代理服务器的东东。delphi的。

最新推荐文章于 2024-09-28 20:44:11 发布

founder008

最新推荐文章于 2024-09-28 20:44:11 发布

阅读量766

点赞数

文章标签： delphi 数据结构服务器 internet forms user

本文链接：https://blog.csdn.net/founder008/article/details/5869243

版权

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,WinInet,Registry;

type
TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
inf:INTERNET_PROXY_INFO ;
len:DWORD;
reg:TRegistry;
begin
      inf.dwAccessType:=INTERNET_OPEN_TYPE_PROXY;
      inf.lpszProxy:=PChar('132.232.56.58');
      inf.lpszProxyBypass:=nil;
      len:=SizeOf(inf);
      reg:=TRegistry.Create;
      reg.RootKey:=HKEY_CURRENT_USER;

      if reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Internet Settings',True) then
       begin
         reg.WriteString('ProxyServer','http=127.0.0.1:8184;https=127.0.0.1:8184');
         reg.WriteInteger('ProxyEnable',1);
         reg.CloseKey;
       end;
     if(InternetSetOption(nil,INTERNET_OPTION_PROXY,@inf,len)) then
     showmessage('success change!') ;
     if(InternetSetOption(nil, INTERNET_OPTION_REFRESH, nil, 0)) then
      showmessage('success REFRESH!');
     if(InternetSetOption(nil,INTERNET_OPTION_SETTINGS_CHANGED,nil,0)) then
      showmessage('success INTERNET_OPTION_SETTINGS_CHANGED!');

end;
procedure TForm1.FormClose(Sender: TObject);
var
len:DWORD;
reg:TRegistry;
begin
   ShowMessage('test');
    reg:=TRegistry.Create;
     reg.RootKey:=HKEY_CURRENT_USER;
   if reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Internet Settings',True) then
       begin
         reg.DeleteValue('ProxyServer');
         reg.WriteInteger('ProxyEnable',0);
         reg.CloseKey;
       end;
       InternetSetOption(nil,INTERNET_OPEN_TYPE_DIRECT,nil,0);
end ;

end.