Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Получение даты BIOS под Vista

Автор: copyprof 1.4.2008, 14:44

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

Не могу получить дату 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 уважением, Соболев Андрей.

Автор: bems 1.4.2008, 17:57

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

Автор: copyprof 1.4.2008, 21:00

Цитата(bems @ 1.4.2008, 17:57)

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

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

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

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