Capturando a data da Bios

Delphi

10/04/2004

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...


Jsaraujo

Jsaraujo

Curtidas 0

Respostas

Tatuweb

Tatuweb

10/04/2004

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;



GOSTEI 0
Ffc

Ffc

10/04/2004

Amigo eu tb preciso desta função no D7, mais testei essa e não retorna nada esta função !!!


Abraços.


GOSTEI 0
Jsaraujo

Jsaraujo

10/04/2004

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?


GOSTEI 0
POSTAR