Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как узнать дату выпуска BIOS? [D6, Win2k]


Snake ©   (2001-12-19 12:50:00) 

Вопрос, конечно, глупый и избитый, но все же он он у меня имеется :)


SergVlad   (2001-12-19 13:47:00) [1]

Если под Win то можно через реестр и TRegistry

R.RootKey:=HKEY_LOCAL_MACHINE;
SubKey для Win98
S = "\Enum\Root\";
Строки
"BIOSVersion"
"BIOSDate"

SubKey для NT
S: string = "Hardware\description\system";
BinaryData
"SystemBiosVersion"
Date
"SystemBiosDate"


gek   (2001-12-19 13:37:00) [2]

ловите
try

все fM - string

fMainBoardBiosName := String(Pchar(Ptr($FE061)));
fMainBoardBiosCopyright := String(Pchar(Ptr($FE091)));
fMainBoardBiosDate := String(Pchar(Ptr($FFFF5)));
fMainBoardBiosSerialNo := String(Pchar(Ptr($FEC71)));
except
fMainBoardBiosName := "Unsupported";
fMainBoardBiosCopyright := "Unsupported";
fMainBoardBiosDate := "Unsupported";
fMainBoardBiosSerialNo := "Unsupported";
end;


Delphimun   (2001-12-19 12:59:00) [3]

Присоединяюсь к вопросу:
И как узнать версию Bios-а


Наверх

Титульная страница Поиск, карта сайта Написать письмо