Windows Version ermitteln

**MagicAndre1981**

So, ich hab mal ein Update der

Erkennungs-Routine der Code-Lib gemacht, um weitere Windows-Versionen (mit Betas) zu erkennen.

Quellen:

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:

Benutzung:

Delphi-Quellcode:

			uses GetWindowsVersion;

Edit1.Text := GetWinVersion;

So, dann happy Windowserkenning

André