FAQ » Sprzęt

Jak uzyskać informacje o Biosie

  • 4 komentarze
  • 934 odsłony
  • Oceń ten tekst jako pierwszy
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 komentarze

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

Vrok 2003-06-25 13:06

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

P.P.P. 2003-04-25 10:32

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

Michal.Zawadzki 2003-04-20 16:57

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