From faa6ee5f5382fd32a4622b57a1f4a5bf773390ba Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Mon, 25 Nov 2013 22:19:52 +0000
Subject: [PATCH] LCL, win32: make UpdateWindowsVersion detect Windows 8, patch
 by Tomasz Wieckowski, bug #25374

git-svn-id: trunk@43480 -
---
 lcl/interfaces/win32/win32proc.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/interfaces/win32/win32proc.pp b/lcl/interfaces/win32/win32proc.pp
index f161789d30..9c74fec639 100644
--- a/lcl/interfaces/win32/win32proc.pp
+++ b/lcl/interfaces/win32/win32proc.pp
@@ -149,6 +149,7 @@ type
     wvVista,
     //wvServer2008,    // has the same major/minor as wvVista
     wv7,
+    wv8,
     wvLater
   );
 
@@ -1634,6 +1635,7 @@ begin
      case Win32MinorVersion of
        0: WindowsVersion := wvVista;
        1: WindowsVersion := wv7;
+       2: WindowsVersion := wv8;
      else
        WindowsVersion := wvLater;
      end;