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

Советы » BIOS » Получить дату BIOS

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)

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com