Форум: "Система";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

Дата BIOS   Найти похожие ветки 

← →
arous   (2003-08-31 00:20) [0]

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

---

← →
arous   (2003-08-31 19:46) [1]

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

---

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

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

---

← →
Rouse_   (2003-08-31 20:12) [3]

Для НТ

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;

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

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.049 c