Получить список всех сетевых подключений

[dmitriegorovih]

Всем доброго времени суток!
Сколько не искал в интернете нашёл код лишь на C++.
Помогите плиз получить список всех сетевых подключений. Заранее Благодарен.

[Aliens_wolfs]

Вот держи, извиняюсь за внешний вид для примера писал, в этой простенькой программке когда запустишь в ListBox появятся все твои сетевые устройства, выбрав любое в ListBox можешь его откл. или вкл. также можно и другие устройства выводить меняя GUID устройства с помощью ComboBox. Для каких либо изменений или добавления устройств редактируй FunctSetupAPI.pas

[dmitriegorovih]

Спасибо, класно работает я как раз искал но именно сами имена получить бы ))

[Aliens_wolfs]

Имена в реестре в этом разделе

HKEY_LOCAL_MACHINE\SYSTEM\ControlSe t001\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}

Но сейчас посмотрю как с помошью SetupApi получить попробую в моей програмке сделать

Вот накидал, програмка показывает только устройства по имени ListBox Сделал другую програмку но для примера пойдет, Для сего тебе нужен этот список Сетевых адаптеров.
И почитай здесь про SetupApi http://gtsoftware18rus.3dn.ru/publ/u...dows/4-1-0-226

[dmitriegorovih]

Хм у меня не выводит имена в чем проблема?

[Aliens_wolfs]

В программе DeviceLan что я дал сделай исправление, выключи проверку устройства у тебя должны появится все имена, для того чтобы лишнее непоказывало, нужно правильно проверку делать.
В этом коде должен получить все имена

//Получаем список устройств в разделе
procedure DeviceList(DEVICE_GUID: TGUID; List: TStrings);
var
  DevInfoData: SP_DEVINFO_DATA;
  hDevInfo:  DWORD;
  I, DataT, Buffersize: DWORD;
  Buffer: PAnsiChar;
begin
  hDevInfo := SetupDiGetClassDevs(@DEVICE_GUID, nil, HWND(nil), DIGCF_PRESENT);
  try
    DevInfoData.cbSize := sizeof(SP_DEVINFO_DATA);
    I := 0;
    Buffersize := 500;
    GetMem(Buffer, Buffersize);
    FillChar(Buffer^, Buffersize, 0);
    try
      while SetupDiEnumDeviceInfo(hDevInfo, I, @DevInfoData) do
      begin
       // Здесь исправление
        // SetupDiGetDeviceRegistryProperty(hDevInfo, @DevInfoData,
        // SPDRP_HARDWAREID, @DataT, PByte(Buffer), Buffersize, nil);
        // if Pos('PCI\VEN',Buffer)<>0 then
       // begin 
           SetupDiGetDeviceRegistryProperty(hDevInfo, @DevInfoData,
        SPDRP_MFG, @DataT, PByte(Buffer), Buffersize, nil);
        List.add(Buffer);
       // end;
        Inc(I);
      end;
    finally
      FreeMem(Buffer);
    end;
  finally
    SetupDiDestroyDeviceInfoList(hDevInfo);
  end;
end;

А затем попробуй это, тут уже проверка по устройству и должен выдать только устройство

//Получаем список устройств в разделе
procedure DeviceList(DEVICE_GUID: TGUID; List: TStrings);
var
  DevInfoData: SP_DEVINFO_DATA;
  hDevInfo:  DWORD;
  I, DataT, Buffersize: DWORD;
  Buffer: PAnsiChar;
begin
  hDevInfo := SetupDiGetClassDevs(@DEVICE_GUID, nil, HWND(nil), DIGCF_PRESENT);
  try
    DevInfoData.cbSize := sizeof(SP_DEVINFO_DATA);
    I := 0;
    Buffersize := 500;
    GetMem(Buffer, Buffersize);
    FillChar(Buffer^, Buffersize, 0);
    try
      while SetupDiEnumDeviceInfo(hDevInfo, I, @DevInfoData) do
      begin
        SetupDiGetDeviceRegistryProperty(hDevInfo, @DevInfoData,
        SPDRP_ENUMERATOR_NAME, @DataT, PByte(Buffer), Buffersize, nil);
        if Pos('PCI',Buffer)<>0 then
        begin
           SetupDiGetDeviceRegistryProperty(hDevInfo, @DevInfoData,
          SPDRP_MFG, @DataT, PByte(Buffer), Buffersize, nil);
        List.add(Buffer);
        end;
        Inc(I);
      end;
    finally
      FreeMem(Buffer);
    end;
  finally
    SetupDiDestroyDeviceInfoList(hDevInfo);
  end;
end;

[dmitriegorovih]

не эти имена мне нужны, а те что в 1# посту ну "Beeline, Подключение по локальной сети 4,Подключение по локальной сети,VirtualBox Host-Only Network"

[Aliens_wolfs]

Все что тебе нужно находится в этом разделе реестра HKEY_LOCAL_MACHINE\SYSTEM\ControlSe t001\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}
В общем вся инфа в реестре
Попробуем снять эту инфу

[Aliens_wolfs]

Еще одну программку сделал для чтения сетевых устройств, без SetupApi. В ней убери что тебе ненужно, там расписано что к чему. Имена я только два смог найти, а насчет имени типа Beeline я на 3G модеме пробовал в реестре не нашел, где то в памяти наверное находится когда сетевой адаптер подключен к провайдеру.

[dmitriegorovih]

Сообщение от Aliens_wolfs

Еще одну программку сделал для чтения сетевых устройств, без SetupApi. В ней убери что тебе ненужно, там расписано что к чему. Имена я только два смог найти, а насчет имени типа Beeline я на 3G модеме пробовал в реестре не нашел, где то в памяти наверное находится когда сетевой адаптер подключен к провайдеру.

спасибо огромнейшие кстати я нашел как вывести Beeline