Vista - GetEnvironmentVariable & ProductID

[The Riddler]

Hallo,

ich muss eine eindeutige Seriennummer für jeden PC generieren. Das soll so ein Mix aus den verschiedensten Dingen werden. Unter XP alles kein Problem:

Delphi-Quellcode:

 lbShowPCName.Caption := GetEnvironmentVariable('ComputerName'); 
// und
lbShowUserName.Caption := GetEnvironmentVariable('Username');

funktioniert ja, ProductID wird von hier ausgelesen: Die Produkt-ID vom Windows (HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\ProductID)

Leider habe ich kein Vista und somit keine Möglichkeit irgendwas zu testen, was die Sache nicht gerade leichter macht. Angeblich funktioniert GetEnvironmentVariable() noch unter Vista, kann mir jemand sagen ob das stimmt und ob die erhaltenen Infos korrekt sind?

Zweitens die Sache mit dem ProductKey unter Vista, wie komm ich da ran?

Thx

[RWarnecke]

Die Werte, die Du abfragen möchtest sind unter Windows XP und VISTA gleich. Unterschiede gibt es bei den 64Bit Betriebssystemen. Suche hier mal im Forum nach Wow6432Node.

[The Riddler]

Dankeschön!