Содержание материала

В windows не получится прочитать значения прямо из BIOS, однако, ничего не мешает нам считать нужные значения из реестра.

Code:

procedure TBIOSInfo.GetRegInfoWinNT;

var

Registryv       : TRegistry;

RegPath         : string;

sl              : TStrings;

begin

Params.Clear;

 

RegPath := '\HARDWARE\DESCRIPTION\System';

registryv:=tregistry.Create;

registryv.rootkey:=HKEY_LOCAL_MACHINE;

sl := nil;

try

   registryv.Openkey(RegPath,false);

   ShowMessage('BIOS Date: '+RegistryV.ReadString('SystemBiosDate'));

   sl := ReadMultirowKey(RegistryV,'SystemBiosVersion');

   ShowMessage('BIOS Version: '+sl.Text);

except

end;

Registryv.Free;

if Assigned(sl) then sl.Free;

end;

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить