Einzelnen Beitrag anzeigen

Benutzerbild von barese
barese

Registriert seit: 27. Nov 2009
Ort: Berlin
35 Beiträge
 
Delphi 11 Alexandria
 
#1

BIOS Adressen auslesen

  Alt 16. Nov 2010, 10:51
Hallo und guten Tag,

Möchte gern meine BIOS Info auslesen und benutze den folgenden Code, funtz auch ganz gut.
Meine Frage ist, kennt jemand noch mehr adreseen zum auslesen die ich mit einfügen könnte.

Delphi-Quellcode:
var
    sMainBoardBiosCopyright,
    sMainBoardBiosDate,
    sMainBoardBiosName,
    sMainBoardBiosSerialNo: string;
  ...
  try
    sMainBoardBiosName := string(PChar(Ptr($FE061))); // Bios name
    sMainBoardBiosCopyright := string(PChar(Ptr($FE091))); // Bios copyright
    sMainBoardBiosDate := string(PChar(Ptr($FFFF5))); // Bios date
    sMainBoardBiosSerialNo := string(PChar(Ptr($FEC71))); // Bios serial number
  except
    sMainBoardBiosName := 'Unsupported';
    sMainBoardBiosCopyright := 'Unsupported';
    sMainBoardBiosDate := 'Unsupported';
    sMainBoardBiosSerialNo := 'Unsupported';
  end;
...[lg] barese
Vergessen
  Mit Zitat antworten Zitat