Windows Produkt Key ermitteln

[emsländer]

Zitat von marabu:

Hallo EL,

probiere dein Glück: klick

Grüße vom marabu

Hi Marabu,

da war ich auch schon dran.

Jetzt stellt sich die Frage, wie ich die Produkt-ID übergebe. Ich hab da wohl ein Problem mit Delphi selbst

Delphi-Quellcode:

        PID        := (Reg.ReadString('ProductID'));
        binarySize := Reg.GetDataSize('DigitalProductId');
        SetLength(HexBuf, binarySize);

Binary Size liefert mir an der Stelle -1 .... und das ist der Knackpunkt.

Dieser Registryeintrag ist da und wird auch gefunden ... aber die Länge wird mit -1 angegeben ...

Gruss

EL