اصدار ويندوز

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;