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



Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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)

Далее: Получить дату BIOS 2 »»