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

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

Дата BIOS

arous ©   (2003-08-31 00:20:00) 

А вот как узнать дату изготовления BIOS?

---

Rouse_   (2003-08-31 20:12:00) [1]

Для НТ

with TRegistry.Create do
try RootKey := HKEY_LOCAL_MACHINE;
if OpenKeyReadOnly ("HARDWARE\DESCRIPTION\System")
then Result := ReadString("SystemBiosDate")
finally Free;
end;

Для 9х

var p : pointer;
s : string[255];
begin
try
s[0] := #8;
p := Pointer($0FFFF5);
Move(p^,s[1],8);
Result := copy(s,1,2) + "/" + copy(s,4,2) + "/" +copy (s,7,2);
except Result := "XX.XX.XXXX";
end;

Желаю успехов

---

Anatoly Podgoretsky   (2003-08-31 20:08:00) [2]

Ты даже ОС не указываешь, но есть готовые продукты.

---

arous   (2003-08-31 19:46:00) [3]

А хоть что-нибудь можно узнать о BIOS"e?

---

Наверх