Запущен ли сервер удаленного доступа (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