Реестр

[W0LF]

Здравствуйте, нужна ваша помошь, есть ветвь в реестре:

HKEY_LOCAL_MACHINE\SYSTEM\ControlSe t001\Enum\PCI

В ней есть несколько разделов, нужно совершить поиск по этой ветви и найти раздел который имеет строковый параметр со значением "Net" и вывести его адрес, допусти в Caption формы...

Просто без понятия как это проделать (именно поиск значения в ветви реестра).

[raxp]

W0LF, вам поможет этот тестовый пример...

[Alter]

Писал раньше, выводет все IP:

Procedure GetAllIP(Lst :TStrings);
Const
  Rt = HKEY_LOCAL_MACHINE; // Root
  SubItm = 'SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\';//под узел
var I,II :Integer;
    fLst :TStrings;
    Reg :TRegistry;
    S :String;
begin // выдать список всех IP машины
 Lst.Clear;
 Reg := TRegistry.Create;
 fLst := TStringList.Create;
 fLst.Clear;
  Try
 Lst.Add('localhost');  
 Reg.RootKey := Rt;
  // Cписок ключей
 If Reg.OpenKeyReadOnly(SubItm) then
 begin
  Reg.GetKeyNames(fLst);
  Reg.CloseKey;
 end;
  //Разбор ключей
 II := fLst.Count;
 If II>0 then
 For I:=0 to II-1 Do
 begin
  S := '';
    // открыть ключ с IP, для чтения
  If Reg.OpenKeyReadOnly(SubItm + fLst.Strings[I] + '\') then
  begin
     // IP
   If Reg.ValueExists('IPAddress') then
   begin // MultiString
     S := ReadMultirowKey(Reg, 'IPAddress').CommaText;
     S := Trim(S);
    If (S<>'0.0.0.0')And(S<>'') then
     Lst.Add(S);
    S := '';
   end;
     // DhcpIP
   If Reg.ValueExists('DhcpIPAddress') then
   begin // String
     S := Reg.ReadString('DhcpIPAddress');
     S := Trim(S);
    If (S<>'0.0.0.0')And(S<>'') then
     Lst.Add(S);
   end;  
    Reg.CloseKey;
  end;
 end;
  Finally
 Reg.Free;
 fLst.Free;
  End;
end;

function ReadMultirowKey(reg: TRegistry; Key: string): TStrings;
const
  bufsize = 100;
var
  i: integer;
  s1: string;
  sl: TStringList;
  bin: array[1..bufsize] of char;
begin 
    Result := nil;
  try
    sl := nil;
    sl := TStringList.Create;
    if not Assigned(reg) then
      raise Exception.Create('TRegistry object not assigned.');
    FillChar(bin, bufsize, #0);
    reg.ReadBinaryData(Key, bin, bufsize);
    i := 1;
    s1 := '';
    while i < bufsize do
    begin
      if ord(bin[i]) >= 32 then
        s1 := s1 + bin[i]
      else
      begin
        if Length(s1) > 0 then
        begin
          sl.Add(s1);
          s1 := '';
        end;
      end;
      inc(i);
    end;
    result := sl;
  except
    sl.Free;
    raise;
  end;
end;

Но вам может что из кода пригодиться, а так вам надо рекурсивно сканировать ветви. Получать список параметров, потом читать их значения. Ну и проверять ключи на вложеность, если она есть, рекурсивно сканировать этот ключ. Вроде ясно объяснил.