Sleepwalker
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ты уж разберись, под какой ты виндой... все после NT доступ к БИОС блочат...
В NT/2000/XP не получится прочитать значения прямо из BIOS, однако, ничего не мешает нам считать нужные значения из реестра.
в 9х:
procedure TForm1.Button1Click(Sender: TObject);
begin
with Memo1.Lines do
begin
Add('MainBoardBiosName: '+string(Pchar(Ptr($FE061))));
Add('MainBoardBiosCopyRight: '+string(Pchar(Ptr($FE091))));
Add('MainBoardBiosDate: '+string(Pchar(Ptr($FFFF5))));
Add('MainBoardBiosSerialNo: '+string(Pchar(Ptr($FEC71))));
end;
end;
сразу скажу - не проверял 
а если действительно под 2000-ой надо вытащить - то только драйвер на нулевом кольце...
----------
...или я ничего не понимаю в этой жизни... или понимаю слишком хорошо... |
|
