]> git.saurik.com Git - wxWidgets.git/blame_incremental - src/msw/utils.cpp
projects / wxWidgets.git / blame_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
no real changes, just extract private classes from msw/dc.cpp into a private header...
[wxWidgets.git] / src / msw / utils.cpp
... / ...
CommitLineData
1/////////////////////////////////////////////////////////////////////////////
2// Name: src/msw/utils.cpp
3// Purpose: Various utilities
4// Author: Julian Smart
5// Modified by:
6// Created: 04/01/98
7// RCS-ID: $Id$
8// Copyright: (c) Julian Smart
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
11
12// ============================================================================
13// declarations
14// ============================================================================
15
16// ----------------------------------------------------------------------------
17// headers
18// ----------------------------------------------------------------------------
19
20// For compilers that support precompilation, includes "wx.h".
21#include "wx/wxprec.h"
22
23#ifdef __BORLANDC__
24 #pragma hdrstop
25#endif
26
27#ifndef WX_PRECOMP
28 #include "wx/utils.h"
29 #include "wx/app.h"
30 #include "wx/intl.h"
31 #include "wx/log.h"
32#endif //WX_PRECOMP
33
34#include "wx/msw/registry.h"
35#include "wx/apptrait.h"
36#include "wx/dynlib.h"
37#include "wx/dynload.h"
38#include "wx/scopeguard.h"
39#include "wx/filename.h"
40
41#include "wx/confbase.h" // for wxExpandEnvVars()
42
43#include "wx/msw/private.h" // includes <windows.h>
44#include "wx/msw/missing.h" // for CHARSET_HANGUL
45
46#if defined(__CYGWIN__)
47 //CYGWIN gives annoying warning about runtime stuff if we don't do this
48# define USE_SYS_TYPES_FD_SET
49# include <sys/types.h>
50#endif
51
52// Doesn't work with Cygwin at present
53#if wxUSE_SOCKETS && (defined(__GNUWIN32_OLD__) || defined(__WXWINCE__) || defined(__CYGWIN32__))
54 // apparently we need to include winsock.h to get WSADATA and other stuff
55 // used in wxGetFullHostName() with the old mingw32 versions
56 #include <winsock.h>
57#endif
58
59#if !defined(__GNUWIN32__) && !defined(__WXMICROWIN__) && !defined(__WXWINCE__)
60 #include <direct.h>
61
62 #ifndef __MWERKS__
63 #include <dos.h>
64 #endif
65#endif //GNUWIN32
66
67#if defined(__CYGWIN__)
68 #include <sys/unistd.h>
69 #include <sys/stat.h>
70 #include <sys/cygwin.h> // for cygwin_conv_to_full_win32_path()
71#endif //GNUWIN32
72
73#ifdef __BORLANDC__ // Please someone tell me which version of Borland needs
74 // this (3.1 I believe) and how to test for it.
75 // If this works for Borland 4.0 as well, then no worries.
76 #include <dir.h>
77#endif
78
79// VZ: there is some code using NetXXX() functions to get the full user name:
80// I don't think it's a good idea because they don't work under Win95 and
81// seem to return the same as wxGetUserId() under NT. If you really want
82// to use them, just #define USE_NET_API
83#undef USE_NET_API
84
85#ifdef USE_NET_API
86 #include <lm.h>
87#endif // USE_NET_API
88
89#if defined(__WIN32__) && !defined(__WXMICROWIN__) && !defined(__WXWINCE__)
90 #ifndef __UNIX__
91 #include <io.h>
92 #endif
93
94 #ifndef __GNUWIN32__
95 #include <shellapi.h>
96 #endif
97#endif
98
99#ifndef __WATCOMC__
100 #if !(defined(_MSC_VER) && (_MSC_VER > 800))
101 #include <errno.h>
102 #endif
103#endif
104
105// For wxKillAllChildren
106#include <tlhelp32.h>
107
108// ----------------------------------------------------------------------------
109// constants
110// ----------------------------------------------------------------------------
111
112// In the WIN.INI file
113#if (!defined(USE_NET_API) && !defined(__WXWINCE__)) || defined(__WXMICROWIN__)
114static const wxChar WX_SECTION[] = wxT("wxWindows");
115#endif
116
117#if (!defined(USE_NET_API) && !defined(__WXWINCE__))
118static const wxChar eUSERNAME[] = wxT("UserName");
119#endif
120
121// ============================================================================
122// implementation
123// ============================================================================
124
125// ----------------------------------------------------------------------------
126// get host name and related
127// ----------------------------------------------------------------------------
128
129// Get hostname only (without domain name)
130bool wxGetHostName(wxChar *WXUNUSED_IN_WINCE(buf),
131 int WXUNUSED_IN_WINCE(maxSize))
132{
133#if defined(__WXWINCE__)
134 // TODO-CE
135 return false;
136#else
137 DWORD nSize = maxSize;
138 if ( !::GetComputerName(buf, &nSize) )
139 {
140 wxLogLastError(wxT("GetComputerName"));
141
142 return false;
143 }
144
145 return true;
146#endif
147}
148
149// get full hostname (with domain name if possible)
150bool wxGetFullHostName(wxChar *buf, int maxSize)
151{
152#if !defined( __WXMICROWIN__) && wxUSE_DYNLIB_CLASS && wxUSE_SOCKETS
153 // TODO should use GetComputerNameEx() when available
154
155 // we don't want to always link with Winsock DLL as we might not use it at
156 // all, so load it dynamically here if needed (and don't complain if it is
157 // missing, we handle this)
158 wxLogNull noLog;
159
160 wxDynamicLibrary dllWinsock(_T("ws2_32.dll"), wxDL_VERBATIM);
161 if ( dllWinsock.IsLoaded() )
162 {
163 typedef int (PASCAL *WSAStartup_t)(WORD, WSADATA *);
164 typedef int (PASCAL *gethostname_t)(char *, int);
165 typedef hostent* (PASCAL *gethostbyname_t)(const char *);
166 typedef hostent* (PASCAL *gethostbyaddr_t)(const char *, int , int);
167 typedef int (PASCAL *WSACleanup_t)(void);
168
169 #define LOAD_WINSOCK_FUNC(func) \
170 func ## _t \
171 pfn ## func = (func ## _t)dllWinsock.GetSymbol(_T(#func))
172
173 LOAD_WINSOCK_FUNC(WSAStartup);
174
175 WSADATA wsa;
176 if ( pfnWSAStartup && pfnWSAStartup(MAKEWORD(1, 1), &wsa) == 0 )
177 {
178 LOAD_WINSOCK_FUNC(gethostname);
179
180 wxString host;
181 if ( pfngethostname )
182 {
183 char bufA[256];
184 if ( pfngethostname(bufA, WXSIZEOF(bufA)) == 0 )
185 {
186 // gethostname() won't usually include the DNS domain name,
187 // for this we need to work a bit more
188 if ( !strchr(bufA, '.') )
189 {
190 LOAD_WINSOCK_FUNC(gethostbyname);
191
192 struct hostent *pHostEnt = pfngethostbyname
193 ? pfngethostbyname(bufA)
194 : NULL;
195
196 if ( pHostEnt )
197 {
198 // Windows will use DNS internally now
199 LOAD_WINSOCK_FUNC(gethostbyaddr);
200
201 pHostEnt = pfngethostbyaddr
202 ? pfngethostbyaddr(pHostEnt->h_addr,
203 4, AF_INET)
204 : NULL;
205 }
206
207 if ( pHostEnt )
208 {
209 host = wxString::FromAscii(pHostEnt->h_name);
210 }
211 }
212 }
213 }
214
215 LOAD_WINSOCK_FUNC(WSACleanup);
216 if ( pfnWSACleanup )
217 pfnWSACleanup();
218
219
220 if ( !host.empty() )
221 {
222 wxStrlcpy(buf, host.c_str(), maxSize);
223
224 return true;
225 }
226 }
227 }
228#endif // !__WXMICROWIN__
229
230 return wxGetHostName(buf, maxSize);
231}
232
233// Get user ID e.g. jacs
234bool wxGetUserId(wxChar *WXUNUSED_IN_WINCE(buf),
235 int WXUNUSED_IN_WINCE(maxSize))
236{
237#if defined(__WXWINCE__)
238 // TODO-CE
239 return false;
240#else
241 DWORD nSize = maxSize;
242 if ( ::GetUserName(buf, &nSize) == 0 )
243 {
244 // actually, it does happen on Win9x if the user didn't log on
245 DWORD res = ::GetEnvironmentVariable(wxT("username"), buf, maxSize);
246 if ( res == 0 )
247 {
248 // not found
249 return false;
250 }
251 }
252
253 return true;
254#endif
255}
256
257// Get user name e.g. Julian Smart
258bool wxGetUserName(wxChar *buf, int maxSize)
259{
260 wxCHECK_MSG( buf && ( maxSize > 0 ), false,
261 _T("empty buffer in wxGetUserName") );
262#if defined(__WXWINCE__) && wxUSE_REGKEY
263 wxLogNull noLog;
264 wxRegKey key(wxRegKey::HKCU, wxT("ControlPanel\\Owner"));
265 if(!key.Open(wxRegKey::Read))
266 return false;
267 wxString name;
268 if(!key.QueryValue(wxT("Owner"),name))
269 return false;
270 wxStrlcpy(buf, name.c_str(), maxSize);
271 return true;
272#elif defined(USE_NET_API)
273 CHAR szUserName[256];
274 if ( !wxGetUserId(szUserName, WXSIZEOF(szUserName)) )
275 return false;
276
277 // TODO how to get the domain name?
278 CHAR *szDomain = "";
279
280 // the code is based on the MSDN example (also see KB article Q119670)
281 WCHAR wszUserName[256]; // Unicode user name
282 WCHAR wszDomain[256];
283 LPBYTE ComputerName;
284
285 USER_INFO_2 *ui2; // User structure
286
287 // Convert ANSI user name and domain to Unicode
288 MultiByteToWideChar( CP_ACP, 0, szUserName, strlen(szUserName)+1,
289 wszUserName, WXSIZEOF(wszUserName) );
290 MultiByteToWideChar( CP_ACP, 0, szDomain, strlen(szDomain)+1,
291 wszDomain, WXSIZEOF(wszDomain) );
292
293 // Get the computer name of a DC for the domain.
294 if ( NetGetDCName( NULL, wszDomain, &ComputerName ) != NERR_Success )
295 {
296 wxLogError(wxT("Can not find domain controller"));
297
298 goto error;
299 }
300
301 // Look up the user on the DC
302 NET_API_STATUS status = NetUserGetInfo( (LPWSTR)ComputerName,
303 (LPWSTR)&wszUserName,
304 2, // level - we want USER_INFO_2
305 (LPBYTE *) &ui2 );
306 switch ( status )
307 {
308 case NERR_Success:
309 // ok
310 break;
311
312 case NERR_InvalidComputer:
313 wxLogError(wxT("Invalid domain controller name."));
314
315 goto error;
316
317 case NERR_UserNotFound:
318 wxLogError(wxT("Invalid user name '%s'."), szUserName);
319
320 goto error;
321
322 default:
323 wxLogSysError(wxT("Can't get information about user"));
324
325 goto error;
326 }
327
328 // Convert the Unicode full name to ANSI
329 WideCharToMultiByte( CP_ACP, 0, ui2->usri2_full_name, -1,
330 buf, maxSize, NULL, NULL );
331
332 return true;
333
334error:
335 wxLogError(wxT("Couldn't look up full user name."));
336
337 return false;
338#else // !USE_NET_API
339 // Could use NIS, MS-Mail or other site specific programs
340 // Use wxWidgets configuration data
341 bool ok = GetProfileString(WX_SECTION, eUSERNAME, wxEmptyString, buf, maxSize - 1) != 0;
342 if ( !ok )
343 {
344 ok = wxGetUserId(buf, maxSize);
345 }
346
347 if ( !ok )
348 {
349 wxStrlcpy(buf, wxT("Unknown User"), maxSize);
350 }
351
352 return true;
353#endif // Win32/16
354}
355
356const wxChar* wxGetHomeDir(wxString *pstr)
357{
358 wxString& strDir = *pstr;
359
360 // first branch is for Cygwin
361#if defined(__UNIX__) && !defined(__WINE__)
362 const wxChar *szHome = wxGetenv("HOME");
363 if ( szHome == NULL ) {
364 // we're homeless...
365 wxLogWarning(_("can't find user's HOME, using current directory."));
366 strDir = wxT(".");
367 }
368 else
369 strDir = szHome;
370
371 // add a trailing slash if needed
372 if ( strDir.Last() != wxT('/') )
373 strDir << wxT('/');
374
375 #ifdef __CYGWIN__
376 // Cygwin returns unix type path but that does not work well
377 static wxChar windowsPath[MAX_PATH];
378 cygwin_conv_to_full_win32_path(strDir, windowsPath);
379 strDir = windowsPath;
380 #endif
381#elif defined(__WXWINCE__)
382 strDir = wxT("\\");
383#else
384 strDir.clear();
385
386 // If we have a valid HOME directory, as is used on many machines that
387 // have unix utilities on them, we should use that.
388 const wxChar *szHome = wxGetenv(wxT("HOME"));
389
390 if ( szHome != NULL )
391 {
392 strDir = szHome;
393 }
394 else // no HOME, try HOMEDRIVE/PATH
395 {
396 szHome = wxGetenv(wxT("HOMEDRIVE"));
397 if ( szHome != NULL )
398 strDir << szHome;
399 szHome = wxGetenv(wxT("HOMEPATH"));
400
401 if ( szHome != NULL )
402 {
403 strDir << szHome;
404
405 // the idea is that under NT these variables have default values
406 // of "%systemdrive%:" and "\\". As we don't want to create our
407 // config files in the root directory of the system drive, we will
408 // create it in our program's dir. However, if the user took care
409 // to set HOMEPATH to something other than "\\", we suppose that he
410 // knows what he is doing and use the supplied value.
411 if ( wxStrcmp(szHome, wxT("\\")) == 0 )
412 strDir.clear();
413 }
414 }
415
416 if ( strDir.empty() )
417 {
418 // If we have a valid USERPROFILE directory, as is the case in
419 // Windows NT, 2000 and XP, we should use that as our home directory.
420 szHome = wxGetenv(wxT("USERPROFILE"));
421
422 if ( szHome != NULL )
423 strDir = szHome;
424 }
425
426 if ( !strDir.empty() )
427 {
428 // sometimes the value of HOME may be "%USERPROFILE%", so reexpand the
429 // value once again, it shouldn't hurt anyhow
430 strDir = wxExpandEnvVars(strDir);
431 }
432 else // fall back to the program directory
433 {
434 // extract the directory component of the program file name
435 wxFileName::SplitPath(wxGetFullModuleName(), &strDir, NULL, NULL);
436 }
437#endif // UNIX/Win
438
439 return strDir.c_str();
440}
441
442wxString wxGetUserHome(const wxString& user)
443{
444 wxString home;
445
446 if ( user.empty() || user == wxGetUserId() )
447 wxGetHomeDir(&home);
448
449 return home;
450}
451
452bool wxGetDiskSpace(const wxString& WXUNUSED_IN_WINCE(path),
453 wxDiskspaceSize_t *WXUNUSED_IN_WINCE(pTotal),
454 wxDiskspaceSize_t *WXUNUSED_IN_WINCE(pFree))
455{
456#ifdef __WXWINCE__
457 // TODO-CE
458 return false;
459#else
460 if ( path.empty() )
461 return false;
462
463// old w32api don't have ULARGE_INTEGER
464#if defined(__WIN32__) && \
465 (!defined(__GNUWIN32__) || wxCHECK_W32API_VERSION( 0, 3 ))
466 // GetDiskFreeSpaceEx() is not available under original Win95, check for
467 // it
468 typedef BOOL (WINAPI *GetDiskFreeSpaceEx_t)(LPCTSTR,
469 PULARGE_INTEGER,
470 PULARGE_INTEGER,
471 PULARGE_INTEGER);
472
473 GetDiskFreeSpaceEx_t
474 pGetDiskFreeSpaceEx = (GetDiskFreeSpaceEx_t)::GetProcAddress
475 (
476 ::GetModuleHandle(_T("kernel32.dll")),
477#if wxUSE_UNICODE
478 "GetDiskFreeSpaceExW"
479#else
480 "GetDiskFreeSpaceExA"
481#endif
482 );
483
484 if ( pGetDiskFreeSpaceEx )
485 {
486 ULARGE_INTEGER bytesFree, bytesTotal;
487
488 // may pass the path as is, GetDiskFreeSpaceEx() is smart enough
489 if ( !pGetDiskFreeSpaceEx(path.fn_str(),
490 &bytesFree,
491 &bytesTotal,
492 NULL) )
493 {
494 wxLogLastError(_T("GetDiskFreeSpaceEx"));
495
496 return false;
497 }
498
499 // ULARGE_INTEGER is a union of a 64 bit value and a struct containing
500 // two 32 bit fields which may be or may be not named - try to make it
501 // compile in all cases
502#if defined(__BORLANDC__) && !defined(_ANONYMOUS_STRUCT)
503 #define UL(ul) ul.u
504#else // anon union
505 #define UL(ul) ul
506#endif
507 if ( pTotal )
508 {
509#if wxUSE_LONGLONG
510 *pTotal = wxDiskspaceSize_t(UL(bytesTotal).HighPart, UL(bytesTotal).LowPart);
511#else
512 *pTotal = wxDiskspaceSize_t(UL(bytesTotal).LowPart);
513#endif
514 }
515
516 if ( pFree )
517 {
518#if wxUSE_LONGLONG
519 *pFree = wxLongLong(UL(bytesFree).HighPart, UL(bytesFree).LowPart);
520#else
521 *pFree = wxDiskspaceSize_t(UL(bytesFree).LowPart);
522#endif
523 }
524 }
525 else
526#endif // Win32
527 {
528 // there's a problem with drives larger than 2GB, GetDiskFreeSpaceEx()
529 // should be used instead - but if it's not available, fall back on
530 // GetDiskFreeSpace() nevertheless...
531
532 DWORD lSectorsPerCluster,
533 lBytesPerSector,
534 lNumberOfFreeClusters,
535 lTotalNumberOfClusters;
536
537 // FIXME: this is wrong, we should extract the root drive from path
538 // instead, but this is the job for wxFileName...
539 if ( !::GetDiskFreeSpace(path.fn_str(),
540 &lSectorsPerCluster,
541 &lBytesPerSector,
542 &lNumberOfFreeClusters,
543 &lTotalNumberOfClusters) )
544 {
545 wxLogLastError(_T("GetDiskFreeSpace"));
546
547 return false;
548 }
549
550 wxDiskspaceSize_t lBytesPerCluster = (wxDiskspaceSize_t) lSectorsPerCluster;
551 lBytesPerCluster *= lBytesPerSector;
552
553 if ( pTotal )
554 {
555 *pTotal = lBytesPerCluster;
556 *pTotal *= lTotalNumberOfClusters;
557 }
558
559 if ( pFree )
560 {
561 *pFree = lBytesPerCluster;
562 *pFree *= lNumberOfFreeClusters;
563 }
564 }
565
566 return true;
567#endif
568 // __WXWINCE__
569}
570
571// ----------------------------------------------------------------------------
572// env vars
573// ----------------------------------------------------------------------------
574
575bool wxGetEnv(const wxString& WXUNUSED_IN_WINCE(var),
576 wxString *WXUNUSED_IN_WINCE(value))
577{
578#ifdef __WXWINCE__
579 // no environment variables under CE
580 return false;
581#else // Win32
582 // first get the size of the buffer
583 DWORD dwRet = ::GetEnvironmentVariable(var.t_str(), NULL, 0);
584 if ( !dwRet )
585 {
586 // this means that there is no such variable
587 return false;
588 }
589
590 if ( value )
591 {
592 (void)::GetEnvironmentVariable(var.t_str(),
593 wxStringBuffer(*value, dwRet),
594 dwRet);
595 }
596
597 return true;
598#endif // WinCE/32
599}
600
601bool wxDoSetEnv(const wxString& var, const wxChar *value)
602{
603#ifdef __WXWINCE__
604 // no environment variables under CE
605 wxUnusedVar(var);
606 wxUnusedVar(value);
607 return false;
608#else // !__WXWINCE__
609 // update the CRT environment if possible as people expect getenv() to also
610 // work and it is not affected by Win32 SetEnvironmentVariable() call (OTOH
611 // the CRT does use Win32 call to update the process environment block so
612 // there is no need to call it)
613 //
614 // TODO: add checks for the other compilers (and update wxSetEnv()
615 // documentation in interface/wx/utils.h accordingly)
616#if defined(__VISUALC__)
617 // notice that Microsoft _putenv() has different semantics from POSIX
618 // function with almost the same name: in particular it makes a copy of the
619 // string instead of using it as part of environment so we can safely call
620 // it here without going through all the troubles with wxSetEnvModule as in
621 // src/unix/utilsunx.cpp
622 wxString envstr = var;
623 envstr += '=';
624 if ( value )
625 envstr += value;
626 _tputenv(envstr.t_str());
627#else // other compiler
628 if ( !::SetEnvironmentVariable(var.t_str(), value) )
629 {
630 wxLogLastError(_T("SetEnvironmentVariable"));
631
632 return false;
633 }
634#endif // compiler
635
636 return true;
637#endif // __WXWINCE__/!__WXWINCE__
638}
639
640bool wxSetEnv(const wxString& variable, const wxString& value)
641{
642 return wxDoSetEnv(variable, value.t_str());
643}
644
645bool wxUnsetEnv(const wxString& variable)
646{
647 return wxDoSetEnv(variable, NULL);
648}
649
650// ----------------------------------------------------------------------------
651// process management
652// ----------------------------------------------------------------------------
653
654// structure used to pass parameters from wxKill() to wxEnumFindByPidProc()
655struct wxFindByPidParams
656{
657 wxFindByPidParams() { hwnd = 0; pid = 0; }
658
659 // the HWND used to return the result
660 HWND hwnd;
661
662 // the PID we're looking from
663 DWORD pid;
664
665 wxDECLARE_NO_COPY_CLASS(wxFindByPidParams);
666};
667
668// wxKill helper: EnumWindows() callback which is used to find the first (top
669// level) window belonging to the given process
670BOOL CALLBACK wxEnumFindByPidProc(HWND hwnd, LPARAM lParam)
671{
672 DWORD pid;
673 (void)::GetWindowThreadProcessId(hwnd, &pid);
674
675 wxFindByPidParams *params = (wxFindByPidParams *)lParam;
676 if ( pid == params->pid )
677 {
678 // remember the window we found
679 params->hwnd = hwnd;
680
681 // return FALSE to stop the enumeration
682 return FALSE;
683 }
684
685 // continue enumeration
686 return TRUE;
687}
688
689int wxKillAllChildren(long pid, wxSignal sig, wxKillError *krc);
690
691int wxKill(long pid, wxSignal sig, wxKillError *krc, int flags)
692{
693 if (flags & wxKILL_CHILDREN)
694 wxKillAllChildren(pid, sig, krc);
695
696 // get the process handle to operate on
697 HANDLE hProcess = ::OpenProcess(SYNCHRONIZE |
698 PROCESS_TERMINATE |
699 PROCESS_QUERY_INFORMATION,
700 FALSE, // not inheritable
701 (DWORD)pid);
702 if ( hProcess == NULL )
703 {
704 if ( krc )
705 {
706 // recognize wxKILL_ACCESS_DENIED as special because this doesn't
707 // mean that the process doesn't exist and this is important for
708 // wxProcess::Exists()
709 *krc = ::GetLastError() == ERROR_ACCESS_DENIED
710 ? wxKILL_ACCESS_DENIED
711 : wxKILL_NO_PROCESS;
712 }
713
714 return -1;
715 }
716
717 wxON_BLOCK_EXIT1(::CloseHandle, hProcess);
718
719 bool ok = true;
720 switch ( sig )
721 {
722 case wxSIGKILL:
723 // kill the process forcefully returning -1 as error code
724 if ( !::TerminateProcess(hProcess, (UINT)-1) )
725 {
726 wxLogSysError(_("Failed to kill process %d"), pid);
727
728 if ( krc )
729 {
730 // this is not supposed to happen if we could open the
731 // process
732 *krc = wxKILL_ERROR;
733 }
734
735 ok = false;
736 }
737 break;
738
739 case wxSIGNONE:
740 // do nothing, we just want to test for process existence
741 if ( krc )
742 *krc = wxKILL_OK;
743 return 0;
744
745 default:
746 // any other signal means "terminate"
747 {
748 wxFindByPidParams params;
749 params.pid = (DWORD)pid;
750
751 // EnumWindows() has nice semantics: it returns 0 if it found
752 // something or if an error occurred and non zero if it
753 // enumerated all the window
754 if ( !::EnumWindows(wxEnumFindByPidProc, (LPARAM)&params) )
755 {
756 // did we find any window?
757 if ( params.hwnd )
758 {
759 // tell the app to close
760 //
761 // NB: this is the harshest way, the app won't have an
762 // opportunity to save any files, for example, but
763 // this is probably what we want here. If not we
764 // can also use SendMesageTimeout(WM_CLOSE)
765 if ( !::PostMessage(params.hwnd, WM_QUIT, 0, 0) )
766 {
767 wxLogLastError(_T("PostMessage(WM_QUIT)"));
768 }
769 }
770 else // it was an error then
771 {
772 wxLogLastError(_T("EnumWindows"));
773
774 ok = false;
775 }
776 }
777 else // no windows for this PID
778 {
779 if ( krc )
780 *krc = wxKILL_ERROR;
781
782 ok = false;
783 }
784 }
785 }
786
787 // the return code
788 DWORD rc wxDUMMY_INITIALIZE(0);
789 if ( ok )
790 {
791 // as we wait for a short time, we can use just WaitForSingleObject()
792 // and not MsgWaitForMultipleObjects()
793 switch ( ::WaitForSingleObject(hProcess, 500 /* msec */) )
794 {
795 case WAIT_OBJECT_0:
796 // process terminated
797 if ( !::GetExitCodeProcess(hProcess, &rc) )
798 {
799 wxLogLastError(_T("GetExitCodeProcess"));
800 }
801 break;
802
803 default:
804 wxFAIL_MSG( _T("unexpected WaitForSingleObject() return") );
805 // fall through
806
807 case WAIT_FAILED:
808 wxLogLastError(_T("WaitForSingleObject"));
809 // fall through
810
811 case WAIT_TIMEOUT:
812 if ( krc )
813 *krc = wxKILL_ERROR;
814
815 rc = STILL_ACTIVE;
816 break;
817 }
818 }
819
820
821 // the return code is the same as from Unix kill(): 0 if killed
822 // successfully or -1 on error
823 if ( !ok || rc == STILL_ACTIVE )
824 return -1;
825
826 if ( krc )
827 *krc = wxKILL_OK;
828
829 return 0;
830}
831
832typedef HANDLE (WINAPI *CreateToolhelp32Snapshot_t)(DWORD,DWORD);
833typedef BOOL (WINAPI *Process32_t)(HANDLE,LPPROCESSENTRY32);
834
835CreateToolhelp32Snapshot_t lpfCreateToolhelp32Snapshot;
836Process32_t lpfProcess32First, lpfProcess32Next;
837
838static void InitToolHelp32()
839{
840 static bool s_initToolHelpDone = false;
841
842 if (s_initToolHelpDone)
843 return;
844
845 s_initToolHelpDone = true;
846
847 lpfCreateToolhelp32Snapshot = NULL;
848 lpfProcess32First = NULL;
849 lpfProcess32Next = NULL;
850
851#if wxUSE_DYNLIB_CLASS
852
853 wxDynamicLibrary dllKernel(_T("kernel32.dll"), wxDL_VERBATIM);
854
855 // Get procedure addresses.
856 // We are linking to these functions of Kernel32
857 // explicitly, because otherwise a module using
858 // this code would fail to load under Windows NT,
859 // which does not have the Toolhelp32
860 // functions in the Kernel 32.
861 lpfCreateToolhelp32Snapshot =
862 (CreateToolhelp32Snapshot_t)dllKernel.RawGetSymbol(_T("CreateToolhelp32Snapshot"));
863
864 lpfProcess32First =
865 (Process32_t)dllKernel.RawGetSymbol(_T("Process32First"));
866
867 lpfProcess32Next =
868 (Process32_t)dllKernel.RawGetSymbol(_T("Process32Next"));
869
870#endif // wxUSE_DYNLIB_CLASS
871}
872
873// By John Skiff
874int wxKillAllChildren(long pid, wxSignal sig, wxKillError *krc)
875{
876 InitToolHelp32();
877
878 if (krc)
879 *krc = wxKILL_OK;
880
881 // If not implemented for this platform (e.g. NT 4.0), silently ignore
882 if (!lpfCreateToolhelp32Snapshot || !lpfProcess32First || !lpfProcess32Next)
883 return 0;
884
885 // Take a snapshot of all processes in the system.
886 HANDLE hProcessSnap = lpfCreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
887 if (hProcessSnap == INVALID_HANDLE_VALUE) {
888 if (krc)
889 *krc = wxKILL_ERROR;
890 return -1;
891 }
892
893 //Fill in the size of the structure before using it.
894 PROCESSENTRY32 pe;
895 wxZeroMemory(pe);
896 pe.dwSize = sizeof(PROCESSENTRY32);
897
898 // Walk the snapshot of the processes, and for each process,
899 // kill it if its parent is pid.
900 if (!lpfProcess32First(hProcessSnap, &pe)) {
901 // Can't get first process.
902 if (krc)
903 *krc = wxKILL_ERROR;
904 CloseHandle (hProcessSnap);
905 return -1;
906 }
907
908 do {
909 if (pe.th32ParentProcessID == (DWORD) pid) {
910 if (wxKill(pe.th32ProcessID, sig, krc))
911 return -1;
912 }
913 } while (lpfProcess32Next (hProcessSnap, &pe));
914
915
916 return 0;
917}
918
919// Execute a program in an Interactive Shell
920bool wxShell(const wxString& command)
921{
922 wxString cmd;
923
924#ifdef __WXWINCE__
925 cmd = command;
926#else
927 wxChar *shell = wxGetenv(wxT("COMSPEC"));
928 if ( !shell )
929 shell = (wxChar*) wxT("\\COMMAND.COM");
930
931 if ( !command )
932 {
933 // just the shell
934 cmd = shell;
935 }
936 else
937 {
938 // pass the command to execute to the command processor
939 cmd.Printf(wxT("%s /c %s"), shell, command.c_str());
940 }
941#endif
942
943 return wxExecute(cmd, wxEXEC_SYNC) == 0;
944}
945
946// Shutdown or reboot the PC
947bool wxShutdown(int WXUNUSED_IN_WINCE(flags))
948{
949#ifdef __WXWINCE__
950 // TODO-CE
951 return false;
952#elif defined(__WIN32__)
953 bool bOK = true;
954
955 if ( wxGetOsVersion(NULL, NULL) == wxOS_WINDOWS_NT ) // if is NT or 2K
956 {
957 // Get a token for this process.
958 HANDLE hToken;
959 bOK = ::OpenProcessToken(GetCurrentProcess(),
960 TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY,
961 &hToken) != 0;
962 if ( bOK )
963 {
964 TOKEN_PRIVILEGES tkp;
965
966 // Get the LUID for the shutdown privilege.
967 bOK = ::LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME,
968 &tkp.Privileges[0].Luid) != 0;
969
970 if ( bOK )
971 {
972 tkp.PrivilegeCount = 1; // one privilege to set
973 tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
974
975 // Get the shutdown privilege for this process.
976 ::AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,
977 (PTOKEN_PRIVILEGES)NULL, 0);
978
979 // Cannot test the return value of AdjustTokenPrivileges.
980 bOK = ::GetLastError() == ERROR_SUCCESS;
981 }
982
983 ::CloseHandle(hToken);
984 }
985 }
986
987 if ( bOK )
988 {
989 UINT wFlags = 0;
990 if ( flags & wxSHUTDOWN_FORCE )
991 {
992 wFlags = EWX_FORCE;
993 flags &= ~wxSHUTDOWN_FORCE;
994 }
995
996 switch ( flags )
997 {
998 case wxSHUTDOWN_POWEROFF:
999 wFlags |= EWX_POWEROFF;
1000 break;
1001
1002 case wxSHUTDOWN_REBOOT:
1003 wFlags |= EWX_REBOOT;
1004 break;
1005
1006 case wxSHUTDOWN_LOGOFF:
1007 wFlags |= EWX_LOGOFF;
1008 break;
1009
1010 default:
1011 wxFAIL_MSG( _T("unknown wxShutdown() flag") );
1012 return false;
1013 }
1014
1015 bOK = ::ExitWindowsEx(wFlags, 0) != 0;
1016 }
1017
1018 return bOK;
1019#endif // WinCE/!WinCE
1020}
1021
1022// ----------------------------------------------------------------------------
1023// misc
1024// ----------------------------------------------------------------------------
1025
1026// Get free memory in bytes, or -1 if cannot determine amount (e.g. on UNIX)
1027wxMemorySize wxGetFreeMemory()
1028{
1029#if defined(__WIN64__)
1030 MEMORYSTATUSEX memStatex;
1031 memStatex.dwLength = sizeof (memStatex);
1032 ::GlobalMemoryStatusEx (&memStatex);
1033 return (wxMemorySize)memStatex.ullAvailPhys;
1034#else /* if defined(__WIN32__) */
1035 MEMORYSTATUS memStatus;
1036 memStatus.dwLength = sizeof(MEMORYSTATUS);
1037 ::GlobalMemoryStatus(&memStatus);
1038 return (wxMemorySize)memStatus.dwAvailPhys;
1039#endif
1040}
1041
1042unsigned long wxGetProcessId()
1043{
1044 return ::GetCurrentProcessId();
1045}
1046
1047// Emit a beeeeeep
1048void wxBell()
1049{
1050 ::MessageBeep((UINT)-1); // default sound
1051}
1052
1053bool wxIsDebuggerRunning()
1054{
1055#if wxUSE_DYNLIB_CLASS
1056 // IsDebuggerPresent() is not available under Win95, so load it dynamically
1057 wxDynamicLibrary dll(_T("kernel32.dll"), wxDL_VERBATIM);
1058
1059 typedef BOOL (WINAPI *IsDebuggerPresent_t)();
1060 if ( !dll.HasSymbol(_T("IsDebuggerPresent")) )
1061 {
1062 // no way to know, assume no
1063 return false;
1064 }
1065
1066 return (*(IsDebuggerPresent_t)dll.GetSymbol(_T("IsDebuggerPresent")))() != 0;
1067#else
1068 return false;
1069#endif
1070}
1071
1072// ----------------------------------------------------------------------------
1073// OS version
1074// ----------------------------------------------------------------------------
1075
1076// check if we're running under a server or workstation Windows system: it
1077// returns true or false with obvious meaning as well as -1 if the system type
1078// couldn't be determined
1079//
1080// this function is currently private but we may want to expose it later if
1081// it's really useful
1082namespace
1083{
1084
1085int wxIsWindowsServer()
1086{
1087#ifdef VER_NT_WORKSTATION
1088 OSVERSIONINFOEX info;
1089 wxZeroMemory(info);
1090
1091 info.dwOSVersionInfoSize = sizeof(info);
1092 if ( ::GetVersionEx(reinterpret_cast<OSVERSIONINFO *>(&info)) )
1093 {
1094 switch ( info.wProductType )
1095 {
1096 case VER_NT_WORKSTATION:
1097 return false;
1098
1099 case VER_NT_SERVER:
1100 case VER_NT_DOMAIN_CONTROLLER:
1101 return true;
1102 }
1103 }
1104#endif // VER_NT_WORKSTATION
1105
1106 return -1;
1107}
1108
1109} // anonymous namespace
1110
1111wxString wxGetOsDescription()
1112{
1113 wxString str;
1114
1115 OSVERSIONINFO info;
1116 wxZeroMemory(info);
1117
1118 info.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
1119 if ( ::GetVersionEx(&info) )
1120 {
1121 switch ( info.dwPlatformId )
1122 {
1123#ifdef VER_PLATFORM_WIN32_CE
1124 case VER_PLATFORM_WIN32_CE:
1125 str.Printf(_("Windows CE (%d.%d)"),
1126 info.dwMajorVersion,
1127 info.dwMinorVersion);
1128 break;
1129#endif
1130 case VER_PLATFORM_WIN32s:
1131 str = _("Win32s on Windows 3.1");
1132 break;
1133
1134 case VER_PLATFORM_WIN32_WINDOWS:
1135 switch (info.dwMinorVersion)
1136 {
1137 case 0:
1138 if ( info.szCSDVersion[1] == 'B' ||
1139 info.szCSDVersion[1] == 'C' )
1140 {
1141 str = _("Windows 95 OSR2");
1142 }
1143 else
1144 {
1145 str = _("Windows 95");
1146 }
1147 break;
1148 case 10:
1149 if ( info.szCSDVersion[1] == 'B' ||
1150 info.szCSDVersion[1] == 'C' )
1151 {
1152 str = _("Windows 98 SE");
1153 }
1154 else
1155 {
1156 str = _("Windows 98");
1157 }
1158 break;
1159 case 90:
1160 str = _("Windows ME");
1161 break;
1162 default:
1163 str.Printf(_("Windows 9x (%d.%d)"),
1164 info.dwMajorVersion,
1165 info.dwMinorVersion);
1166 break;
1167 }
1168 if ( !wxIsEmpty(info.szCSDVersion) )
1169 {
1170 str << _T(" (") << info.szCSDVersion << _T(')');
1171 }
1172 break;
1173
1174 case VER_PLATFORM_WIN32_NT:
1175 switch ( info.dwMajorVersion )
1176 {
1177 case 5:
1178 switch ( info.dwMinorVersion )
1179 {
1180 case 0:
1181 str.Printf(_("Windows 2000 (build %lu"),
1182 info.dwBuildNumber);
1183 break;
1184
1185 case 2:
1186 // we can't distinguish between XP 64 and 2003
1187 // as they both are 5.2, so examine the product
1188 // type to resolve this ambiguity
1189 if ( wxIsWindowsServer() == 1 )
1190 {
1191 str.Printf(_("Windows Server 2003 (build %lu"),
1192 info.dwBuildNumber);
1193 break;
1194 }
1195 //else: must be XP, fall through
1196
1197 case 1:
1198 str.Printf(_("Windows XP (build %lu"),
1199 info.dwBuildNumber);
1200 break;
1201 }
1202 break;
1203
1204 case 6:
1205 if ( info.dwMinorVersion == 0 )
1206 {
1207 str.Printf(_("Windows Vista (build %lu"),
1208 info.dwBuildNumber);
1209 }
1210 break;
1211 }
1212
1213 if ( str.empty() )
1214 {
1215 str.Printf(_("Windows NT %lu.%lu (build %lu"),
1216 info.dwMajorVersion,
1217 info.dwMinorVersion,
1218 info.dwBuildNumber);
1219 }
1220
1221 if ( !wxIsEmpty(info.szCSDVersion) )
1222 {
1223 str << _T(", ") << info.szCSDVersion;
1224 }
1225 str << _T(')');
1226
1227 if ( wxIsPlatform64Bit() )
1228 str << _(", 64-bit edition");
1229 break;
1230 }
1231 }
1232 else
1233 {
1234 wxFAIL_MSG( _T("GetVersionEx() failed") ); // should never happen
1235 }
1236
1237 return str;
1238}
1239
1240bool wxIsPlatform64Bit()
1241{
1242#if defined(_WIN64)
1243 return true; // 64-bit programs run only on Win64
1244#elif wxUSE_DYNLIB_CLASS // Win32
1245 // 32-bit programs run on both 32-bit and 64-bit Windows so check
1246 typedef BOOL (WINAPI *IsWow64Process_t)(HANDLE, BOOL *);
1247
1248 wxDynamicLibrary dllKernel32(_T("kernel32.dll"));
1249 IsWow64Process_t pfnIsWow64Process =
1250 (IsWow64Process_t)dllKernel32.RawGetSymbol(_T("IsWow64Process"));
1251
1252 BOOL wow64 = FALSE;
1253 if ( pfnIsWow64Process )
1254 {
1255 pfnIsWow64Process(::GetCurrentProcess(), &wow64);
1256 }
1257 //else: running under a system without Win64 support
1258
1259 return wow64 != FALSE;
1260#else
1261 return false;
1262#endif // Win64/Win32
1263}
1264
1265wxOperatingSystemId wxGetOsVersion(int *verMaj, int *verMin)
1266{
1267 static struct
1268 {
1269 // this may be false, true or -1 if we tried to initialize but failed
1270 int initialized;
1271
1272 wxOperatingSystemId os;
1273
1274 int verMaj,
1275 verMin;
1276 } s_version;
1277
1278 // query the OS info only once as it's not supposed to change
1279 if ( !s_version.initialized )
1280 {
1281 OSVERSIONINFO info;
1282 wxZeroMemory(info);
1283 info.dwOSVersionInfoSize = sizeof(info);
1284 if ( ::GetVersionEx(&info) )
1285 {
1286 s_version.initialized = true;
1287
1288#if defined(__WXWINCE__)
1289 s_version.os = wxOS_WINDOWS_CE;
1290#elif defined(__WXMICROWIN__)
1291 s_version.os = wxOS_WINDOWS_MICRO;
1292#else // "normal" desktop Windows system, use run-time detection
1293 switch ( info.dwPlatformId )
1294 {
1295 case VER_PLATFORM_WIN32_NT:
1296 s_version.os = wxOS_WINDOWS_NT;
1297 break;
1298
1299 case VER_PLATFORM_WIN32_WINDOWS:
1300 s_version.os = wxOS_WINDOWS_9X;
1301 break;
1302 }
1303#endif // Windows versions
1304
1305 s_version.verMaj = info.dwMajorVersion;
1306 s_version.verMin = info.dwMinorVersion;
1307 }
1308 else // GetVersionEx() failed
1309 {
1310 s_version.initialized = -1;
1311 }
1312 }
1313
1314 if ( s_version.initialized == 1 )
1315 {
1316 if ( verMaj )
1317 *verMaj = s_version.verMaj;
1318 if ( verMin )
1319 *verMin = s_version.verMin;
1320 }
1321
1322 // this works even if we were not initialized successfully as the initial
1323 // values of this field is 0 which is wxOS_UNKNOWN and exactly what we need
1324 return s_version.os;
1325}
1326
1327wxWinVersion wxGetWinVersion()
1328{
1329 int verMaj,
1330 verMin;
1331 switch ( wxGetOsVersion(&verMaj, &verMin) )
1332 {
1333 case wxOS_WINDOWS_9X:
1334 if ( verMaj == 4 )
1335 {
1336 switch ( verMin )
1337 {
1338 case 0:
1339 return wxWinVersion_95;
1340
1341 case 10:
1342 return wxWinVersion_98;
1343
1344 case 90:
1345 return wxWinVersion_ME;
1346 }
1347 }
1348 break;
1349
1350 case wxOS_WINDOWS_NT:
1351 switch ( verMaj )
1352 {
1353 case 3:
1354 return wxWinVersion_NT3;
1355
1356 case 4:
1357 return wxWinVersion_NT4;
1358
1359 case 5:
1360 switch ( verMin )
1361 {
1362 case 0:
1363 return wxWinVersion_2000;
1364
1365 case 1:
1366 return wxWinVersion_XP;
1367
1368 case 2:
1369 return wxWinVersion_2003;
1370 }
1371 break;
1372
1373 case 6:
1374 return wxWinVersion_NT6;
1375 }
1376 break;
1377
1378 default:
1379 // Do nothing just to silence GCC warning
1380 break;
1381 }
1382
1383 return wxWinVersion_Unknown;
1384}
1385
1386// ----------------------------------------------------------------------------
1387// sleep functions
1388// ----------------------------------------------------------------------------
1389
1390void wxMilliSleep(unsigned long milliseconds)
1391{
1392 ::Sleep(milliseconds);
1393}
1394
1395void wxMicroSleep(unsigned long microseconds)
1396{
1397 wxMilliSleep(microseconds/1000);
1398}
1399
1400void wxSleep(int nSecs)
1401{
1402 wxMilliSleep(1000*nSecs);
1403}
1404
1405// ----------------------------------------------------------------------------
1406// font encoding <-> Win32 codepage conversion functions
1407// ----------------------------------------------------------------------------
1408
1409extern WXDLLIMPEXP_BASE long wxEncodingToCharset(wxFontEncoding encoding)
1410{
1411 switch ( encoding )
1412 {
1413 // although this function is supposed to return an exact match, do do
1414 // some mappings here for the most common case of "standard" encoding
1415 case wxFONTENCODING_SYSTEM:
1416 return DEFAULT_CHARSET;
1417
1418 case wxFONTENCODING_ISO8859_1:
1419 case wxFONTENCODING_ISO8859_15:
1420 case wxFONTENCODING_CP1252:
1421 return ANSI_CHARSET;
1422
1423#if !defined(__WXMICROWIN__)
1424 // The following four fonts are multi-byte charsets
1425 case wxFONTENCODING_CP932:
1426 return SHIFTJIS_CHARSET;
1427
1428 case wxFONTENCODING_CP936:
1429 return GB2312_CHARSET;
1430
1431#ifndef __WXWINCE__
1432 case wxFONTENCODING_CP949:
1433 return HANGUL_CHARSET;
1434#endif
1435
1436 case wxFONTENCODING_CP950:
1437 return CHINESEBIG5_CHARSET;
1438
1439 // The rest are single byte encodings
1440 case wxFONTENCODING_CP1250:
1441 return EASTEUROPE_CHARSET;
1442
1443 case wxFONTENCODING_CP1251:
1444 return RUSSIAN_CHARSET;
1445
1446 case wxFONTENCODING_CP1253:
1447 return GREEK_CHARSET;
1448
1449 case wxFONTENCODING_CP1254:
1450 return TURKISH_CHARSET;
1451
1452 case wxFONTENCODING_CP1255:
1453 return HEBREW_CHARSET;
1454
1455 case wxFONTENCODING_CP1256:
1456 return ARABIC_CHARSET;
1457
1458 case wxFONTENCODING_CP1257:
1459 return BALTIC_CHARSET;
1460
1461 case wxFONTENCODING_CP874:
1462 return THAI_CHARSET;
1463#endif // !__WXMICROWIN__
1464
1465 case wxFONTENCODING_CP437:
1466 return OEM_CHARSET;
1467
1468 default:
1469 // no way to translate this encoding into a Windows charset
1470 return -1;
1471 }
1472}
1473
1474// we have 2 versions of wxCharsetToCodepage(): the old one which directly
1475// looks up the vlaues in the registry and the new one which is more
1476// politically correct and has more chances to work on other Windows versions
1477// as well but the old version is still needed for !wxUSE_FONTMAP case
1478#if wxUSE_FONTMAP
1479
1480#include "wx/fontmap.h"
1481
1482extern WXDLLIMPEXP_BASE long wxEncodingToCodepage(wxFontEncoding encoding)
1483{
1484 // There don't seem to be symbolic names for
1485 // these under Windows so I just copied the
1486 // values from MSDN.
1487
1488 unsigned int ret;
1489
1490 switch (encoding)
1491 {
1492 case wxFONTENCODING_ISO8859_1: ret = 28591; break;
1493 case wxFONTENCODING_ISO8859_2: ret = 28592; break;
1494 case wxFONTENCODING_ISO8859_3: ret = 28593; break;
1495 case wxFONTENCODING_ISO8859_4: ret = 28594; break;
1496 case wxFONTENCODING_ISO8859_5: ret = 28595; break;
1497 case wxFONTENCODING_ISO8859_6: ret = 28596; break;
1498 case wxFONTENCODING_ISO8859_7: ret = 28597; break;
1499 case wxFONTENCODING_ISO8859_8: ret = 28598; break;
1500 case wxFONTENCODING_ISO8859_9: ret = 28599; break;
1501 case wxFONTENCODING_ISO8859_10: ret = 28600; break;
1502 case wxFONTENCODING_ISO8859_11: ret = 874; break;
1503 // case wxFONTENCODING_ISO8859_12, // doesn't exist currently, but put it
1504 case wxFONTENCODING_ISO8859_13: ret = 28603; break;
1505 // case wxFONTENCODING_ISO8859_14: ret = 28604; break; // no correspondence on Windows
1506 case wxFONTENCODING_ISO8859_15: ret = 28605; break;
1507
1508 case wxFONTENCODING_KOI8: ret = 20866; break;
1509 case wxFONTENCODING_KOI8_U: ret = 21866; break;
1510
1511 case wxFONTENCODING_CP437: ret = 437; break;
1512 case wxFONTENCODING_CP850: ret = 850; break;
1513 case wxFONTENCODING_CP852: ret = 852; break;
1514 case wxFONTENCODING_CP855: ret = 855; break;
1515 case wxFONTENCODING_CP866: ret = 866; break;
1516 case wxFONTENCODING_CP874: ret = 874; break;
1517 case wxFONTENCODING_CP932: ret = 932; break;
1518 case wxFONTENCODING_CP936: ret = 936; break;
1519 case wxFONTENCODING_CP949: ret = 949; break;
1520 case wxFONTENCODING_CP950: ret = 950; break;
1521 case wxFONTENCODING_CP1250: ret = 1250; break;
1522 case wxFONTENCODING_CP1251: ret = 1251; break;
1523 case wxFONTENCODING_CP1252: ret = 1252; break;
1524 case wxFONTENCODING_CP1253: ret = 1253; break;
1525 case wxFONTENCODING_CP1254: ret = 1254; break;
1526 case wxFONTENCODING_CP1255: ret = 1255; break;
1527 case wxFONTENCODING_CP1256: ret = 1256; break;
1528 case wxFONTENCODING_CP1257: ret = 1257; break;
1529
1530 case wxFONTENCODING_EUC_JP: ret = 20932; break;
1531
1532 case wxFONTENCODING_MACROMAN: ret = 10000; break;
1533 case wxFONTENCODING_MACJAPANESE: ret = 10001; break;
1534 case wxFONTENCODING_MACCHINESETRAD: ret = 10002; break;
1535 case wxFONTENCODING_MACKOREAN: ret = 10003; break;
1536 case wxFONTENCODING_MACARABIC: ret = 10004; break;
1537 case wxFONTENCODING_MACHEBREW: ret = 10005; break;
1538 case wxFONTENCODING_MACGREEK: ret = 10006; break;
1539 case wxFONTENCODING_MACCYRILLIC: ret = 10007; break;
1540 case wxFONTENCODING_MACTHAI: ret = 10021; break;
1541 case wxFONTENCODING_MACCHINESESIMP: ret = 10008; break;
1542 case wxFONTENCODING_MACCENTRALEUR: ret = 10029; break;
1543 case wxFONTENCODING_MACCROATIAN: ret = 10082; break;
1544 case wxFONTENCODING_MACICELANDIC: ret = 10079; break;
1545 case wxFONTENCODING_MACROMANIAN: ret = 10009; break;
1546
1547 case wxFONTENCODING_ISO2022_JP: ret = 50222; break;
1548
1549 case wxFONTENCODING_UTF7: ret = 65000; break;
1550 case wxFONTENCODING_UTF8: ret = 65001; break;
1551
1552 default: return -1;
1553 }
1554
1555 if (::IsValidCodePage(ret) == 0)
1556 return -1;
1557
1558 CPINFO info;
1559 if (::GetCPInfo(ret, &info) == 0)
1560 return -1;
1561
1562 return (long) ret;
1563}
1564
1565extern long wxCharsetToCodepage(const char *name)
1566{
1567 // first get the font encoding for this charset
1568 if ( !name )
1569 return -1;
1570
1571 wxFontEncoding enc = wxFontMapperBase::Get()->CharsetToEncoding(name, false);
1572 if ( enc == wxFONTENCODING_SYSTEM )
1573 return -1;
1574
1575 // the use the helper function
1576 return wxEncodingToCodepage(enc);
1577}
1578
1579#else // !wxUSE_FONTMAP
1580
1581#include "wx/msw/registry.h"
1582
1583// this should work if Internet Exploiter is installed
1584extern long wxCharsetToCodepage(const char *name)
1585{
1586 if (!name)
1587 return GetACP();
1588
1589 long CP = -1;
1590
1591#if wxUSE_REGKEY
1592 wxString path(wxT("MIME\\Database\\Charset\\"));
1593 wxString cn(name);
1594
1595 // follow the alias loop
1596 for ( ;; )
1597 {
1598 wxRegKey key(wxRegKey::HKCR, path + cn);
1599
1600 if (!key.Exists())
1601 break;
1602
1603 // two cases: either there's an AliasForCharset string,
1604 // or there are Codepage and InternetEncoding dwords.
1605 // The InternetEncoding gives us the actual encoding,
1606 // the Codepage just says which Windows character set to
1607 // use when displaying the data.
1608 if (key.HasValue(wxT("InternetEncoding")) &&
1609 key.QueryValue(wxT("InternetEncoding"), &CP))
1610 break;
1611
1612 // no encoding, see if it's an alias
1613 if (!key.HasValue(wxT("AliasForCharset")) ||
1614 !key.QueryValue(wxT("AliasForCharset"), cn))
1615 break;
1616 }
1617#endif // wxUSE_REGKEY
1618
1619 return CP;
1620}
1621
1622#endif // wxUSE_FONTMAP/!wxUSE_FONTMAP
1623
1624/*
1625 Creates a hidden window with supplied window proc registering the class for
1626 it if necesssary (i.e. the first time only). Caller is responsible for
1627 destroying the window and unregistering the class (note that this must be
1628 done because wxWidgets may be used as a DLL and so may be loaded/unloaded
1629 multiple times into/from the same process so we cna't rely on automatic
1630 Windows class unregistration).
1631
1632 pclassname is a pointer to a caller stored classname, which must initially be
1633 NULL. classname is the desired wndclass classname. If function successfully
1634 registers the class, pclassname will be set to classname.
1635 */
1636extern "C" WXDLLIMPEXP_BASE HWND
1637wxCreateHiddenWindow(LPCTSTR *pclassname, LPCTSTR classname, WNDPROC wndproc)
1638{
1639 wxCHECK_MSG( classname && pclassname && wndproc, NULL,
1640 _T("NULL parameter in wxCreateHiddenWindow") );
1641
1642 // register the class fi we need to first
1643 if ( *pclassname == NULL )
1644 {
1645 WNDCLASS wndclass;
1646 wxZeroMemory(wndclass);
1647
1648 wndclass.lpfnWndProc = wndproc;
1649 wndclass.hInstance = wxGetInstance();
1650 wndclass.lpszClassName = classname;
1651
1652 if ( !::RegisterClass(&wndclass) )
1653 {
1654 wxLogLastError(wxT("RegisterClass() in wxCreateHiddenWindow"));
1655
1656 return NULL;
1657 }
1658
1659 *pclassname = classname;
1660 }
1661
1662 // next create the window
1663 HWND hwnd = ::CreateWindow
1664 (
1665 *pclassname,
1666 NULL,
1667 0, 0, 0, 0,
1668 0,
1669 (HWND) NULL,
1670 (HMENU)NULL,
1671 wxGetInstance(),
1672 (LPVOID) NULL
1673 );
1674
1675 if ( !hwnd )
1676 {
1677 wxLogLastError(wxT("CreateWindow() in wxCreateHiddenWindow"));
1678 }
1679
1680 return hwnd;
1681}
wxWidgets (Impactor)