Delphi
function getWinVersion: string; var Major,Minor: LongInt; Info: TOSVersionInfo; begin Info.dwOSVersionInfoSize := SizeOf(Info); GetVersionEx(Info); Major := Info.dwMajorVersion ; Minor := Info.dwMinorVersion ; case major of 4://95/98/ME/NT…
function getWinVersion: string; var Major,Minor: LongInt; Info: TOSVersionInfo; begin Info.dwOSVersionInfoSize := SizeOf(Info); GetVersionEx(Info); Major := Info.dwMajorVersion ; Minor := Info.dwMinorVersion ; case major of 4://95/98/ME/NT…