Proxy Settings veranderen in Internet Explorer

Thread View: be.comp.programming

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Anton Tue, 15 Jun 2004 16:35

#2415

Author: Anton
Date: Tue, 15 Jun 2004 16:35

25 lines
1876 bytes

Ik wil met een Delphi programmaatje in Internet Explorer de Lan settings
aanpassen, namelijk de keuze maken als je al dan niet met een proxy server
wil werken ..
Je kan dit doen door deze waarde :
Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable'
in het register even op 0 of 1 te zetten

Vraag is : met welke Delphi code kan je dit doen ?? met onderstaande code
zou je die waarde (0 of 1) alvast moeten kunnen lezen maar dit lukt niet,
wat is hier fout ???    dank bij voorbaat ...


var Reg : TRegistry;
begin
     Reg := TRegistry.Create;
     With reg do
     begin
          RootKey := HKEY_CURRENT_USER;
          OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet
Settings\ProxyEnable',False);
          Label1.Caption := ReadString('');
          CloseKey;
          Free;
     end;
end;

Re: Proxy Settings veranderen in Internet Explorer

#2416

Author: RP
Date: Tue, 15 Jun 2004 17:21

35 lines
2200 bytes

Anton wrote:

> Ik wil met een Delphi programmaatje in Internet Explorer de Lan settings
> aanpassen, namelijk de keuze maken als je al dan niet met een proxy server
> wil werken ..
> Je kan dit doen door deze waarde :
> Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable'
> in het register even op 0 of 1 te zetten
> 
> Vraag is : met welke Delphi code kan je dit doen ?? met onderstaande code
> zou je die waarde (0 of 1) alvast moeten kunnen lezen maar dit lukt niet,
> wat is hier fout ???    dank bij voorbaat ...
> 
> 
> var Reg : TRegistry;
> begin
>      Reg := TRegistry.Create;
>      With reg do
>      begin
>           RootKey := HKEY_CURRENT_USER;
>           OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet
> Settings\ProxyEnable',False);
>           Label1.Caption := ReadString('');
>           CloseKey;
>           Free;
>      end;
> end;
> 
> 

OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet 
Settings',False);
Label1.Caption := inttostr(ReadInteger('ProxyEnable'));

RP

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads