Windows-Version ermitteln

[CalganX]

MagicAndre1981 hat hier ein Update, das mehr Windows Versionen erkennt (auch Betas), als die ältere Version des Codes, gepostet:

Zitat seines Beitrages:

Quellen:

• http://msdn.microsoft.com/library/de...em_version.asp
• http://www.winhistory.de/more/betas.htm
• WindowsSDK 1.0 Dez. CTP

Code der unit zum Erkennen von Windows ist im Anhang.

Unterstütze Versionen:

• Windows Vista
• Windows Server 2003 (Standard, Web Edition, Enterprise, DataCenter, Standard Edition for Itanium-based Systems, Enterprise Edition for Itanium-based Systems, DataCenter Edition for Itanium-based Systems, Standard x64 Edition, Enterprise x64 Edition, DataCenter x64 Edition)
• Windows Server 2003 R2
• Windows XP Prof. x64 Edition
• Windows XP Prof.
• Windows XP Home
• Windows XP Tablet Edition
• Windows XP Media Center Edition
• Windows 2000 (Prof., Server, DataCenter, Advanced Server + Betas (Codename NT5.0))
• Windows NT 4 Server (Server, Enterprise Server, Advanced Server)
• Windows NT 4 Workstation (mit Unterscheidunf zw. SP6 und SP6a)
• Windows NT 3.51
• Windows 95 (A,B,C + Betas (Codename: Chicago, Nashville))
• Windows 98 (Original, SE + Betas (Codename: Memphis))
• Windows ME (Original + BETA 1 (Codename: Georgia))

Offene Fragen:

• Unterscheidung der MCE-Versionen (2002,2004,2005)
• Erkennung der Windows XP N-Editions

Benutzung:

Delphi-Quellcode:

uses GetWindowsVersion;

Edit1.Text := GetWinVersion;

So, dann happy Windowserkenning

André


Edit=Matze]Beitrag und Anhänge aktualisiert. MfG, Matze