Registry Keys Used by ASTA

AstaRegKey = 'HKEY_CURRENT_USER\SOFTWARE\Asta'.

IP address as stored from the FastConnectCombo:

  HKEY_CURRENT_USER\AstaRegKey\Misc\IPforTesting

To Disable/Enable AutoDial

Put the Autodial here, a 0 or 1.

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet

Settings\EnableAutodial

procedure DisEnableAutoDial(bDisable: boolean);

var

  Reg: TRegistry;

begin

  Reg := TRegistry.Create;

  try

    Reg.RootKey := HKEY_CURRENT_USER;

    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings',

     false) then //False = don't create if not found!

      begin

        if bDisable then

          Reg.RenameValue('EnableAutodial','EnableAutodial_XXX_Temp')

        else

          Reg.RenameValue('EnableAutodial_XXX_Temp','EnableAutodial');

        Reg.CloseKey;

      end;

  finally

    Reg.Free;

  end;

end;