[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; 


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