ネットワークの情報を取得するには？ (ID:35268)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

インターネットで調べてみると、
ネットワークの情報（ネットワークカードの製品名、ＩＰアドレス、サブネットマスク）を
取ってくるのに、レジストリからとってくるとあったので、
以下のように作ってみたのですが下記３番目の項目が動作しませんでした。
{}でかこまれたネームのフォルダにあるキーは取得できないのでしょうか？

１．◎ネットワークのカード数を取得
２．◎ネットワークカードの製品名を取得
３．×ＩＰアドレスとサブネットマスクを取得

procedure TForm1.Button1Click(Sender: TObject);
var
  i:       Integer;
  SList:   TStringList;
  MList:   TStringList;
  Reg:     TRegistry;
  KeyName: String;
  KeyStr:  String;
begin
  SList := TStringList.Create;
  MList := TStringList.Create;
  Reg		:= TRegistry.Create;
  try
    //１
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    KeyName     := '\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards';
    Reg.OpenKey(KeyName, false);
    Reg.GetKeyNames(SList);
    Reg.CloseKey;
    //２
    for i := 1 to SList.Count do begin
      Reg.OpenKey(KeyName + '\' + SList.Strings[i - 1], false);
      SList.Strings[i - 1] := Reg.ReadString('ServiceName') + '=' + Reg.ReadString('Description');
      Reg.CloseKey;
    end;
    //３
    for i := 1 to SList.Count do begin
      KeyStr := 'SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\' + SList.Strings[i - 1];
      Reg.OpenKey(KeyStr, false);
      MList.Add(SList.Values[SList.Names[i - 1]]	+ ',' +
                Reg.ReadString('IPAddress')       + ',' +
                Reg.ReadString('SubnetMask'));
      Reg.CloseKey;
    end;
  finally
    SList.Free;
    MList.Free;
    Reg.Free;
 end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る