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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
|
/** \file
* \brief Windows System Information
*
* See Copyright Notice in "iup.h"
*/
#include <stdio.h>
#include <stdlib.h>
#include <windows.h>
#include <uxtheme.h>
#include "iup.h"
#include "iup_str.h"
#include "iup_drv.h"
#include "iupwin_info.h"
int iupwinIsVista(void)
{
OSVERSIONINFO osvi;
osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
GetVersionEx(&osvi);
if (osvi.dwPlatformId == VER_PLATFORM_WIN32_NT && osvi.dwMajorVersion >= 6)
return 1;
return 0;
}
int iupwinGetSystemMajorVersion(void)
{
OSVERSIONINFO osvi;
osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
GetVersionEx(&osvi);
return osvi.dwMajorVersion;
}
char *iupwinGetSystemLanguage(void)
{
LANGID id = GetSystemDefaultUILanguage();
char *lang = NULL;
switch(id)
{
case 0x0000: lang = "Language Neutral"; break;
case 0x007f: lang = "Locale Invariant"; break;
case 0x0400: lang = "User Default Language"; break;
case 0x0800: lang = "System Default Language"; break;
case 0x0436: lang = "Afrikaans"; break;
case 0x041c: lang = "Albanian"; break;
case 0x0401: lang = "Arabic (Saudi Arabia)"; break;
case 0x0801: lang = "Arabic (Iraq)"; break;
case 0x0c01: lang = "Arabic (Egypt)"; break;
case 0x1001: lang = "Arabic (Libya)"; break;
case 0x1401: lang = "Arabic (Algeria)"; break;
case 0x1801: lang = "Arabic (Morocco)"; break;
case 0x1c01: lang = "Arabic (Tunisia)"; break;
case 0x2001: lang = "Arabic (Oman)"; break;
case 0x2401: lang = "Arabic (Yemen)"; break;
case 0x2801: lang = "Arabic (Syria)"; break;
case 0x2c01: lang = "Arabic (Jordan)"; break;
case 0x3001: lang = "Arabic (Lebanon)"; break;
case 0x3401: lang = "Arabic (Kuwait)"; break;
case 0x3801: lang = "Arabic (U.A.E.)"; break;
case 0x3c01: lang = "Arabic (Bahrain)"; break;
case 0x4001: lang = "Arabic (Qatar)"; break;
case 0x042b: lang = "Armenian"; break;
case 0x042c: lang = "Azeri (Latin)"; break;
case 0x082c: lang = "Azeri (Cyrillic)"; break;
case 0x042d: lang = "Basque"; break;
case 0x0423: lang = "Belarusian"; break;
case 0x0402: lang = "Bulgarian"; break;
case 0x0455: lang = "Burmese"; break;
case 0x0403: lang = "Catalan"; break;
case 0x0404: lang = "Chinese (Taiwan)"; break;
case 0x0804: lang = "Chinese"; break;
case 0x0c04: lang = "Chinese (Hong Kong)"; break;
case 0x1004: lang = "Chinese (Singapore)"; break;
case 0x1404: lang = "Chinese (Macau)"; break;
case 0x041a: lang = "Croatian"; break;
case 0x0405: lang = "Czech"; break;
case 0x0406: lang = "Danish"; break;
case 0x0465: lang = "Divehi"; break;
case 0x0413: lang = "Dutch (Netherlands)"; break;
case 0x0813: lang = "Dutch (Belgium)"; break;
case 0x0409: lang = "English (United States)"; break;
case 0x0809: lang = "English (United Kingdom)"; break;
case 0x0c09: lang = "English (Australian)"; break;
case 0x1009: lang = "English (Canadian)"; break;
case 0x1409: lang = "English (New Zealand)"; break;
case 0x1809: lang = "English (Ireland)"; break;
case 0x1c09: lang = "English (South Africa)"; break;
case 0x2009: lang = "English (Jamaica)"; break;
case 0x2409: lang = "English (Caribbean)"; break;
case 0x2809: lang = "English (Belize)"; break;
case 0x2c09: lang = "English (Trinidad)"; break;
case 0x3009: lang = "English (Zimbabwe)"; break;
case 0x3409: lang = "English (Philippines)"; break;
case 0x0425: lang = "Estonian"; break;
case 0x0438: lang = "Faeroese"; break;
case 0x0429: lang = "Farsi"; break;
case 0x040b: lang = "Finnish"; break;
case 0x040c: lang = "French (Standard)"; break;
case 0x080c: lang = "French (Belgian)"; break;
case 0x0c0c: lang = "French (Canadian)"; break;
case 0x100c: lang = "French (Switzerland)"; break;
case 0x140c: lang = "French (Luxembourg)"; break;
case 0x180c: lang = "French (Monaco)"; break;
case 0x0456: lang = "Galician"; break;
case 0x0437: lang = "Georgian"; break;
case 0x0407: lang = "German (Standard)"; break;
case 0x0807: lang = "German (Switzerland)"; break;
case 0x0c07: lang = "German (Austria)"; break;
case 0x1007: lang = "German (Luxembourg)"; break;
case 0x1407: lang = "German (Liechtenstein)"; break;
case 0x0408: lang = "Greek"; break;
case 0x0447: lang = "Gujarati"; break;
case 0x040d: lang = "Hebrew"; break;
case 0x0439: lang = "Hindi"; break;
case 0x040e: lang = "Hungarian"; break;
case 0x040f: lang = "Icelandic"; break;
case 0x0421: lang = "Indonesian"; break;
case 0x0410: lang = "Italian (Standard)"; break;
case 0x0810: lang = "Italian (Switzerland)"; break;
case 0x0411: lang = "Japanese"; break;
case 0x044b: lang = "Kannada"; break;
case 0x0457: lang = "Konkani"; break;
case 0x0412: lang = "Korean"; break;
case 0x0812: lang = "Korean (Johab)"; break;
case 0x0440: lang = "Kyrgyz"; break;
case 0x0426: lang = "Latvian"; break;
case 0x0427: lang = "Lithuanian"; break;
case 0x0827: lang = "Lithuanian (Classic)"; break;
case 0x042f: lang = "Macedonian"; break;
case 0x043e: lang = "Malay (Malaysian)"; break;
case 0x083e: lang = "Malay (Brunei Darussalam)"; break;
case 0x044e: lang = "Marathi"; break;
case 0x0450: lang = "Mongolian"; break;
case 0x0414: lang = "Norwegian (Bokmal)"; break;
case 0x0814: lang = "Norwegian (Nynorsk)"; break;
case 0x0415: lang = "Polish"; break;
case 0x0416: lang = "Portuguese (Brazil)"; break;
case 0x0816: lang = "Portuguese (Portugal)"; break;
case 0x0446: lang = "Punjabi"; break;
case 0x0418: lang = "Romanian"; break;
case 0x0419: lang = "Russian"; break;
case 0x044f: lang = "Sanskrit"; break;
case 0x0c1a: lang = "Serbian (Cyrillic)"; break;
case 0x081a: lang = "Serbian (Latin)"; break;
case 0x041b: lang = "Slovak"; break;
case 0x0424: lang = "Slovenian"; break;
case 0x040a: lang = "Spanish (Spain, Traditional Sort)"; break;
case 0x080a: lang = "Spanish (Mexican)"; break;
case 0x0c0a: lang = "Spanish (Spain, International Sort)"; break;
case 0x100a: lang = "Spanish (Guatemala)"; break;
case 0x140a: lang = "Spanish (Costa Rica)"; break;
case 0x180a: lang = "Spanish (Panama)"; break;
case 0x1c0a: lang = "Spanish (Dominican Republic)"; break;
case 0x200a: lang = "Spanish (Venezuela)"; break;
case 0x240a: lang = "Spanish (Colombia)"; break;
case 0x280a: lang = "Spanish (Peru)"; break;
case 0x2c0a: lang = "Spanish (Argentina)"; break;
case 0x300a: lang = "Spanish (Ecuador)"; break;
case 0x340a: lang = "Spanish (Chile)"; break;
case 0x380a: lang = "Spanish (Uruguay)"; break;
case 0x3c0a: lang = "Spanish (Paraguay)"; break;
case 0x400a: lang = "Spanish (Bolivia)"; break;
case 0x440a: lang = "Spanish (El Salvador)"; break;
case 0x480a: lang = "Spanish (Honduras)"; break;
case 0x4c0a: lang = "Spanish (Nicaragua)"; break;
case 0x500a: lang = "Spanish (Puerto Rico)"; break;
case 0x0430: lang = "Sutu"; break;
case 0x0441: lang = "Swahili (Kenya)"; break;
case 0x041d: lang = "Swedish"; break;
case 0x081d: lang = "Swedish (Finland)"; break;
case 0x045a: lang = "Syriac"; break;
case 0x0449: lang = "Tamil"; break;
case 0x0444: lang = "Tatar (Tatarstan)"; break;
case 0x044a: lang = "Telugu"; break;
case 0x041e: lang = "Thai"; break;
case 0x041f: lang = "Turkish"; break;
case 0x0422: lang = "Ukrainian"; break;
case 0x0420: lang = "Urdu (Pakistan)"; break;
case 0x0820: lang = "Urdu (India)"; break;
case 0x0443: lang = "Uzbek (Latin)"; break;
case 0x0843: lang = "Uzbek (Cyrillic)"; break;
case 0x042a: lang = "Vietnamese"; break;
}
return lang;
}
#define PACKVERSION(major,minor) MAKELONG(minor,major)
typedef struct _DLLVERSIONINFO
{
DWORD cbSize;
DWORD dwMajorVersion;
DWORD dwMinorVersion;
DWORD dwBuildNumber;
DWORD dwPlatformID;
} DLLVERSIONINFO;
typedef HRESULT (CALLBACK* DLLGETVERSIONPROC)(DLLVERSIONINFO *);
static DWORD winGetDllVersion(LPCTSTR lpszDllName)
{
HINSTANCE hinstDll;
DWORD dwVersion = 0;
/* For security purposes, LoadLibrary should be provided with a
fully-qualified path to the DLL. The lpszDllName variable should be
tested to ensure that it is a fully qualified path before it is used. */
hinstDll = LoadLibrary(lpszDllName);
if (hinstDll)
{
DLLGETVERSIONPROC pDllGetVersion;
pDllGetVersion = (DLLGETVERSIONPROC)GetProcAddress(hinstDll, "DllGetVersion");
/* Because some DLLs might not implement this function, you
must test for it explicitly. Depending on the particular
DLL, the lack of a DllGetVersion function can be a useful
indicator of the version. */
if (pDllGetVersion)
{
DLLVERSIONINFO dvi;
HRESULT hr;
ZeroMemory(&dvi, sizeof(dvi));
dvi.cbSize = sizeof(dvi);
hr = pDllGetVersion(&dvi);
if (SUCCEEDED(hr))
dwVersion = PACKVERSION(dvi.dwMajorVersion, dvi.dwMinorVersion);
}
FreeLibrary(hinstDll);
}
return dwVersion;
}
int iupwinGetComCtl32Version(void)
{
return winGetDllVersion(TEXT("comctl32.dll"));
}
void iupwinGetSysColor(char* color, int wincolor)
{
COLORREF syscolor = GetSysColor(wincolor);
sprintf(color, "%d %d %d", (int)GetRValue(syscolor), (int)GetGValue(syscolor), (int)GetBValue(syscolor));
}
char* iupwinGetSystemFgColor(void)
{
static char def_fgcolor[50];
iupwinGetSysColor(def_fgcolor, COLOR_WINDOWTEXT);
return def_fgcolor;
}
int iupwinIsAppThemed(void)
{
typedef BOOL (STDAPICALLTYPE *winIsAppThemed)(void);
static winIsAppThemed myIsAppThemed = NULL;
if (!myIsAppThemed)
{
HMODULE hinstDll = LoadLibrary("uxtheme.dll");
if (hinstDll)
myIsAppThemed = (winIsAppThemed)GetProcAddress(hinstDll, "IsAppThemed");
}
if (myIsAppThemed)
return myIsAppThemed();
else
return 0;
}
|
