Как получить имена всех сетевых подключений?

Delphi FAQ >> Интернет

При помощи данной функции, написанной на Delphi, можно вывести список удаленных сетевых подключений.

uses Registry;

function DUNGetConnections(OutList : TStrings) : 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;


Хотите поставить себе в офис программируемую телефонную станцию? Тогда вам будет интересно то, что wstd.ru предлагает мини атс по разумным ценам.