Wie kann ich alle Netzwerkkarten mit Name Auslesen?

[maik1481]

Habe es nun so Versucht aber es geht nicht.

Delphi-Quellcode:

uses
 Registry;


Procedure search_for_Network_adapter;
var Reg          : TRegistry;
    P            : Pointer;
    i            : Integer;

begin
    Reg := TRegistry.Create;
    try
      Reg.RootKey := HKEY_LOCAL_MACHINE;
      Reg.OpenKeyReadOnly('SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\');
      form1.ComboBox1.Items.Add(IntToStr(Reg.ReadBinaryData('Descriptions', P^, i)));
    finally
      Reg.CloseKey;
      Reg.Free;
    end;
end;


procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  search_for_Network_adapter;
end;

end.

[edit=Christian Seehase]Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]