Retreive a list of the Dial-Up Connections

posted 31 Mar 2010, 11:18 by Delphi Basics
Dial-up Internet access is a form of Internet access that uses telephone lines. The user's computer or router uses an attached modem connected to a telephone line to dial into an Internet service provider's (ISP) node to establish a modem-to-modem link, which is then used to route Internet Protocol packets between the user's equipment and hosts.

Read more: http://en.wikipedia.org/wiki/Dial-up_Internet_access

Uses Registry;

Function DUGetConnections(OutList : TStringList) : Boolean;
var
 Reg : TRegistry;

begin
  OutList.Clear;
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\RemoteAccess\Profile', False) then
    begin
      Reg.GetKeyNames(OutList);
      Result := True;
     end
     else
     begin
       Result := False;
     end;
   Reg.Free;
end;
Comments