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

Оформил: DeeCo

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)