The code here simply set EnableProxy property to checked on Control Panel like below
The below is the actual code in Delphi
Code Block |
---|
language | delphi |
---|
title | enable_proxy.pas |
---|
|
uses System.Win.Registry;
procedure EnableProxy;
var
myReg: TRegistry;
begin
myReg := TRegistry.Create( KEY_SET_VALUE);
try
myReg.RootKey := HKEY_CURRENT_USER; // or HKEY_LOCAL_MACHINE
if myReg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings\', true) then
try
myReg.WriteInteger('ProxyEnable', $00000001);
finally
myReg.CloseKey;
end;
finally
myReg.Free;
end;
Close;
end;
|
View file |
---|
name | IPorxyAutoReset.zip |
---|
height | 250 |
---|
|
View file |
---|
name | IPorxyAutoReset_src.zip |
---|
height | 250 |
---|
|