Du kannst die GetVersionEx-Function verwenden
Ungetestet, müsste aber gehen:
Delphi-Quelltext
1: 2: 3: 4: 5:
| procedure GetOS; var test : _OSVERSIONINFOEXW; begin GetVersionEx(test); end; |
Und in test stehen u. a. folgende Information : Die Major/Minor-Version des OS, die Build-Nummer des OS, SP-Version.. und wProductType -> da steht das OS drin. Das ließt du dann entweder so
msdn.microsoft.com/e...4358%28VS.85%29.aspx oder so
msdn.microsoft.com/e...4451%28VS.85%29.aspx aus (Guck mal unter Remarks)
Laut msdn gibt es dann noch die GetProductInfo-Funktion. In der Realität leider nicht

Die Lösung ist nicht siebzehn.