Witam!
Znalazłem na torry.net bardzo mi potrzebną funkcję pobierania daty z BIOS'a tylko nie potrafię się do niej odnieść :( np. do Edita.
Oto funkcja:
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;
Napisałem coś takiego:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=GetBiosDate1;
end;
No ale to mi czyści Edita zamiast pokazywac datę :)
Czy może mi ktoś pomóc z wyświetleniem daty? Dzięki z góry!!