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