- Код: Выделить всё
Const SystemBiosVersion = &HFE061
Const SystemBiosExtraInfo = &HFEC71
'version
biosVersion = String(StringLen(SystemBiosVersion), Chr(0))
CopyString biosVersion, SystemBiosVersion
biosVersion = Replace(bios.sVersion, Chr(0), "")
'extra info
biosExtraInfo = String(StringLen(SystemBiosExtraInfo), Chr(0))
CopyString biosExtraInfo, SystemBiosExtraInfo
biosExtraInfo = Replace(biosExtraInfo, Chr(0), "")
но на XP код не работаетю Может есть другой способ?Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!??7
