Добрый день, уважаемые коллеги.

Не могу получить дату BIOS под VISTA
под XP все работает...

Пример кода:
Function GetBIOSInfo : String;
Var
  Registryv        : TRegistry;
  RegPath         : String;
  InfoTMP          : String;
Begin
  Try
    RegPath := '\HARDWARE\DESCRIPTION\System';
    registryv:=tregistry.Create;
    registryv.rootkey:=HKEY_LOCAL_MACHINE;
    try
      registryv.Openkey(RegPath,false);
      InfoTMP := RegistryV.ReadString('SystemBiosDate');
      ShowMessage('BIOS Date: ' + InfoTMP);
    except
    end;
  Finally
    Registryv.Free;
  End;
 Result := InfoTMP;
End;

------------------
... C уважением, Соболев Андрей.

1) в висте этот ключ есть?
2) если да, то в конструктор tregistry.Create передавай права KEY_READ

1 - Да
2 - УРА! Все оказывается просто.
...
   registryv:=tregistry.Create(Key_Read); 
...
И сразу все заработало!

P.S. - а то я уже думал что подписывать код надо...

СПАСИБО!!!
-------------------------------------------
... C уважением, Андрей.