تنظیم 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\CurrentVer sion\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\CurrentVer sion\Internet Settings',False);
Reg.WriteBool('ProxyEnable',False);
Reg.CloseKey;
Reg.Free;
InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0);
end;

[helia]

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