Jak uzyskać informacje o Biosie

code

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.

4 komentarzy

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

mozna uzyc ZLPortIO.dll i bedzie dzialalo pod xp i 2k..

Bo w XP nie ma bezpośredniego dostępu do portów, już o tym było wiele razy na forum...

Wszystko pewnie dobrze, ale na XP łapie błędy po wywołaniu procedurki...