При помощи данной функции, написанной на 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 предлагает мини атс по разумным ценам.