Setting Proxy Internet Explorer

Set Proxy

Ada kalanya kita ingin browser diset proxynya ke proxy server yang kita inginkan. Mari kita lihat cara men settingnya lewat pemrograman Delphi.

Prosedur mengeset proxy

Procedure TForm1.SetProxy(const Server: String);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',False);
Reg.WriteString('ProxyServer',Server);
Reg.WriteBool('ProxyEnable',True);
Reg.CloseKey;
Reg.Free;
end;
Procedure Menonaktifkan proxy

Procedure TForm1.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;

Button yang kita inginkan untuk menjalan pengesetan proxy diberi kode sebagai berikut

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
SetProxy(edit1.text+':'+edit2.text);
end;

Selesai