Функция определяющая запущен ли сервер удаленного доступа (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;
|
|
