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:

Zitat von barese (Beitrag 1061870)

.. 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...

Delphi-Quellcode:

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 :thumb:

[himitsu]

Zitat:

Zitat von barese (Beitrag 1061886)

Dickes thx an Luckie :thumb:

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 :-D

[himitsu]

OK, das "dicke" klang nach mehr. :oops:

PS:

Zitat:

Delphi-Quellcode:

sMainBoardBiosName := string(PChar(Ptr($FE061))); // Bios name

Delphi-Quellcode:

sMainBoardBiosName := PAnsiChar($FE061); // Bios name

.
und das ANSI, damit man sich schonmal auf's Unicode-Delphi vorbereitet hat

[barese]

Huch scheint ja eine kürzere lösung zu sein..

Delphi-Quellcode:

sMainBoardBiosName := PAnsiChar($FE061); // Bios name

...werd ich versuchen danke dir.

[Luckie]

Zitat:

Zitat von himitsu (Beitrag 1061898)

und das ANIS, damit man sich schonmal auf's Unicode-Delphi vorbereitet hat

Anis? Was hat jetzt eine Gewürz- und Heilpflanze mit dem Zeichensatz zu tun? :stupid:

[himitsu]

keine Ahnung ... gibt dem Programm mehr Würze. :angle2:

Zitat:

Zitat von barese (Beitrag 1061904)

Huch scheint ja eine kürzere lösung zu sein..

Also nur, wenn der lange Code funktioniert.

Delphi-Quellcode:

sMainBoardBiosName := string(PChar(Ptr($FE061)));

.
Ptr: konvertiert den Integer in einen Pointer
PChar (in deinem Delphi 7): konvertiert den untyptiserten Pointer in typisierten Pointer (PAnsiChar)
String: konvertirt den PChar in einen String (explizite Konvertierung)
und das := weist diesen String dann dem anderem String (sMainBoardBiosName) zu

Delphi-Quellcode:

sMainBoardBiosName := PAnsiChar($FE061);

.
PAnsiChar: konvertiert den Integer in einen typisierten Pointer
das := konvertiert den PChar in einen String (implizite Konvertierung) und übergibt ihn an die Variable