Wie kann ich herasufinden, welche Windows Version läuft?

[Peter Bolz]

Hallo zusammen, in mienm Programm muß ich herausfinden, welche Windosversion läuft. Wichtig ist die Unetrscheidung 95/98, NT, 200 etc.
geht das über den TOSVersionInfo?? und welche Parameter kommen dann
Danke schon mal
Peter

[Stefan Schreier]

Hallo Peter,<br>
versuchs mal hiermit:<br><br>
function GetOSInfo: String;<br>
var<br>
__Platform: string;<br>
__BuildNumber: Integer;<br>
begin<br>
__Platform := 'Operating System: ';<br>
__case Win32Platform of<br>
____VER_PLATFORM_WIN32_WINDOWS:<br>
______begin<br>
________Platform := Platform+'Windows 95';<br>
________BuildNumber := Win32BuildNumber and $0000FFFF;<br>
______end;<br>
____VER_PLATFORM_WIN32_NT:<br>
______begin<br>
________Platform := Platform+'Windows NT';<br>
________BuildNumber := Win32BuildNumber;<br>
______end;<br>
______else<br>
______begin<br>
________Platform := Platform+'Windows';<br>
________BuildNumber := 0;<br>
______end;<br>
__end;<br>
__if (Win32Platform = VER_PLATFORM_WIN32_WINDOWS) or<br>
____(Win32Platform = VER_PLATFORM_WIN32_NT) then<br>
__begin<br>
____if Win32CSDVersion = '' then<br>
______Result := Format('%s %d.%d (Build %d)', [Platform, Win32MajorVersion,<br>
________Win32MinorVersion, BuildNumber])<br>
____else<br>
______Result := Format('%s %d.%d (Build %d: %s)', [Platform, Win32MajorVersion,<br>
________Win32MinorVersion, BuildNumber, Win32CSDVersion]);<br>
__end<br>
__else<br>
____Result := Format('%s %d.%d', [Platform, Win32MajorVersion,<br>
______Win32MinorVersion])<br>
end;<br><br>
Stefan Schreier
&#10

[Peter Bolz]

Hallo, danke für den Source, werde es gleich mal ausprobieren. was ist aber mit Windows XP, ME, 2000?? Wird das auch erkannt??
Pete

[Harri Kasulke]

Hallo,<br>

ME -> VER_PLATFORM_WIN32_WINDOWS MajVer=4 MinVer=90<br>
2K -> VER_PLATFORM_WIN32_NT MajVer=5 MinVer=0<br>
XP -> VER_PLATFORM_WIN32_NT MajVer=5 MinVer=1<br>

Gruss
Harr

[Robert Marquardt]

Kleine Gemeinheit bei ME. Heisst das fragende Programm "Setup.exe" dann luegt ME ein Windows 98 vor