H
hhaayy2002
Unregistered / Unconfirmed
GUEST, unregistred user!
写一个程序，需要得到BIOS日期，但用如下方式怎么也不成。
function tform1.GetBiosDate1: String;
var
Buffer1: array[0..8] of char;
N: DWORD;
begin
ReadProcessMemory(GetCurrentProcess(),pointer($FFFF5),@Buffer1,8,N)
Buffer1[ 8] := #0;
result := strpas(Buffer1);
end;
这个似乎是比较通用的形式，但就是不行，老是显示299错误，也就是内存读取不完全。哪位大侠做过这种，多谢、多谢
function tform1.GetBiosDate1: String;
var
Buffer1: array[0..8] of char;
N: DWORD;
begin
ReadProcessMemory(GetCurrentProcess(),pointer($FFFF5),@Buffer1,8,N)
Buffer1[ 8] := #0;
result := strpas(Buffer1);
end;
这个似乎是比较通用的形式，但就是不行，老是显示299错误，也就是内存读取不完全。哪位大侠做过这种，多谢、多谢