Új hozzászólás Aktív témák
-
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
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- ThinkPad (NEM IdeaPad)
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Sokat fogyaszt az AI, egyre több az adatközpont, kell az atomenergia
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Gumi és felni topik
- Étrend, diéta, dietetika
- Milyen légtisztítót vegyek?
- Delphi programozás
- AMD GPU-k jövője - amit tudni vélünk
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest