trouver la ROM du BIOS Date dans un format de chaîne de caractères
l'auteur: JOSE ALMEIDA
{ Obtient la ROM du BIOS date en une chaîne de caractères ASCII.
une Partie du dispositif heartware Toolkit v2.00 (HTelse.PAS) de Turbo Pascal.
Auteur: Jose Almeida. P. O. Box 4185. 1504 Lisboa Codex. Portugal.
je peux également être atteint à la RIME réseau, site ->TIB ou #5314.
se Sentir complètement libre d'utiliser ce code source dans la manière que vous voulez, et, si
vous le faites, s'il vous plaît n' & #39 t oublier de mentionner mon nom, et, me donner, et moi Swag
bon crédits. }
la FONCTION ROM_Bios_Date : String8
{ DESCRIPTION:
Obtient le BIOS ROM date en une chaîne de caractères ASCII.
EXEMPLE d'APPEL:
S := ROM_Bios_Date
RENVOIE:
par exemple,, & #39 06/10/85 & #39 .
REMARQUES:
les versions Ultérieures de la Compaq ont cette date de sortie décalée par 1 octet,
pour commencer à F000:FFF6h }
var
Tmp : String8
BEGIN { ROM_Bios_Date }
FillChar(Tmp,0,8)
Tmp[0] := Chr(8)
Move(Mem[$F000:$FFF5]Tmp[1],8)
ROM_Bios_Date := Tmp
END { ROM_Bios_Date }
Rom bios date
Rom bios date : Plusieurs milliers de conseils pour vous faciliter la vie.
trouver la ROM du BIOS Date dans un format de chaîne de caracteres
l'auteur: JOSE ALMEIDA
{ Obtient la ROM du BIOS date en une chaîne de caracteres ASCII.
une Partie du dispositif heartware Toolkit v2.00 (HTelse.PAS) de Turbo Pascal.
Auteur: Jose Almeida. P. O. Box 4185. 1504 Lisboa Codex. Portugal.
je peux egalement etre atteint a la RIME reseau, site ->TIB ou #5314.
se Sentir completement libre d'utiliser ce code source dans la maniere que vous voulez, et, si
vous le faites, s'il vous plaît n' & #39 t oublier de mentionner mon nom, et, me donner, et moi Swag
bon credits. }
la FONCTION ROM_Bios_Date : String8
{ DESCRIPTION:
Obtient le BIOS ROM date en une chaîne de caracteres ASCII.
EXEMPLE d'APPEL:
S := ROM_Bios_Date
RENVOIE:
par exemple,, & #39 06/10/85 & #39 .
REMARQUES:
les versions Ulterieures de la Compaq ont cette date de sortie decalee par 1 octet,
pour commencer a F000:FFF6h }
var
Tmp : String8
BEGIN { ROM_Bios_Date }
FillChar(Tmp,0,8)
Tmp[0] := Chr(8)
Move(Mem[$F000:$FFF5]Tmp[1],8)
ROM_Bios_Date := Tmp
END { ROM_Bios_Date }
