چطور میشه نسخه ویندوز رو تشخیص داد؟ممنون

[hex161]

با سلام.
چطور میشه نسخه ویندوز رو تشخیص داد؟ممنون

[mehranFX]

با سلام.
چطور میشه نسخه ویندوز رو تشخیص داد؟ممنون و اینگونه :


type
TWin32Version = (wvUnknown,
wvWin95,
wvWin98,
wvWinNT,
wvWin2000) ;

function GetWinVersion: TWin32Version;
begin
Result := wvUnknown;
if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then
if (Win32MajorVersion > 4) or
((Win32MajorVersion = 4) and
(Win32MinorVersion > 0)) then
Result := wvWin98
else
Result := wvWin95
else
if Win32MajorVersion <= 4 then
Result := wvWinNT
else
if Win32MajorVersion = 5 then
Result := wvWin2000
end;