Получить дату BIOS

function
 GetBiosDate1: String
;
 var

    Buffer : Array
[0..8] Of
 Char;
    N : DWORD;
 begin

    ReadProcessMemory(GetCurrentProcess,
    Ptr($FFFF5),
    @Buffer,
    8,
    N);
    Buffer[8] := #0;
    result := StrPas(Buffer)
 end
;

 function
 GetBiosDate2: String
;
 begin

    result := string
(pchar(ptr($FFFF5)));
 end
;


 {Only for Win 95/98/ME) 

Другое по теме:

• Прочитать ROM-BIOS
• Получение серийного номера BIOS
• Как получить информацию о BIOS в Windows NT, 2000, XP