Jak rozpoznać wersję Windows-a. Poniższa funkcja, którą napisałem rozpoznaje tylko czy dany Windows to:
Win3.11, Win95, WinNT, Win2k, WinXP
a co z Win98 oraz WinME ???
TWindowsVersion = (wvUnknown, wvWin311, wvWin95, wvWinNT, wvWin2k, wvWinXP);
FUNCTION TTW_Spis.GetWindowsVersion: TWindowsVersion;
VAR
OSVerInfo: TOSVersionInfo;
BEGIN
Result := wvUnknown;
OSVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
IF GetVersionEx(OSVerInfo) THEN
WITH OSVerInfo DO
CASE DwPlatformId OF
VER_PLATFORM_WIN32s:
Result := wvWin311;
VER_PLATFORM_WIN32_WINDOWS:
Result := wvWin95;//tutaj chcę obsługę co do Win98, WinME (tak jak poniżej)
VER_PLATFORM_WIN32_NT:
BEGIN
Result := wvWinNT;
IF (dwMajorVersion = 5) AND (dwMinorVersion = 0) THEN
Result := wvWin2k;
IF (dwMajorVersion >= 5) AND (dwMinorVersion >= 1) THEN
Result := wvWinXP;
END;
END;
END;
DZIĘKUJĘ ZA POMOC!