Delphi disable/enable Internet Connexion

Hello Sir,

The code will enable and disable the internet connection whilst still allowing network access

The button1 code stores the existing proxy settings, then switches proxy server on and sets the proxy server to a non-existent server.

button2 code restores the proxy settings to the original.


add registry to the uses clause and then 2 buttons with this code

procedure TForm1.Button1Click(Sender: TObject);
var
  lReg: TRegistry;
begin
  lReg:=tRegistry.Create;
  try
    lReg.RootKey := HKEY_CURRENT_USER;
    if lReg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings',true) then
      begin
       //get current settings
       if lReg.ValueExists('ProxyEnable') then
       FEnabled:=lReg.ReadBool('ProxyEnable');
       if lReg.ValueExists('ProxyServer') then
       FProxy:=lReg.ReadString('ProxyServer');
       lReg.WriteBool('ProxyEnable',true);
       lReg.WriteString('ProxyServer','10.0.0.1:5555');
    end;
  finally
       FreeAndNil(lReg);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  lReg: TRegistry;
begin
  lReg:=tRegistry.Create;
  try
    lReg.RootKey := HKEY_CURRENT_USER;
    if lReg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings',true) then
    begin
      //save original settings
      lReg.WriteBool('ProxyEnable',FEnabled);
      lReg.WriteString('ProxyServer',FProxy);
    end;
  finally
     FreeAndNil(lReg);
  end;
end;

with regards,
padmaja.

saravananvg, if your going to just repeat the my code from a previous example don't just use a pointer

regards

Hello Sir,

  It is not the question of whose code it is. It is the question of whether we are able to solve a problem and how early we solve it. I pasted it because he need not waste time in opening the link and check for the right answer and then copy and paste the code. If you think that only the person who has already answered it previously should only answer, then I am sorry for copying your code. I actually found this code in my answered questions as I too answered this question and your code was accepted. I hope and think you understand why we are all here. Not for points, but for solving a problem if we alreay know it.

with regards,
padmaja.

Whilst I dont disagree with you in principle, it is polite to attribute, also since HillGroover had already pasted a link to exactly that PAQ I fail to see why you would repost it.

i can't say that i disagree either but as i had already linked to that same code i see posting it again pretty pointless.
i gave the link so yarek can look to see what the problem was in the paq as it may not be the exact same problem he needs to solve, and it also gives pcsentinel credit seeing as though he originally wrote the solution

yarek have you had any luck with this?

Regards
HillGroover