get the Bios Date

Author: Thomas Stutz

Homepage: http://www.swissdelphicenter.ch

0 Comments to this tip [Write new comment]

[ Print tip ]

Tip Rating (10):

Skill:

Useful:

Overall:

function GetBiosDate1: 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)