информация о сетевом подключении
inex © (2007-06-08 15:17:00)
Добрый день, уважаемые форумчане!
Подскажите, пожалуйста, можно ли как-то средствами WinAPI
узнать информацию о сетевом подключение. В первую очередь
интересует наименование сетевой карты и скорость подключения.
Заранее большое спасибо.
Rouse_ (2007-06-08 17:42:00) [1]
Что-то такое в запасниках нашлось:
function GetNetworkConnections: String;
var
ByteWritten, NeedBytes: DWORD;
lpConnections, lpTmpCon: PRasEntryName;
dwError: DWORD;
I: Integer;
begin
Result := '';
ByteWritten := 0;
NeedBytes := SizeOf(TRasEntryName);
lpConnections := HeapAlloc(GetProcessHeap,
HEAP_ZERO_MEMORY, NeedBytes);
if lpConnections <> nil then
try
lpConnections^.dwSize := NeedBytes;
dwError := RasEnumEntries(nil, nil,
lpConnections, @NeedBytes, @ByteWritten);
if dwError = ERROR_BUFFER_TOO_SMALL then
begin
lpConnections :=
HeapReAlloc(GetProcessHeap, HEAP_ZERO_MEMORY,
lpConnections, NeedBytes);
dwError := RasEnumEntries(nil, nil,
lpConnections, @NeedBytes, @ByteWritten);
end;
if dwError = ERROR_SUCCESS then
if ByteWritten <> 0 then
begin
lpTmpCon := lpConnections;
for I := 0 to ByteWritten - 1 do
begin
Result := Result + '
- ' + lpTmpCon^.szEntryName + sLineBreak;
Inc(lpTmpCon);
end;
end;
finally
HeapFree(GetProcessHeap, 0, lpConnections);
end;
end;
Наверх 
ЧАТ |
Орешник |
|
