mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 16:56:01 +02:00
LCL, win32: make UpdateWindowsVersion detect Windows 8, patch by Tomasz Wieckowski, bug #25374
git-svn-id: trunk@43480 -
This commit is contained in:
parent
8c91bab6ee
commit
faa6ee5f53
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user