Запущен ли сервер удаленного доступа (RAS) |
Previous Top Next |
Запущен ли сервер удаленного доступа (RAS)
Code: |
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; |
Источник: vlata.com
©Drkb::03327