| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Дима ©   (2003-07-16 23:23:00) 

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

---

Юра   (2003-07-17 20:56:00) [1]

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

---

Юра   (2003-07-17 20:55:00) [2]

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;

---

Наверх