Få ROM BIOS Date i en streng format
bidragsyter: JOSE ALMEIDA product: {Får ROM BIOS-datoen i en ASCII streng. En del av Heartware Toolkit v2.00 (HTelse.PAS) for Turbo Pascal. Forfatter: Jose Almeida. P.O.Box 4185. 1504 Lisboa Codex. Portugal. Jeg kan også nås på RIME nettverk, site - > TIB eller # 5314. Føl deg helt gratis å bruke denne kildekoden på noen måte du vil, og hvis du gjør det, må du ikke glemme å nevne navnet mitt, og gi meg og swag de riktige studiepoeng. }
FUNKSJON ROM_Bios_Date: String8; {BESKRIVELSE: Får ROM BIOS-datoen i en ASCII streng. PRØVE CALL: S: = ROM_Bios_Date RETURNS: f.eks '06 /10/85 '. NB: Senere versjoner av Compaq har denne utgivelsesdatoen forskjøvet med en byte, for å starte på 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; SLUTT; {ROM_Bios_Date} Anmeldelser