Využití

ponechávám opět na vaší fantazii. Můžete si třeba takto vytvořit zjednodušenou ochranu svých shareware aplikací (zdravíme Microsoft a Windows XP). :)
Stejně jako předchozí příklad ani tento vám bohužel nebude fungovat pod Windows 2000.
function BIOS(var jmeno,copyright,datum,serial:string):boolean;
begin
try
jmeno:= String(Pchar(Ptr($FE061)));
copyright := String(Pchar(Ptr($FE091)));
datum := String(Pchar(Ptr($FFFF5)));
serial := String(Pchar(Ptr($FEC71)));
Result:=true;
except
jmeno:='Nezjištěno';
copyright:='Nezjištěno';
datum :='Nezjištěno';
serial :='Nezjištěno';
Result:=false;
end;
end;