BIOS Adressen auslesen

[barese]

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

[Neutral General]

Hallo,

Also bei mir funktioniert nichtmal das da

[barese]

.. ja hätte ich zu schreiben müssen die 'sMainBoardBios' angaben sind natürlich Edit boxen tschuldigung.

[Neutral General]

Zitat von barese:

.. ja hätte ich zu schreiben müssen die 'sMainBoardBios' angaben sind natürlich Edit boxen tschuldigung.

Mh? Also angezeigt bekomme/bekäme ich die Werte schon^^ Ich bekomme aber ne Zugriffsverletzung beim Versuch die Werte auszulesen.

[barese]

bei mir funtz es wenn ich z.B. das code...

Edit1.Text := sMainBoardBiosName ...dann spuckt er mir den Namen der BIOS aus.
Eine Zugriffverletzung gibt es bei mir nicht, merkwürdig.

[Luckie]

Guck mal hier: http://www.michael-puff.de/Programmi.../Importe/Nico/

[barese]

Ja genau, danke das Packet 'BIOSHelp' war genau das was ich gesucht habe.
Jede menge Adressen enthalten.
Dickes thx an Luckie

[himitsu]

Zitat von barese:

Dickes thx an Luckie

Zitat:

/Importe/Nico/

Du meinst bestimmt Nico Bendlin.

Luckie hat einige Codes für/von Andere(n) auf seiner Seite gehostet.

[Luckie]

Ich denke, er hat mir für den Link gedankt, nicht für den eigentlichen Code.

[barese]

Nein ich meinte Luckie sein Link hat mich nun mal zu Nico geführt.
Und dort fand ich das was ich brauchte.

PS : aber auch ein fates thx an NiCo