Information aus dem Bios:
Zitat von
old.quellcodes.de:
Wie kann ich Bios Informationen auslesen?
05.12.2001 00:00
procedure TForm1.Button1Click(Sender: TObject);
begin
try
Label1.Caption := String(Pchar(Ptr($FE061))); // BIOS Name
Label2.Caption := String(Pchar(Ptr($FE091))); // CopyRight
Label3.Caption := String(Pchar(Ptr($FFFF5))); // BIOS Datum
Label4.Caption := String(Pchar(Ptr($FEC71))); // Seriennummer
except
Label1.Caption := 'n/a';
Label2.Caption := 'n/a';
Label3.Caption := 'n/a';
end;
end;
ja gut, hat nix mit SMART zu tun. Aber vielleicht hilft's trotzdem ;)
mfg Lars