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