XE2 Bios Daten auslesen

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