Установление соединения

← →
Дима (2003-07-16 23:23) [0]

Хочу написать программу, которая считала бы время, проведённое в
Интернете.Как узнать момент установления и разрыва соединения? Или кто знает другой способ или программу подсчета времени?

← →
Юра (2003-07-17 20:55) [1]

function TestDialUp: Boolean;
var
Lib: HINST;
RasEnumConnections: TRasEnumConnections;
RasHangUp: TRasHangUp;
RasConn: TRasConn;
Code, Size, Connections: DWORD;
begin
Result := True;
try
Lib := LoadLibrary("rasapi32.dll");
try
if Lib = 0 then Abort;
RasEnumConnections := GetProcAddress(Lib, "RasEnumConnectionsA");
if not Assigned(@RasHangUp) then Abort;
FillChar(RasConn, SizeOf(RasConn), 0);
RasConn.Size := SizeOf(RasConn);
Code := RasEnumConnections(RasConn, Size, Connections);
result := ((Connections <> 1) or (Code <> 0));
finally
FreeLibrary(Lib);
end;
except
on E: EAbort do Result := False;
else raise;
end;
End;

← →
Юра (2003-07-17 20:56) [2]

TRasConn = record
Size: DWORD;
Handle: THandle;
Name: array [0..20] of AnsiChar;
end;

Установление соединения Найти похожие ветки