БОЛЬШОЙ FAQ ПО DELPHI



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


Включает Webmaster свой компьютер:
- Вот блин, что-то со счетчиком, уже третий раз "166"!
(Смотрит на системный блок).


 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ