Installationskey auslesen

[ste_ett]

Habt ihr den Code so benutzt, wie er oben steht?
Bei mir gibt's da eine Arraygrenzenüberschreitung.

Delphi-Quellcode:

var
  Reg: TRegistry;
  binarySize: INTEGER;
  HexBuf: array[0..28] of BYTE;
  temp: TStringList;
  KeyName, KeyName2, SubKeyName, PN, PID, DN: string;



// muss heissen

  HexBuf: array[0..163] of BYTE;

"binarySize" hat, zumindest beim WinXP-Key, den Wert 164, also ist der Array viel zu klein.