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/

[himitsu]

OK, das "dicke" klang nach mehr.

PS:

Zitat:

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

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

sMainBoardBiosName := PAnsiChar($FE061); // Bios name ...werd ich versuchen danke dir.

[Luckie]

Zitat von himitsu:

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?

[himitsu]

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

Zitat von barese:

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

Also nur, wenn der lange Code funktioniert.

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

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