Como Descobrir Qual Windows Está Rodando

[Raimar2]

Como fazer o programa descobrir qual windows está rodando?

Em Delphi?

[sledgehammer]

Assim (para Windows após o 95):

  VerInfo: TOSVersionInfo;
  SO: String;

begin
  VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo);
  GetVersionEx(VerInfo);
  case VerInfo.dwPlatformId of
  VER_PLATFORM_WIN32_WINDOWS:
    begin
      case VerInfo.dwMinorVersion of
      0: SO:='Windows 95';
      10: SO:='Windows 98';
      90: SO:='Windows Me';
      end;
    end;
  VER_PLATFORM_WIN32_NT:
    begin
      case VerInfo.dwMajorVersion of
      3..4: SO:='Windows NT';
      5: case Win32MinorVersion of
         0: SO:='Windows 2000';
         1: SO:='Windows XP';
         2: SO:='Windows 2003';
         end;
      else SO:='Windows';
      end;
    end;
  end;
  Application.MessageBox(SO,'Sistema Operacional',[mbOk]);
end;