[T-dayne]

Нужно узнать имя первого подраздела в реестре. т.к. у каждого юзера это имя уникальное, знать его точно не могу.
Слышал есть функция RegEnumKey но ничего с ней непонятно
Код:

PHP код:

r:=treginifile.create();
r.RootKey:=HKEY_LOCAL_MACHINE;
r.OpenKey('system', true);
r.OpenKey('currentcontrolset', true);
r.OpenKey('enum', true);
r.OpenKey('pci', true); 


как узнать имя первого подраздела в разделе PCI?

[Ultras]

когда то делал так лет 7 назад:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var   Reg: TRegistry;   Keys: TStringList; begin   Reg := TRegistry.Create;   Keys := TStringList.Create;   Reg.RootKey := HKEY_LOCAL_MACHINE;   Reg.OpenKey('\SYSTEM\CurrentControlSet\Enum\PCI\',False);   Reg.GetKeyNames(Keys);   Reg.CloseKey;     ShowMessage(Keys[0]); //первый элемент   Keys.Free; end;

помоему так...

[s0Creator]

Да я тоже когда то получал список так.
Только столкнулся с небольшой ошибкой с файле Registry.pas
( точнее приминяемая АПИшная функция RegQueryInfoKey иногда выдавала MaxSubKeyLen на 1-2 байта меньше )
из-за которой список некоторые имена подключей выдавал неправильные.
Недавно посмотрел в Delphi 2010 тоже не исправили.

После небольшой правки, все стало работать. Файл прилагаю, бросать в папку с проектом.

[T-dayne]

Ultras
При компиляции пишет, List index out of bonds (0) судя по всему где-то есть опечатка с стринглистом.

[s0Creator]

Похоже список у тебя пустой или ключ не открылся.
Попробуй

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

procedure TForm1.FormCreate(Sender: TObject); var   i, k: Integer;   DReg: TRegistry;   DestSubKeys: TStringList; begin   DReg := TRegistry.Create(KEY_READ);   try     DReg.RootKey := HKEY_LOCAL_MACHINE;     DestSubKeys := TStringList.Create;     try       if DReg.OpenKeyReadOnly('полный путь ключа') then       begin         DReg.GetKeyNames(DestSubKeys);         if DestSubKeys.Count = 0 then           ShowMessage('Список подключей пуст')           else             for i := 0 to DestSubKeys.Count - 1 do               Memo1.Lines.Add(DestSubKeys[i]);       end       else         ShowMessage('Не удалось открыть ключ');     finally       DestSubKeys.Free;     end;   finally     DReg.Free;   end;   end;

[Ultras]

T-dayne, если так и не смогли разобраться, можете стукнуть в аську 815979 или 418048483, помогу, чем смогу

[T-dayne]

s0Creator Отлично, заработало. спасибо
Ultras Вам большое спасибо за готовность помочь.

[T-dayne]

парни, снова выручайте.

PHP код:

function TForm1.hardware: string;
var
  DestSubKeys: TStringList;
  tmp:string;
begin
  DReg := TReginifile.Create();
  try
    DReg.RootKey := HKEY_LOCAL_MACHINE;
    DestSubKeys := TStringList.Create;
    try
      DReg.OpenKeyReadOnly('\SYSTEM\CurrentControlSet\Enum\PCI\');
        DReg.GetKeyNames(DestSubKeys);
        DReg.OpenKeyReadOnly('SYSTEM\CurrentControlSet\Enum\PCI\'+destsubkeys[0]);
        tmp:='SYSTEM\CurrentControlSet\Enum\PCI\'+destsubkeys[0];
        DestSubKeys.Free;
        DReg.GetKeyNames(DestSubKeys);
        DReg.OpenKeyReadOnly(tmp+destsubkeys[0]);
        result:=DReg.ReadString('','devicedesc', 'None');
      finally
      DestSubKeys.Free;
    end;
  finally
    DReg.Free;
  end; 


где ошибка? функция должна вернуть имя девайса, при ее запуске фатальная ошибка...

[s0Creator]

У Тебя 2 раза DestSubKeys.Free;
В место первого надо DestSubKeys.Clear;

[s0Creator]

И этого я совсем не понял
'SYSTEMCurrentControlSetEnumPCI'+destsubkeys[0]

А где '\' ?

Кстати подключ, вроде можно открывать просто
DReg.OpenKeyReadOnly(destsubkeys[0]);