Új hozzászólás Aktív témák

• #1851 dany27 őstag

  Új Válasz 2010-11-16 17:48:34 #1851

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  dany27

  őstag

  hali

  Egy olyan kérdésem lenne hogy a komponensek közt lévő böngészőnek a kapcsolat beállításait hogy lehet változtatni?
  Ha az Internet Explorer kapcsolat beállításait változtatom akkor változik az övé is. Ezzel nem is lenne gond de valamiért amikor a 3ik proxyt betölti akkor utánna hiába jelzi azt nekem a progi h sikeresen cserélte az explorerben maradt a régi....
  Előre is köszi!
  Itt a kód:
  unit Unit1;
  
  interface
  
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry, WinInet, OleCtrls, SHDocVw, ExtCtrls;
  
  type
  TForm1 = class(TForm)
  btn_start: TButton;
  btn_stop: TButton;
  btn_exit: TButton;
  Label1: TLabel;
  WebBrowser1: TWebBrowser;
  Timer1: TTimer;
  lbl_now: TLabel;
  procedure btn_exitClick(Sender: TObject);
  procedure btn_startClick(Sender: TObject);
  procedure Timer1Timer(Sender: TObject);
  procedure btn_stopClick(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;
  
  var
  Form1: TForm1;
  proxys:Tstrings;
  temp:string;
  i:byte;
  implementation
  
  {$R *.dfm}
  
  procedure TForm1.btn_exitClick(Sender: TObject);
  begin
  application.Terminate
  end;
  
  Procedure EnableProxy(const Server: String);
  var
  Reg : TRegistry;
  begin
  Reg := TRegistry.Create;
  Reg.WriteBool('ProxyEnable',False);
  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',False);
  Reg.WriteString('ProxyServer',Server);
  Reg.WriteBool('ProxyEnable',True);
  Reg.CloseKey;
  Reg.Free;
  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;
  end;
  
  procedure TForm1.btn_startClick(Sender: TObject);
  begin
  i:=0;
  timer1.Enabled:=TRUE;
  end;
  
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  i:=i+1;
  proxys:=TStringList.Create;
  proxys.LoadFromFile('D:\proxys.txt');
  temp:=proxys.Strings[i];
  EnableProxy('http='+temp);
  lbl_now.Caption:='Jelenlegi proxy: '+temp;
  end;
  
  procedure TForm1.btn_stopClick(Sender: TObject);
  begin
  DisableProxy;
  timer1.enabled:=FALSE;
  end;
  
  end.

Új hozzászólás Aktív témák