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

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

Как определить дату БИОС?


Никита1990 ©   (2011-12-01 00:04:00) 

Здравствуйте форумчане! У меня Win7 ultima, хочу из проги узнать дату БИОС но все способы которые погуглив нашел почему-то непашут :( Один лишь рабочий через реестр,но необходим админдоступ при запуске проги. Есть еще какие-то способы для Семерки(чтобы не нужен был админдоступ)?


Gu   (2011-12-01 19:29:00) [1]

кстати для новых систем там же в ключике есть новый рздел, там для биос отдельно отведен блок, откройте в вин7 regedit с ключиком HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS - там и название и прошивка и дата в длинном формате


Gu   (2011-12-01 19:17:00) [2]

обновляется и после каждой перезагрузки и после новой прошивки биос.
получить из реестра - самый простой способ. можно еще через wmi вытскивать, там ручками уже не залезть. и вопрос не об этом был.


Anatoly Podgoretsky   (2011-12-01 13:28:00) [3]

> Gu  (01.12.2011 13:12:10)  [10]

Дата в реестре не обновляется, и наоборот ручками лекго заменяется на
нужную.


Gu   (2011-12-01 13:12:00) [4]

++ учтите еще, что в реестре дата хранится в виде строки (которую и возвращает функция), а дата в этой строке - в буржуйском формате mm.dd.yy и вместо точек используется "/". так что для перевода в нормальную дату это надо будет учитывать


Никита1990   (2011-12-01 13:05:00) [5]

Всем спасибо! Буду пробовать...


Gu   (2011-12-01 12:58:00) [6]

++ в uses добавить модуль registry


Gu   (2011-12-01 12:56:00) [7]

старые методы определения на последних версиях дельфей и виндах  не фурычат, я думаю, что сейчс это можно сделать только опросив винду

Function GuGetBiosDate:String;
Begin
with TRegistry.Create Do Try RootKey:=HKEY_LOCAL_MACHINE;
If OpenKeyReadOnly('HARDWARE\DESCRIPTION\System')
Then Result:=ReadString('SystemBiosDate') Else Result:=''; Finally Free;End;
End;


Anatoly Podgoretsky   (2011-12-01 12:08:00) [8]

> Inovet  (01.12.2011 10:08:04)  [4]

Обновление БИОС не гаратнтирует смену даты, поскольку это дата разработки, а
не обновления.


И. Павел   (2011-12-01 10:15:00) [9]

Вот 3 способа (и один под Win95).
http://delphisite.ru/faq/kak-poluchit-datu-bios


Inovet   (2011-12-01 10:08:00) [10]

> [3] Anatoly Podgoretsky ©   (01.12.11 10:01)
> она не отличается на соседнем компьютера,
> из одной партии.

Точнее с одинаковой материнской платой, и обновлённым БИОС.


Anatoly Podgoretsky   (2011-12-01 10:01:00) [11]

> Dimka Maslov  (01.12.2011 09:32:01)  [1]

Дата БИОС для защиты не пригодна, она не отличается на соседнем компьютера,
из одной партии.


Никита1990   (2011-12-01 09:43:00) [12]

Например?


Dimka Maslov   (2011-12-01 09:32:00) [13]

Для привязки программы к аппаратуре компьютера (единственное для чего может понадобиться дата биоса) можно использовать множество других способов, не требующих прав администратора.


Наверх

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