Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.138.200.66] |
|
Сообщ.
#1
,
|
|
|
При загрузке компа, прога POST выдает уникальный идентификатор компа снизу на экране. в левом углу. Он достаточно длинный.. Как его получить программно?
|
Сообщ.
#2
,
|
|
|
У меня есть утилитка biosid размером порядка 1к, когда меня интересовал этот вопрос года полтора назад, я ее дизассемблировал и разбирался что к чему. Сейчас, конечно, уже не помню, но саму утилитку и более-менее причесанный ее исходник могу прислать...
|
Сообщ.
#3
,
|
|
|
Присылай на <IpLilo@list.ru>/ Буду рад дизасмить это дело =)
|
Сообщ.
#4
,
|
|
|
Вот тебе на Pascal'е:
procedure ShowBios; { From HDDSPEED : APPWIN.PAS } var I : Integer; S : String; function GetBIOSString(Seg, Ofs: Word): String; var P : ^String; i : Byte; S : String; begin GetBIOSString := ''; P := Ptr(Seg,Ofs); i := 1; While P^[i] >= ' ' do Inc(i); S[0] := Char(i-1); Move(P^[1],S[1],i-1); GetBIOSString := S; end; function IsAMI : Boolean; var P : ^String; i : Word; S : String; begin P := Ptr($F000,$E000); S[0] := #255; Move(P^,S[1], 255); IsAMI := Pos('American Megatrends', S) <> 0; end; begin If IsAMI Then S := '© American Megatrends Inc.' Else S := GetBIOSString($F000,$E060); WriteLn('> BIOS: '+S); If Pos('Award', S) <> 0 Then begin WriteLn(' - Version : '+GetBIOSString($F000,$E0C0)); WriteLn(' - ID : '+GetBIOSString($F000,$EC70)); end; end; begin ShowBios end. |