Code:
try
Label1.Caption := String(Pchar(Ptr($FE061))); // BIOS Name
Label2.Caption := String(Pchar(Ptr($FE091))); // CopyRight-Informationen
Label3.Caption := String(Pchar(Ptr($FFFF5))); // BIOS Datum
Label4.Caption := String(Pchar(Ptr($FEC71))); // Seriennummer
except
Label1.Caption := 'keine Info';
Label2.Caption := 'keine Info';
Label3.Caption := 'keine Info';
Label4.Caption := 'keine Info';
end;
ich hab den quellcode verwendet und auch schon über google gesucht. über google komm ich an die gleiche lösung, nur funktioniert das scheinbar nicht mit delphi 6.
könnte mir da jemand helfen oder kennt den fehler?
gruß, creature