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.
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...