제가 이전에 썼던 팁이 변경되었습니다.

제가 다시 사용할 일이 있어서 Windows 10에서 했는데.. 안되더군요.

사용방식이 바뀌었더랍니다.

방식은 다음과 같습니다. (걍 귀찮아서 제가 쓰는 소스 그대로 복사해서 올립니다.)

윈도우 비스타 이전버전인지~ 윈도우 비스타부터 이후 버전인지 True, False 를 리턴합니다.

자세한 사항은 VerifyVersionInfo API를 검색해 보시기 바랍니다.


function WindowsIsAfterVista: Boolean;
const
  VER_EQUAL                   = 1;
  VER_GREATER_EQUAL           = 3;
var
  vVersion                    : OSVERSIONINFOEX;
  vCondition                  : UInt64;
begin
  Result                      := False;
  ZeroMemory(@vVersion, SizeOf(vVersion));

  vCondition                  := 0;
  vCondition                  := VerSetConditionMask(vCondition, VER_MAJORVERSION, VER_GREATER_EQUAL);
  vVersion.dwMajorVersion     := 5;

  if VerifyVersionInfo(vVersion, VER_MAJORVERSION, vCondition) then
  begin
    Result                      := true;
  end;
end;

- 2016-02-12 첨가 -

보통 윈도우 버전을 가져올때 GetVersionEx를 사용하는 경우가 있습니다.
그런데 이는 잘못 오용을 한것으로 이 함수는 해당 어플리케이션의 호환OS 범위를 나타냅니다.
말이 어려운데... 쉽게 말하자면, 윈도우에서 파일 속성을 들어가면
"호환성" 탭이 있습니다. 이 호환성 탭에서 "이 프로그램을 실행할 호환모드"를 선택하고
윈도우 버전을 선정한 다음 GetVersionEx를 호출하면 그 호환윈도우의 버전이 리턴됩니다.
이 부분이 오용되어져 버린거구요...

현재 윈도우 8.1 버전 이후로는 deprecated된 API입니다. 사용하지 않는게 좋죠... 유지는 되겠지만.
MSDN에서는 현재 "Version Helper Functions"를 쓰라고 권장중입니다.
그 지원 함수들은 다음과 같습니다.

- IsWindowsXPOrGreater
- IsWindowsXPSP1OrGreater
- ..
.
.
.
- IsWindows10OrGreater

등등이 있는데... 이는 "VersionHelpers.h" 파일에 정의되어 있습니다.
하지만, Delphi에는 없죠... 
잘 찾아보시면 해외에서는 포팅한 분도 있으신듯 합니다.