سریال بایوس

[Future]

سلام دوستان
چطوری سریال بایوس را بدست بیارم

[Touska]

function GetBiosInfoAsText: string;
var
p, q: pchar;
begin
q := nil;
p := PChar(Ptr($FE000));
repeat
if q <> nil then begin
if not (p^ in [#10, #13, #32..#126, #169, #184]) then begin
if (p^ = #0) and (p - q >= 8) then begin
Result := Result + TrimRight(String(q)) + #13#10;
end;
q := nil;
end;
end else
if p^ in [#33..#126, #169, #184] then
q := p;
inc(p);
until p > PChar(Ptr($FFFFF));
Result := TrimRight(Result);
end;

[ali_abbasi22145]

سلام
با کامپوننت MiTeC System Information به راحتی.

[polpolpolpol]

کد بالا در این خط بعد از اجرا با خطا متوقف میشه
if p^ in [#33..#126, #169, #184] then
لطفا کمک کنید

[vcldeveloper]

کد بالا در این خط بعد از اجرا با خطا متوقف میشه
اون کد فقط بدرد ویندوزهای 9x می خورد، در ویندوزهای NT, 2000, XP و بالاتر، این کد عمل نخواهد کرد، چون دسترسی مستقیم به حافظه وجود نداره.