تنظیم proxy از داخل برنامه با دلفی 7

[helia]

سلام دوستای خوبم
من یه برنامه نوشتم که قبل از اجرا باید proxy در قسمتconnection داخل internet option تغییر کنه
کسی از دوستان می تونه کمک کنه؟

[meyti]

از دستورات زیر استفاده کنید :
تنظیم پراکسی برای اینترنت اکسپلورر :

uses registry;
.
.
.


Procedure EnableProxy(Server1: String);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',False);
  Reg.WriteString('ProxyServer',Server1);
  Reg.WriteBool('ProxyEnable',True);
  Reg.CloseKey;
  Reg.Free;
  InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0);
end;
.
.
.
.

Procedure DisableProxy;
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',False);
  Reg.WriteBool('ProxyEnable',False);
  Reg.CloseKey;
  Reg.Free;
  InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0);
end;

[helia]

ممنون از کمکتون