Запущен ли сервер удаленного доступа (RAS)

Материал из DRKB


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;


Source: vlata.com
ID: 03327