Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Работа с сетью / Функция определяющая запущен ли сервер удаленного доступа (RAS)

Функция определяющая запущен ли сервер удаленного доступа (RAS)

Function CheckRAS: boolean;
const MaxEntries = 100;
var
    BufSize   : Integer;
    NumEntries: Integer;
    Entries   : Array[1..MaxEntries] of TRasConn;
Begin
  Entries[1].dwSize := SizeOf(TRasConn);
  Bufsize:=SizeOf(TRasConn)*MaxEntries;
  FillChar(Stat, Sizeof(TRasConnStatus), 0);
  RasEnumConnections(@Entries[1], BufSize, NumEntries);
  if numentries > 0 then result:=true 
  else result:=false;
End;

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru