XE2 Bios Daten auslesen

[DeddyH]

Und m.E.n muss es dann
ReadProcessMemory( GetCurrentProcess,Ptr( $FE061),@Buffer,8 * SizeOf(Char),N); heißen.

[Neutral General]

Zitat von DeddyH:

Und m.E.n muss es dann
ReadProcessMemory( GetCurrentProcess,Ptr( $FE061),@Buffer,8 * SizeOf(Char),N); heißen.

Davon abgesehen, dass
Buffer : Array[0..8] Of Char;
9 Chars sind und nicht 8.

[Uwe Raabe]

Zitat von Neutral General:

Zitat von DeddyH:

Und m.E.n muss es dann
ReadProcessMemory( GetCurrentProcess,Ptr( $FE061),@Buffer,8 * SizeOf(Char),N); heißen.

Davon abgesehen, dass
Buffer : Array[0..8] Of Char;
9 Chars sind und nicht 8.

In Buffer[8] steht am Ende ja auch #0!

[Neutral General]

Naja, nicht wenn er nur 8 Chars liest... Sonst steht in Buffer[8] ein zufälliger Stack-Inhalt.
Quatsch! Jetzt weiß ich was du meinst

PS: Sind die BIOS-Infos wirklich WideStrings? Ich schätze mal man muss da AnsiChars nehmen.
(Es sei denn ich irre mich)

[Uwe Raabe]

Zitat von Neutral General:

Naja, nicht wenn er nur 8 Chars liest... Sonst steht in Buffer[8] ein zufälliger Stack-Inhalt.
Quatsch! Jetzt weiß ich was du meinst

PS: Sind die BIOS-Infos wirklich WideStrings? Ich schätze mal man muss da AnsiChars nehmen.
(Es sei denn ich irre mich)

Das werden wohl AnsiStrings sein, sonst hätte es in D7 nicht mit array of char funktioniert.

[DeddyH]

Ich hätte ja gedacht, dass es dann so gehen müsste:

Delphi-Quellcode:

procedure BiosDaten(var Name, Copyright, Datum, SN: AnsiString);
const
  BUFDATASIZE = 8;
var
  Buffer: Array[0..BUFDATASIZE] Of AnsiChar;
  N: DWORD {bzw. NativeUInt};
begin
  ReadProcessMemory(GetCurrentProcess, Ptr($FE061), @Buffer, BUFDATASIZE, N);
  Buffer[BUFDATASIZE] := #0;
  Name := AnsiString(Buffer);
  //...
end;

Allerdings bekomme ich da auch kein gescheites Ergebnis (XE auf Vista 32).

[Neutral General]

Ja habs eben auch probiert aber nix rausbekommen.

Stimmt die Adresse denn überhaupt?
Hab jetzt im Internet beim groben Googlen nichts gefunden.

[bernhard_LA]

OK der Ansatz zum Auslesen der BIOS Daten spielt nur bis Win 2K ....

muss diese Funktion wohl entsorgen

[bernhard_LA]

ich denke der erste Code war clean unter WIN 2000 - dann lange nicht verwendet und jetzt unter WIN 7 kam das böse Erwachen ...

Windows /Microssoft hat uns wohl hier erfolgreich ausgebremst

[Uwe Raabe]

Zitat von DeddyH:

Und m.E.n muss es dann
ReadProcessMemory( GetCurrentProcess,Ptr( $FE061),@Buffer,8 * SizeOf(Char),N); heißen.

Das hängt allerdings davon ab, ob die Daten im BIOS als Ansi- oder WideString abgelegt sind. Ich bin davon ausgegangen, daß die Änderung des Arrays auf AnsiChar sowieso schon erfolgt ist.