Fórum Versão do Windows #258080

var
  OSVersionInfo : TOSVersionInfo;
begin
  OsVersionInfo.dwOSVersionInfoSize := SizeOf(TOsVersionInfo);
  GetVersionEx(OsVersionInfo);
  with OsVersionInfo do begin
    Label4.Caption := IntToStr(dwMajorVersion);
    Label5.Caption := IntToStr(dwMinorVersion);
    Label6.Caption := IntToStr(LoWord(dwBuildNumber));
    case dwPlatformID of
      VER_PLATFORM_WIN32S : Label8.Caption := ´Win32s´;
      VER_PLATFORM_WIN32_WINDOWS : Label8.Caption := ´Windows 95/98´;
      VER_PLATFORM_WIN32_NT : Label8.Caption := ´Windows NT´;
    end;
  end;