Moin!
Für Abfragen in deinem Programm, z.B. so:
Delphi-Quellcode:
If ( DeterminateOSVersion
In [osvWinNT4, osvWin2000, osvWinXP, osvNewer] )
Then
ShowMessage('
OS ist Windows NT ff. oder neuer');
Bzw. direkt auf ein spezielles abfragen:
Delphi-Quellcode:
If ( DeterminateOSVersion = osvWinXP ) Then
ShowMessage('Ich mag XP nicht');
Wenn du einfach nur einen einfachen String haben willst mit dem
OS Namen, dann z.B. so:
ShowMessage( ConvertOSVersionTypeToString(DeterminateOSVersion) );
Ansonsten gibt es ja noch die Detailfunktion, wie in der Beispielapplikation, die dir alle Teilinformationen im einzelnen zurück gibt und gleichzeitig einen detaillierten String mit Informationen:
Delphi-Quellcode:
Var
OSName,
OSType,
OSCSD,
OSVersion,
OSBuild,
OSInfo : String;
begin
ShowMessage( DetailedOSVersionString(OSName, OSType, OSCSD, OSVersion, OSBuild, OSInfo) );
end;
MfG
Muetze1