Jak uzyskać informacje o Biosie

code

2003-04-20 14:49:44
2003-04-20 14:49:44
4 komentarze
1137 odsłon

Umieszczamy na formie komponent Label (zakładka Standard) i uzupełniamy poniższym kodem dowolną procedurę.

var
      BiosInfo: PChar;
begin
      BiosInfo := PChar(Ptr(Info));
      Label1.Caption := BiosInfo;
end;

Przy czym 'Info' przyjmuje jedną z poniższych wartości:
$FE061 - Nazwa i wersja Biosu,
$FE091 - Nazwa producenta Biosu,
$FFFF5 - Pewna ciekawa data,
$FEC71 - Inne mniej ciekawe informacje ;)

Kod działa idealnie pod Windows 9x, ale pod Windows NT/2000/XP
zawiesza sie podając błąd adresowania.

Sprzęt

4 komentarzy

Rookie One
• 2004-10-11 21:59

Mozna jeszcze zdobyc inne ciekawe informacje, np. producenta plyty glownej - $F0872, typ gniazda procesora i samego procesora - $F08D6, $F08E3. :D Sa jeszcze inne rzeczy - skolujcie sobie program ROM BIOS Explorer i sami poszukajcie. :P