скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Как получить все Dial-Up соединения




Один пpогpаммеp пpишел в гости к дpугому. Сидят, пиво попивают. Тут на кухню заваливает огpомный сеpый котяpа.
- Это мой кот. Зовут Зухель.
- Почему Зухель?
- Смотpи. - беpет веник, тычет в кота. - Зухель! Коннект!
(Кот): - Шшшшшшшшш...

Способ 1 - из реестра:


uses Registry;

function DUNGetConnections(out 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
    Result := False;
  Reg.Free;
end;

Способ 2 - через RASApi:

Для этого воспользуемся функцией Use RASEnumConnections.

Далее можно определить состояние каждого соединения при помощи RASGetConnectStatus.

Так же можно использовать RASEnumEntries для получения всех сервисов из определённой телефонной книжки.

Толька для этого потребуется преобразовать заголовочный файл RAS.h в эквивалент Delphi.






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook