XE2 Bios Daten auslesen

[bernhard_LA]

Anbei ein Code Fragment zum Auslesen der Biosdaten, unter D7 alles prima, nur Delphi XE2 mault jetzt

a) N : DWORD scheint falsch zu sein
b) array of Char nach Array of AnsiChar war nicht hilfreich



procedure BiosDaten(var Name, Copyright, Datum, SN : string);
var
Buffer : Array[0..8] Of Char;
N : DWORD; ------->>>> [DCC Fehler] E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen
begin

ReadProcessMemory( GetCurrentProcess,Ptr( $FE061),@Buffer,8,N);
Buffer[8]:=#0; ----->>>>> [DCC Fehler]Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen
Name:=StrPas(Buffer);

........

end;

[Union]

Jetzt ist die Frage: Welches ReadProcessMemory wird denn da verwendet? Schau Dir mal die Deklaration an.

[Uwe Raabe]

Mach aus dem N ein NativeUInt.

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

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