Obtener informacion de la BIOS  

Enviado Por: Arturo Garcia
Web : N.A.
Email: sArthur7@wanadoo.es
Fecha: 27/05/00

Truco accedido 135 veces

 


  • Pon un TMemo (Memo1) y un TButton (Button1)
  • Pon este código en el OnClick de 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;
    



    NOTA: No sé si funcionará en NT... si lo pruebas, dime si te ha funcionado.


    Enviado por: Romuald (Romuald.hamard@atelog.fr)
    ------------------------------------------------------------------------------
    Creo que no funciona en NT, a mi me da una excepcion...


    Actualizado el 27/05/2000