Fórum Capturando a data da Bios #225058
10/04/2004
0
Ola,
Preciso capturar a data da bios eu consigo fazer isso em D6 usando o seguinte codigo:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := ´Data da Bios: ´+String(PChar(Ptr($FFFF5)));
end;
Mas preciso realizar esta funçao em D7, mas esta mesma funçao no delphi 7 da erro, alguem poderia me informar porque este erro acontece e qual seria a soluçao?
Desde já agradeço...
Preciso capturar a data da bios eu consigo fazer isso em D6 usando o seguinte codigo:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := ´Data da Bios: ´+String(PChar(Ptr($FFFF5)));
end;
Mas preciso realizar esta funçao em D7, mas esta mesma funçao no delphi 7 da erro, alguem poderia me informar porque este erro acontece e qual seria a soluçao?
Desde já agradeço...
Jsaraujo
Curtir tópico
+ 0
Responder
Posts
11/04/2004
Tatuweb
Tente da seguinte forma:
function GetBiosDate: string; var Buffer: Array[0..8] Of Char; N: DWORD; begin ReadProcessMemory (GetCurrentProcess, Ptr($FFFF5), ADDR (Buffer), 8, N); Buffer[8] := 0; result := StrPas(Buffer) end;
Responder
Gostei + 0
11/04/2004
Ffc
Amigo eu tb preciso desta função no D7, mais testei essa e não retorna nada esta função !!!
Abraços.
Abraços.
Responder
Gostei + 0
12/04/2004
Jsaraujo
Bom dia,
Usei a função q vc passou, mas ela não retorna o resultado esperado ela mostra caracteres da tabela ASCII, já tentei fazer conversão para string, mas o problema não é este, oq esta acontecendo?
Usei a função q vc passou, mas ela não retorna o resultado esperado ela mostra caracteres da tabela ASCII, já tentei fazer conversão para string, mas o problema não é este, oq esta acontecendo?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)