Einzelnen Beitrag anzeigen

Benutzerbild von emsländer
emsländer

Registriert seit: 21. Aug 2004
Ort: Lengerich
658 Beiträge
 
RAD-Studio 2009 Ent
 
#6

Re: Windows Produkt Key ermitteln

  Alt 25. Aug 2008, 18:12
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


Narben am Körper sind ein Zeichen dafür, das man gelebt hat.
Narben auf der Seele sind ein Zeichen dafür, das man geliebt hat.
  Mit Zitat antworten Zitat