Witam, piszę prosty programik, który zmienia ustawienia proxy IE z poziomu delphi za pomocą rejestru. Mamy Memo z listą proxy, kopiujemy z niej do Edita dany adres, za pomocą buttona ustawiamy wybrane proxy. Drugi button sluży do nawigacji webbrowsera. Całość wygląda tak:
unit Unit1;
interface
uses
Winapi.Windows, Registry, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
myReg: TRegistry;
begin
myReg := TRegistry.Create;
myReg.RootKey := HKEY_CURRENT_USER;
if myReg.OpenKey('Software\Microsoft\Windows\CurrentV ersion\Internet Settings', TRUE) then
begin
myReg.WriteString('ProxyServer', +Edit2.Text);
myReg.WriteInteger('ProxyEnable', 1);
end;
myReg.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Webbrowser1.Navigate(Edit1.Text);
end;
end.
Problemy:
- Niestety średnio działa zmiana proxy, (zmienia wpis w rejestrze, a nijak to się ma naszego IP) czy ktoś jest w stanie wskazać gdzie leży błąd?
- Czy jest możliwość aby lista adresów była umieszczona w CoboBoxie, a zaznaczony item = Edit2.Text coś na zasadzie:
Edit2.Text:=CoboBox1.Selected.Item;
Z góry dzięki za pomoc