powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как определить включен стиль Windows XP или нет
2 сообщений из 2, страница 1 из 1
Как определить включен стиль Windows XP или нет
    #34276917
Форма
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
Как определить включен стиль Windows XP или нет
    #34276987
Фотография Старый ворчун
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
Private Declare Function GetVersionEx Lib "Kernel32.dll" Alias _ 
    "GetVersionExA" (ByRef lpVersionInfo As OSVersionInfo) As Long 
Private Declare Function DllGetVersion Lib "ComCtl32.dll" (ByRef PDVI As DLLVersionInfo) As Long 
Private Declare Function IsThemeActive Lib "UXTheme.dll" () As Long 
Private Declare Function IsAppThemed Lib "UXTheme.dll" () As Long 


Private Type OSVersionInfo 
    dwOSVersionInfoSize As Long 
    dwMajorVersion As Long 
    dwMinorVersion As Long 
    dwBuildNumber As Long 
    dwPlatformId As Long 
    szCSDVersion As String *  128  ' Maintenance string for PSS usage 
End Type 


Private Type DLLVersionInfo 
    cbSize As Long 
    dwMajorVersion As Long 
    dwMinorVersion As Long 
    dwBuildNumber As Long 
    dwPlatformId As Long 
End Type 


Private Const VER_PLATFORM_WIN32_NT As Long =  2  


Public Function IsVisualStylesEnabled() As Boolean 
    Dim os As OSVersionInfo 
    Dim Version As DLLVersionInfo 


    os.dwOSVersionInfoSize = Len(os) 
    Call GetVersionEx(os) 


    If ((os.dwPlatformId = VER_PLATFORM_WIN32_NT) And ( _ 
        ((os.dwMajorVersion =  5 ) And (os.dwMinorVersion >=  1 )) Or (os.dwMajorVersion >  5 ))) Then 
        Version.cbSize = Len(Version) 


        If (DllGetVersion(Version) =  0 ) Then _ 
            IsVisualStylesEnabled = (Version.dwMajorVersion >  5 ) And _ 
                CBool(IsThemeActive()) And CBool(IsAppThemed()) 
    End If 
End Function 
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как определить включен стиль Windows XP или нет
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]