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



function GetBIOSDate: string;
{получение даты BIOS в Win95}
var
s: array[0..7] of char;
p: pchar;
begin
p := @s;
asm
push esi
push edi
push ecx
mov esi,$0ffff5
mov edi,p
mov cx,8
@@1:mov al,[esi]
mov [edi],al
inc edi
inc esi
loop @@1
pop ecx
pop edi
pop esi
end;
setstring(result, s, 8);
end;

Далее: Прочитать ROM-BIOS »»