господа, программа "диспетчер устройств" на delphi

[бедный_студент]

её нужно доработать таким образом чтобы она отображала дополнительные данные у сетевых карт в таблице. причем с помощью винапи. нужна информация типа шина прерывание айпи шлюз мак-адрес и тп. помогите пожалуйста

прога в архиве арх пк.zip

в пример добавил другую прогу где все намного сложнее но там часть инфы дается нужной

ПС. в конце последней функции можно написать условие, если нод такой то - нетворк девайсес, то в таблицу дописывается доп инфо про сетевуху через отдельную функцию. только я слабо себе это представляю

если знаете какие то отдельные функции на вин апи для определения её параметров - говорите

[бедный_студент]

неужели настолькр безнадежная задача ?

[бедный_студент]

Получение MAC адреса компьютера

реклама в интернет
Для того, чтобы этот код работал, необходимо включить в проект юнит NB30. Простой вызов функции GetMACAddress возвращает адрес первого установленного сетевого адаптера.

Данный пример был составлен на основе статьи на сайте Borland:
http://community.borland.com/article...,26040,00.html

uses
  NB30;

function GetAdapterInfo(Lana: Char): string;
var
  Adapter: TAdapterStatus;
  NCB: TNCB;
begin
  FillChar(NCB, SizeOf(NCB), 0);
  NCB.ncb_command := Char(NCBRESET);
  NCB.ncb_lana_num := Lana;
  if Netbios(@NCB) <> Char(NRC_GOODRET) then
  begin
    Result := 'mac not found';
    Exit;
  end;

  FillChar(NCB, SizeOf(NCB), 0);
  NCB.ncb_command := Char(NCBASTAT);
  NCB.ncb_lana_num := Lana;
  NCB.ncb_callname := '*';

  FillChar(Adapter, SizeOf(Adapter), 0);
  NCB.ncb_buffer := @Adapter;
  NCB.ncb_length := SizeOf(Adapter);
  if Netbios(@NCB) <> Char(NRC_GOODRET) then
  begin
    Result := 'mac not found';
    Exit;
  end;
  Result :=
  IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' +
  IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' +
  IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' +
  IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' +
  IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' +
  IntToHex(Byte(Adapter.adapter_address[5]), 2);
end;

function GetMACAddress: string;
var
  AdapterList: TLanaEnum;
  NCB: TNCB;
begin
  FillChar(NCB, SizeOf(NCB), 0);
  NCB.ncb_command := Char(NCBENUM);
  NCB.ncb_buffer := @AdapterList;
  NCB.ncb_length := SizeOf(AdapterList);
  Netbios(@NCB);
  if Byte(AdapterList.length) > 0 then
    Result := GetAdapterInfo(AdapterList.lana[0])
  else
    Result := 'mac not found';
end;

http://www.delphirus.com/modules.php...wpage&pid=1069


как бы еще снять ид сетевухи и узнать её параметры

[lkz_07]

А как сделать, чтобы программа искала только одно какое нибудь устройство?

[lkz_07]

А как сделать, чтобы программа искала только одно какое нибудь устройство?