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.
