functionGetBiosDate1: 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)