Get BIOS information  

Send By: Arturo Garcia
Web : N.A.
Email: sArthur7@wanadoo.es
Date: 27/05/00

Tip accessed 487 times

 


  • Put a TMemo (Memo1) and a TButton (Button1)
  • Put this code in the OnClick event of Button1:

     procedure TForm1.Button1Click(Sender: TObject);
     begin
      with Memo1.Lines do
      begin
        Add('Tipo de Bios:'+^I+String(Pchar(Ptr($FE061))));
        Add('Bios CopyRight:'+^I+String(Pchar(Ptr($FE091))));
        Add('Fecha de la Bios:'+^I+String(Pchar(Ptr($FFFF5))));
        Add('Informacion Adicional:'+^I+String(Pchar(Ptr($FEC71))));
      end;
     end;
    



    NOTE: I don't know if this tip works under NT. If you test it, email me the result, please.


    Sent by: Romuald (Romuald.hamard@atelog.fr)
    ------------------------------------------------------------------------------
    I think this is not working under Winnt, I try it and I got an exception Error...


    Updated at 27/05/2000