1546 lines
37 KiB
C
1546 lines
37 KiB
C
/*++
|
|
|
|
Copyright (c) 1995 Microsoft Corporation
|
|
|
|
Module Name:
|
|
|
|
intl.c
|
|
|
|
Abstract:
|
|
|
|
Module with code for NLS-related stuff.
|
|
This module is designed to be used with intl.inf and font.inf
|
|
by control panel applets.
|
|
|
|
Author:
|
|
|
|
Ted Miller (tedm) 15-Aug-1995
|
|
|
|
Revision History:
|
|
|
|
--*/
|
|
|
|
#include "setupp.h"
|
|
#pragma hdrstop
|
|
|
|
|
|
//
|
|
// This structure and the callback function below are used to set the
|
|
// hidden attribute bit on certain font files. That bit causes the font folder
|
|
// app to not autoinstall these files.
|
|
//
|
|
typedef struct _FONTQCONTEXT {
|
|
PVOID SetupQueueContext;
|
|
HINF FontInf;
|
|
} FONTQCONTEXT, *PFONTQCONTEXT;
|
|
|
|
PCWSTR szHiddenFontFiles = L"HiddenFontFiles";
|
|
|
|
VOID
|
|
pSetLocaleSummaryText(
|
|
IN HWND hdlg
|
|
);
|
|
|
|
VOID
|
|
pSetKeyboardLayoutSummaryText(
|
|
IN HWND hdlg
|
|
);
|
|
|
|
|
|
void
|
|
pSetupRunRegApps()
|
|
{
|
|
HKEY hkey;
|
|
BOOL bOK = TRUE;
|
|
DWORD cbData, cbValue, dwType, ctr;
|
|
TCHAR szValueName[32], szCmdLine[MAX_PATH];
|
|
STARTUPINFO startup;
|
|
PROCESS_INFORMATION pi;
|
|
|
|
if (RegOpenKey( HKEY_LOCAL_MACHINE,
|
|
TEXT("Software\\Microsoft\\Windows\\CurrentVersion\\IntlRun"),
|
|
&hkey ) == ERROR_SUCCESS)
|
|
{
|
|
startup.cb = sizeof(STARTUPINFO);
|
|
startup.lpReserved = NULL;
|
|
startup.lpDesktop = NULL;
|
|
startup.lpTitle = NULL;
|
|
startup.dwFlags = 0L;
|
|
startup.cbReserved2 = 0;
|
|
startup.lpReserved2 = NULL;
|
|
// startup.wShowWindow = wShowWindow;
|
|
|
|
for (ctr = 0; ; ctr++)
|
|
{
|
|
LONG lEnum;
|
|
|
|
cbValue = sizeof(szValueName) / sizeof(TCHAR);
|
|
cbData = sizeof(szCmdLine);
|
|
|
|
if ((lEnum = RegEnumValue( hkey,
|
|
ctr,
|
|
szValueName,
|
|
&cbValue,
|
|
NULL,
|
|
&dwType,
|
|
(LPBYTE)szCmdLine,
|
|
&cbData )) == ERROR_MORE_DATA)
|
|
{
|
|
//
|
|
// ERROR_MORE_DATA means the value name or data was too
|
|
// large, so skip to the next item.
|
|
//
|
|
continue;
|
|
}
|
|
else if (lEnum != ERROR_SUCCESS)
|
|
{
|
|
//
|
|
// This could be ERROR_NO_MORE_ENTRIES, or some kind of
|
|
// failure. We can't recover from any other registry
|
|
// problem anyway.
|
|
//
|
|
break;
|
|
}
|
|
|
|
//
|
|
// Found a value.
|
|
//
|
|
if (dwType == REG_SZ)
|
|
{
|
|
//
|
|
// Adjust for shift in value index.
|
|
//
|
|
ctr--;
|
|
|
|
//
|
|
// Delete the value.
|
|
//
|
|
RegDeleteValue(hkey, szValueName);
|
|
|
|
//
|
|
// Only run things marked with a "*" in clean boot.
|
|
//
|
|
if (CreateProcess( NULL,
|
|
szCmdLine,
|
|
NULL,
|
|
NULL,
|
|
FALSE,
|
|
CREATE_NEW_PROCESS_GROUP,
|
|
NULL,
|
|
NULL,
|
|
&startup,
|
|
&pi ))
|
|
{
|
|
WaitForSingleObjectEx(pi.hProcess, INFINITE, TRUE);
|
|
|
|
CloseHandle(pi.hProcess);
|
|
CloseHandle(pi.hThread);
|
|
}
|
|
}
|
|
}
|
|
RegCloseKey(hkey);
|
|
}
|
|
}
|
|
|
|
|
|
VOID
|
|
InstallServerNLSFiles(
|
|
IN HWND Window
|
|
)
|
|
|
|
/*++
|
|
|
|
Routine Description:
|
|
|
|
Installs a bunch of code pages for servers. We install sections in intl.inf
|
|
named [CODEPAGE_INSTALL_<n>], where the values for <n> are listed in the
|
|
section [CodePages].
|
|
|
|
Arguments:
|
|
|
|
Window - handle to parent window
|
|
|
|
Return Value:
|
|
|
|
None.
|
|
|
|
--*/
|
|
|
|
{
|
|
HINF hInf;
|
|
INFCONTEXT InfContext;
|
|
BOOL b;
|
|
PCWSTR CodePage;
|
|
WCHAR InstallSection[30];
|
|
HSPFILEQ FileQueue;
|
|
DWORD QueueFlags;
|
|
PVOID pQueueContext;
|
|
|
|
|
|
hInf = SetupOpenInfFile(L"INTL.INF",NULL,INF_STYLE_WIN4,NULL);
|
|
if(hInf == INVALID_HANDLE_VALUE) {
|
|
SetupDebugPrint( L"SETUP: pSetupInstallNLSFiles: Unable to open intl.inf" );
|
|
return;
|
|
}
|
|
|
|
if(!SetupOpenAppendInfFile( NULL, hInf, NULL )) {
|
|
SetupDebugPrint( L"SETUP: pSetupInstallNLSFiles: Unable to open intl.inf layout" );
|
|
return;
|
|
}
|
|
|
|
if(!SetupFindFirstLine(hInf,L"CodePages",NULL,&InfContext)) {
|
|
SetupDebugPrint( L"SETUP: pSetupInstallNLSFiles: Unable to find [CodePages] section" );
|
|
goto c1;
|
|
}
|
|
|
|
//
|
|
// Create a setup file queue and initialize default Setup copy queue
|
|
// callback context.
|
|
//
|
|
QueueFlags = SP_COPY_FORCE_NOOVERWRITE;
|
|
FileQueue = SetupOpenFileQueue();
|
|
if(!FileQueue || (FileQueue == INVALID_HANDLE_VALUE)) {
|
|
SetupDebugPrint( L"SETUP: pSetupInstallNLSFiles: SetupOpenFileQueue failed" );
|
|
goto c1;
|
|
}
|
|
|
|
//
|
|
// Disable the file-copy progress dialog.
|
|
//
|
|
pQueueContext = InitSysSetupQueueCallbackEx(
|
|
Window,
|
|
INVALID_HANDLE_VALUE,
|
|
0,0,NULL);
|
|
if(!pQueueContext) {
|
|
SetupDebugPrint( L"SETUP: pSetupInstallNLSFiles: InitSysSetupQueueCallbackEx failed" );
|
|
goto c2;
|
|
}
|
|
|
|
do {
|
|
if(CodePage = pSetupGetField(&InfContext,0)) {
|
|
wsprintf( InstallSection, L"CODEPAGE_INSTALL_%s", CodePage );
|
|
|
|
//
|
|
// Enqueue locale-related files for copy.
|
|
//
|
|
b = SetupInstallFilesFromInfSection(
|
|
hInf,
|
|
NULL,
|
|
FileQueue,
|
|
InstallSection,
|
|
NULL,
|
|
QueueFlags
|
|
);
|
|
if(!b) {
|
|
SetupDebugPrint( L"SETUP: pSetupInstallNLSFiles: SetupInstallFilesFromInfSection failed" );
|
|
goto c3;
|
|
}
|
|
}
|
|
|
|
} while(SetupFindNextLine(&InfContext,&InfContext));
|
|
|
|
//
|
|
// Copy enqueued files.
|
|
//
|
|
b = SetupCommitFileQueue(
|
|
Window,
|
|
FileQueue,
|
|
SysSetupQueueCallback,
|
|
pQueueContext
|
|
);
|
|
if(!b) {
|
|
SetupDebugPrint( L"SETUP: pSetupInstallNLSFiles: SetupCommitFileQueue failed" );
|
|
goto c3;
|
|
}
|
|
|
|
if(!SetupFindFirstLine(hInf,L"CodePages",NULL,&InfContext)) {
|
|
SetupDebugPrint( L"SETUP: pSetupInstallNLSFiles: Unable to find [CodePages] section (2nd pass)" );
|
|
goto c3;
|
|
}
|
|
|
|
do {
|
|
if(CodePage = pSetupGetField(&InfContext,0)) {
|
|
wsprintf( InstallSection, L"CODEPAGE_INSTALL_%s", CodePage );
|
|
|
|
//
|
|
// Complete installation of locale stuff.
|
|
//
|
|
b = SetupInstallFromInfSection(
|
|
Window,
|
|
hInf,
|
|
InstallSection,
|
|
SPINST_ALL & ~SPINST_FILES,
|
|
NULL,
|
|
NULL,
|
|
0,
|
|
NULL,
|
|
NULL,
|
|
NULL,
|
|
NULL
|
|
);
|
|
if(!b) {
|
|
SetupDebugPrint( L"SETUP: pSetupInstallNLSFiles: SetupInstallFromInfSection failed" );
|
|
goto c3;
|
|
}
|
|
}
|
|
|
|
} while(SetupFindNextLine(&InfContext,&InfContext));
|
|
|
|
c3:
|
|
TermSysSetupQueueCallback(pQueueContext);
|
|
c2:
|
|
SetupCloseFileQueue(FileQueue);
|
|
c1:
|
|
SetupCloseInfFile(hInf);
|
|
return;
|
|
}
|
|
|
|
|
|
DWORD
|
|
pSetupInitRegionalSettings(
|
|
IN HWND Window
|
|
)
|
|
{
|
|
HINF IntlInf;
|
|
LONG l;
|
|
HKEY hKey;
|
|
DWORD d;
|
|
BOOL b;
|
|
DWORD Type;
|
|
INFCONTEXT LineContext;
|
|
WCHAR IdFromRegistry[9];
|
|
WCHAR KeyName[9];
|
|
WCHAR LanguageGroup[9];
|
|
WCHAR LanguageInstallSection[25];
|
|
LCID SystemLocale;
|
|
HSPFILEQ FileQueue;
|
|
DWORD QueueFlags;
|
|
PVOID pQueueContext;
|
|
|
|
//
|
|
// Open intl.inf. The locale descriptions are in there.
|
|
// Lines in the [Locales] section have keys that are 32-bit
|
|
// locale ids but the sort part is always 0, so they're more like
|
|
// zero-extended language ids.
|
|
//
|
|
IntlInf = SetupOpenInfFile(L"intl.inf",NULL,INF_STYLE_WIN4,NULL);
|
|
|
|
if(IntlInf == INVALID_HANDLE_VALUE) {
|
|
SetupDebugPrint( L"SETUP: pSetupInitRegionalSettings: Unable to open intl.inf" );
|
|
l = GetLastError();
|
|
goto c0;
|
|
}
|
|
|
|
if(!SetupOpenAppendInfFile( NULL, IntlInf, NULL )) {
|
|
SetupDebugPrint( L"SETUP: pSetupInitRegionalSettings: Unable to open intl.inf layout" );
|
|
l = GetLastError();
|
|
goto c0;
|
|
}
|
|
|
|
//
|
|
// Read the system locale from the registry. and look up in intl.inf.
|
|
// The value in the registry is a 16-bit language id, so we need to
|
|
// zero-extend it to index intl.inf.
|
|
//
|
|
l = RegOpenKeyEx(
|
|
HKEY_LOCAL_MACHINE,
|
|
L"SYSTEM\\CurrentControlSet\\Control\\Nls\\Language",
|
|
0,
|
|
KEY_QUERY_VALUE,
|
|
&hKey
|
|
);
|
|
|
|
if(l == NO_ERROR) {
|
|
d = sizeof(IdFromRegistry);
|
|
l = RegQueryValueEx(hKey,L"Default",NULL,&Type,(LPBYTE)IdFromRegistry,&d);
|
|
RegCloseKey(hKey);
|
|
if((l == NO_ERROR) && ((Type != REG_SZ) || (d != 10))) {
|
|
l = ERROR_INVALID_DATA;
|
|
}
|
|
}
|
|
|
|
if(l == NO_ERROR) {
|
|
|
|
l = ERROR_INVALID_DATA;
|
|
|
|
wsprintf(KeyName,L"0000%s",IdFromRegistry);
|
|
|
|
if(SetupFindFirstLine(IntlInf,L"Locales",KeyName,&LineContext)
|
|
&& SetupGetStringField(&LineContext,3,LanguageGroup,
|
|
sizeof(LanguageGroup)/sizeof(WCHAR),NULL)) {
|
|
|
|
l = NO_ERROR;
|
|
}
|
|
}
|
|
|
|
if(l == NO_ERROR) {
|
|
wsprintf(LanguageInstallSection,L"LG_INSTALL_%s",LanguageGroup);
|
|
|
|
//
|
|
// We copy the files in textmode setup now, so we don't need to do that
|
|
// here anymore.
|
|
//
|
|
#define DO_COPY_FILES
|
|
#ifdef DO_COPY_FILES
|
|
//
|
|
// Create a setup file queue and initialize default Setup copy queue
|
|
// callback context.
|
|
//
|
|
QueueFlags = SP_COPY_FORCE_NOOVERWRITE;
|
|
FileQueue = SetupOpenFileQueue();
|
|
if(!FileQueue || (FileQueue == INVALID_HANDLE_VALUE)) {
|
|
l = ERROR_OUTOFMEMORY;
|
|
goto c1;
|
|
}
|
|
|
|
//
|
|
// Disable the file-copy progress dialog.
|
|
//
|
|
pQueueContext = InitSysSetupQueueCallbackEx(
|
|
Window,
|
|
INVALID_HANDLE_VALUE,
|
|
0,0,NULL);
|
|
if(!pQueueContext) {
|
|
l = ERROR_OUTOFMEMORY;
|
|
goto c2;
|
|
}
|
|
|
|
//
|
|
// Enqueue locale-related files for copy. We install locales for the
|
|
// system default and the Western language group, which is group 1.
|
|
//
|
|
b = SetupInstallFilesFromInfSection(
|
|
IntlInf,
|
|
NULL,
|
|
FileQueue,
|
|
LanguageInstallSection,
|
|
NULL,
|
|
QueueFlags
|
|
);
|
|
if(!b) {
|
|
l = GetLastError();
|
|
goto c3;
|
|
}
|
|
|
|
if(wcscmp(LanguageGroup,L"1")) {
|
|
b = SetupInstallFilesFromInfSection(
|
|
IntlInf,
|
|
NULL,
|
|
FileQueue,
|
|
L"LG_INSTALL_1",
|
|
NULL,
|
|
QueueFlags
|
|
);
|
|
}
|
|
if(!b) {
|
|
l = GetLastError();
|
|
goto c3;
|
|
}
|
|
|
|
//
|
|
// Determine whether the queue actually needs to be committed.
|
|
//
|
|
b = SetupScanFileQueue(
|
|
FileQueue,
|
|
SPQ_SCAN_FILE_VALIDITY | SPQ_SCAN_PRUNE_COPY_QUEUE,
|
|
Window,
|
|
NULL,
|
|
NULL,
|
|
&d
|
|
);
|
|
|
|
if(!b) {
|
|
l = GetLastError();
|
|
goto c3;
|
|
}
|
|
|
|
//
|
|
// d = 0: User wants new files or some files were missing;
|
|
// Must commit queue.
|
|
//
|
|
// d = 1: User wants to use existing files and queue is empty;
|
|
// Can skip committing queue.
|
|
//
|
|
// d = 2: User wants to use existing files but del/ren queues not empty.
|
|
// Must commit queue. The copy queue will have been emptied,
|
|
// so only del/ren functions will be performed.
|
|
//
|
|
if(d == 1) {
|
|
|
|
b = TRUE;
|
|
|
|
} else {
|
|
|
|
//
|
|
// Copy enqueued files.
|
|
//
|
|
b = SetupCommitFileQueue(
|
|
Window,
|
|
FileQueue,
|
|
SysSetupQueueCallback,
|
|
pQueueContext
|
|
);
|
|
}
|
|
|
|
if(!b) {
|
|
l = GetLastError();
|
|
goto c3;
|
|
}
|
|
#endif
|
|
//
|
|
// Complete installation of locale stuff.
|
|
//
|
|
b = SetupInstallFromInfSection(
|
|
Window,
|
|
IntlInf,
|
|
LanguageInstallSection,
|
|
SPINST_ALL & ~SPINST_FILES,
|
|
NULL,
|
|
NULL,
|
|
0,
|
|
NULL,
|
|
NULL,
|
|
NULL,
|
|
NULL
|
|
);
|
|
if(!b) {
|
|
l = GetLastError();
|
|
#ifdef DO_COPY_FILES
|
|
goto c3;
|
|
#else
|
|
goto c1;
|
|
#endif
|
|
}
|
|
|
|
if(wcscmp(LanguageGroup,L"1")) {
|
|
b = SetupInstallFromInfSection(
|
|
Window,
|
|
IntlInf,
|
|
L"LG_INSTALL_1",
|
|
SPINST_ALL & ~SPINST_FILES,
|
|
NULL,
|
|
NULL,
|
|
0,
|
|
NULL,
|
|
NULL,
|
|
NULL,
|
|
NULL
|
|
);
|
|
}
|
|
if(!b) {
|
|
l = GetLastError();
|
|
#ifdef DO_COPY_FILES
|
|
goto c3;
|
|
#else
|
|
goto c1;
|
|
#endif
|
|
}
|
|
|
|
}
|
|
pSetupRunRegApps();
|
|
|
|
SystemLocale = wcstol(IdFromRegistry,NULL,16);
|
|
if (l == NO_ERROR) {
|
|
l = SetupChangeLocaleEx(
|
|
Window,
|
|
SystemLocale,
|
|
SourcePath,
|
|
SP_INSTALL_FILES_QUIETLY,
|
|
NULL,0);
|
|
|
|
#ifdef DO_COPY_FILES
|
|
c3:
|
|
TermSysSetupQueueCallback(pQueueContext);
|
|
c2:
|
|
SetupCloseFileQueue(FileQueue);
|
|
#endif
|
|
}
|
|
c1:
|
|
SetupCloseInfFile(IntlInf);
|
|
c0:
|
|
SetupDebugPrint2( L"SETUP: pSetupInitRegionalSettings returned %d (0x%08x)", l, l);
|
|
return l;
|
|
}
|
|
|
|
|
|
UINT
|
|
pSetupFontQueueCallback(
|
|
IN PFONTQCONTEXT Context,
|
|
IN UINT Notification,
|
|
IN UINT_PTR Param1,
|
|
IN UINT_PTR Param2
|
|
)
|
|
{
|
|
PFILEPATHS FilePaths;
|
|
PWCHAR p;
|
|
INFCONTEXT InfContext;
|
|
|
|
//
|
|
// If a file is finished being copied, set its attributes
|
|
// to include the hidden attribute if necessary.
|
|
//
|
|
if((Notification == SPFILENOTIFY_ENDCOPY)
|
|
&& (FilePaths = (PFILEPATHS)Param1)
|
|
&& (FilePaths->Win32Error == NO_ERROR)
|
|
&& (p = wcsrchr(FilePaths->Target,L'\\'))
|
|
&& SetupFindFirstLine(Context->FontInf,szHiddenFontFiles,p+1,&InfContext)) {
|
|
|
|
SetFileAttributes(FilePaths->Target,FILE_ATTRIBUTE_HIDDEN);
|
|
}
|
|
|
|
return( IsSetup ?
|
|
SysSetupQueueCallback(Context->SetupQueueContext,Notification,Param1,Param2) :
|
|
SetupDefaultQueueCallback(Context->SetupQueueContext,Notification,Param1,Param2)
|
|
);
|
|
}
|
|
|
|
|
|
VOID
|
|
pSetupMarkHiddenFonts(
|
|
VOID
|
|
)
|
|
{
|
|
HINF hInf;
|
|
INFCONTEXT InfContext;
|
|
BOOL b;
|
|
WCHAR Path[MAX_PATH];
|
|
PWCHAR p;
|
|
PCWSTR q;
|
|
int Space;
|
|
|
|
hInf = SetupOpenInfFile(L"FONT.INF",NULL,INF_STYLE_WIN4,NULL);
|
|
if(hInf != INVALID_HANDLE_VALUE) {
|
|
|
|
GetWindowsDirectory(Path,MAX_PATH);
|
|
lstrcat(Path,L"\\FONTS\\");
|
|
p = Path + lstrlen(Path);
|
|
Space = MAX_PATH - (int)(p - Path);
|
|
|
|
if(SetupFindFirstLine(hInf,szHiddenFontFiles,NULL,&InfContext)) {
|
|
|
|
do {
|
|
if(q = pSetupGetField(&InfContext,0)) {
|
|
|
|
lstrcpyn(p,q,Space);
|
|
if(FileExists(Path,NULL)) {
|
|
SetFileAttributes(Path,FILE_ATTRIBUTE_HIDDEN);
|
|
}
|
|
}
|
|
|
|
} while(SetupFindNextLine(&InfContext,&InfContext));
|
|
}
|
|
|
|
SetupCloseInfFile(hInf);
|
|
}
|
|
}
|
|
|
|
|
|
DWORD
|
|
pSetupNLSInstallFonts(
|
|
IN HWND Window,
|
|
IN HINF InfHandle,
|
|
IN PCWSTR OemCodepage,
|
|
IN PCWSTR FontSize,
|
|
IN HSPFILEQ FileQueue,
|
|
IN PCWSTR SourcePath, OPTIONAL
|
|
IN DWORD QueueFlags
|
|
)
|
|
{
|
|
BOOL b;
|
|
WCHAR SectionName[64];
|
|
|
|
//
|
|
// Form section name.
|
|
//
|
|
wsprintf(SectionName,L"Font.CP%s.%s",OemCodepage,FontSize);
|
|
|
|
if(FileQueue) {
|
|
//
|
|
// First pass: just enqueue files for copy.
|
|
//
|
|
b = SetupInstallFilesFromInfSection(
|
|
InfHandle,
|
|
NULL,
|
|
FileQueue,
|
|
SectionName,
|
|
SourcePath,
|
|
QueueFlags
|
|
);
|
|
} else {
|
|
//
|
|
// Second pass: do registry munging, etc.
|
|
//
|
|
b = SetupInstallFromInfSection(
|
|
Window,
|
|
InfHandle,
|
|
SectionName,
|
|
SPINST_ALL & ~SPINST_FILES,
|
|
NULL,
|
|
NULL,
|
|
0,
|
|
NULL,
|
|
NULL,
|
|
NULL,
|
|
NULL
|
|
);
|
|
}
|
|
|
|
return(b ? NO_ERROR : GetLastError());
|
|
}
|
|
|
|
|
|
DWORD
|
|
pSetupNLSLoadInfs(
|
|
OUT HINF *FontInfHandle,
|
|
OUT HINF *IntlInfHandle OPTIONAL
|
|
)
|
|
{
|
|
HINF fontInfHandle;
|
|
HINF intlInfHandle;
|
|
DWORD d;
|
|
|
|
fontInfHandle = SetupOpenInfFile(L"font.inf",NULL,INF_STYLE_WIN4,NULL);
|
|
if(fontInfHandle == INVALID_HANDLE_VALUE) {
|
|
d = GetLastError();
|
|
goto c0;
|
|
}
|
|
|
|
if(!SetupOpenAppendInfFile(NULL,fontInfHandle,NULL)) {
|
|
d = GetLastError();
|
|
goto c1;
|
|
}
|
|
|
|
if(IntlInfHandle) {
|
|
intlInfHandle = SetupOpenInfFile(L"intl.inf",NULL,INF_STYLE_WIN4,NULL);
|
|
if(intlInfHandle == INVALID_HANDLE_VALUE) {
|
|
d = GetLastError();
|
|
goto c1;
|
|
}
|
|
|
|
if(!SetupOpenAppendInfFile(NULL,intlInfHandle,NULL)) {
|
|
d = GetLastError();
|
|
goto c2;
|
|
}
|
|
|
|
*IntlInfHandle = intlInfHandle;
|
|
}
|
|
|
|
*FontInfHandle = fontInfHandle;
|
|
return(NO_ERROR);
|
|
|
|
c2:
|
|
SetupCloseInfFile(intlInfHandle);
|
|
c1:
|
|
SetupCloseInfFile(fontInfHandle);
|
|
c0:
|
|
return(d);
|
|
}
|
|
|
|
|
|
DWORD
|
|
SetupChangeLocale(
|
|
IN HWND Window,
|
|
IN LCID NewLocale
|
|
)
|
|
{
|
|
return(SetupChangeLocaleEx(Window,NewLocale,NULL,0,NULL,0));
|
|
}
|
|
|
|
|
|
DWORD
|
|
SetupChangeLocaleEx(
|
|
IN HWND Window,
|
|
IN LCID NewLocale,
|
|
IN PCWSTR SourcePath, OPTIONAL
|
|
IN DWORD Flags,
|
|
IN PVOID Reserved1,
|
|
IN DWORD Reserved2
|
|
)
|
|
{
|
|
DWORD d;
|
|
BOOL b;
|
|
HINF IntlInfHandle;
|
|
INFCONTEXT InfContext;
|
|
WCHAR Codepage[24];
|
|
WCHAR NewLocaleString[24];
|
|
FONTQCONTEXT QueueContext;
|
|
HSPFILEQ FileQueue;
|
|
PCWSTR SizeSpec;
|
|
HDC hdc;
|
|
PCWSTR p;
|
|
DWORD QueueFlags;
|
|
HKEY hKey;
|
|
DWORD DataType;
|
|
DWORD SizeDword;
|
|
DWORD DataSize;
|
|
|
|
|
|
SizeSpec = L"96";
|
|
#if 0
|
|
// This is no longer reliable.
|
|
if(hdc = CreateDC(L"DISPLAY",NULL,NULL,NULL)) {
|
|
if(GetDeviceCaps(hdc,LOGPIXELSY) > 108) {
|
|
SizeSpec = L"120";
|
|
}
|
|
|
|
DeleteDC(hdc);
|
|
}
|
|
#else
|
|
//
|
|
// Determine the current font size. Default to 96.
|
|
//
|
|
d = (DWORD)RegOpenKeyEx(
|
|
HKEY_LOCAL_MACHINE,
|
|
L"System\\CurrentControlSet\\Hardware Profiles\\Current\\Software\\Fonts",
|
|
0,
|
|
KEY_QUERY_VALUE,
|
|
&hKey
|
|
);
|
|
|
|
if(d == NO_ERROR) {
|
|
|
|
DataSize = sizeof(DWORD);
|
|
d = (DWORD)RegQueryValueEx(
|
|
hKey,
|
|
L"LogPixels",
|
|
NULL,
|
|
&DataType,
|
|
(LPBYTE)&SizeDword,
|
|
&DataSize
|
|
);
|
|
|
|
if( (d == NO_ERROR) && (DataType == REG_DWORD) &&
|
|
(DataSize == sizeof(DWORD)) && (SizeDword > 108) ) {
|
|
|
|
SizeSpec = L"120";
|
|
}
|
|
RegCloseKey(hKey);
|
|
}
|
|
#endif
|
|
|
|
QueueFlags = SP_COPY_NEWER | BaseCopyStyle;
|
|
if(Flags & SP_INSTALL_FILES_QUIETLY) {
|
|
QueueFlags |= SP_COPY_FORCE_NOOVERWRITE;
|
|
}
|
|
|
|
//
|
|
// Load inf files.
|
|
//
|
|
d = pSetupNLSLoadInfs(&QueueContext.FontInf,&IntlInfHandle);
|
|
if(d != NO_ERROR) {
|
|
goto c0;
|
|
}
|
|
|
|
//
|
|
// Get oem codepage for the locale. This is also a sanity check
|
|
// to see that the locale is supported.
|
|
//
|
|
wsprintf(NewLocaleString,L"%.8x",NewLocale);
|
|
if(!SetupFindFirstLine(IntlInfHandle,L"Locales",NewLocaleString,&InfContext)) {
|
|
d = ERROR_INVALID_PARAMETER;
|
|
goto c1;
|
|
}
|
|
|
|
p = pSetupGetField(&InfContext,2);
|
|
if(!p) {
|
|
d = ERROR_INVALID_PARAMETER;
|
|
goto c1;
|
|
}
|
|
//
|
|
// Copy into local storage since p points into internal structures
|
|
// that could move as we call INF APIs
|
|
//
|
|
lstrcpyn(Codepage,p,sizeof(Codepage)/sizeof(Codepage[0]));
|
|
|
|
//
|
|
// Create a setup file queue and initialize default Setup copy queue
|
|
// callback context.
|
|
//
|
|
FileQueue = SetupOpenFileQueue();
|
|
if(!FileQueue || (FileQueue == INVALID_HANDLE_VALUE)) {
|
|
d = ERROR_OUTOFMEMORY;
|
|
goto c1;
|
|
}
|
|
|
|
QueueContext.SetupQueueContext = IsSetup ?
|
|
InitSysSetupQueueCallbackEx(
|
|
Window,
|
|
INVALID_HANDLE_VALUE,
|
|
0,0,NULL) :
|
|
SetupInitDefaultQueueCallbackEx(
|
|
Window,
|
|
INVALID_HANDLE_VALUE,
|
|
0,0,NULL);
|
|
|
|
if(!QueueContext.SetupQueueContext) {
|
|
d = ERROR_OUTOFMEMORY;
|
|
goto c2;
|
|
}
|
|
|
|
//
|
|
// Enqueue locale-related files for copy.
|
|
//
|
|
b = SetupInstallFilesFromInfSection(
|
|
IntlInfHandle,
|
|
NULL,
|
|
FileQueue,
|
|
NewLocaleString,
|
|
SourcePath,
|
|
QueueFlags
|
|
);
|
|
|
|
if(!b) {
|
|
d = GetLastError();
|
|
goto c3;
|
|
}
|
|
|
|
//
|
|
// Enqueue font-related files for copy.
|
|
//
|
|
d = pSetupNLSInstallFonts(
|
|
Window,
|
|
QueueContext.FontInf,
|
|
Codepage,
|
|
SizeSpec,
|
|
FileQueue,
|
|
SourcePath,
|
|
QueueFlags
|
|
);
|
|
|
|
if(d != NO_ERROR) {
|
|
goto c3;
|
|
}
|
|
|
|
//
|
|
// Determine whether the queue actually needs to be committed.
|
|
//
|
|
b = SetupScanFileQueue(
|
|
FileQueue,
|
|
SPQ_SCAN_FILE_VALIDITY | ((Flags & SP_INSTALL_FILES_QUIETLY) ? SPQ_SCAN_PRUNE_COPY_QUEUE : SPQ_SCAN_INFORM_USER),
|
|
Window,
|
|
NULL,
|
|
NULL,
|
|
&d
|
|
);
|
|
|
|
if(!b) {
|
|
d = GetLastError();
|
|
goto c3;
|
|
}
|
|
|
|
//
|
|
// d = 0: User wants new files or some files were missing;
|
|
// Must commit queue.
|
|
//
|
|
// d = 1: User wants to use existing files and queue is empty;
|
|
// Can skip committing queue.
|
|
//
|
|
// d = 2: User wants to use existing files but del/ren queues not empty.
|
|
// Must commit queue. The copy queue will have been emptied,
|
|
// so only del/ren functions will be performed.
|
|
//
|
|
if(d == 1) {
|
|
|
|
b = TRUE;
|
|
|
|
} else {
|
|
|
|
//
|
|
// Copy enqueued files.
|
|
//
|
|
b = SetupCommitFileQueue(
|
|
Window,
|
|
FileQueue,
|
|
pSetupFontQueueCallback,
|
|
&QueueContext
|
|
);
|
|
}
|
|
|
|
if(!b) {
|
|
d = GetLastError();
|
|
goto c3;
|
|
}
|
|
|
|
//
|
|
// Complete installation of locale stuff.
|
|
//
|
|
b = SetupInstallFromInfSection(
|
|
Window,
|
|
IntlInfHandle,
|
|
NewLocaleString,
|
|
SPINST_ALL & ~SPINST_FILES,
|
|
NULL,
|
|
NULL,
|
|
0,
|
|
NULL,
|
|
NULL,
|
|
NULL,
|
|
NULL
|
|
);
|
|
|
|
if(!b) {
|
|
d = GetLastError();
|
|
goto c3;
|
|
}
|
|
|
|
//
|
|
// Perform font magic associated with the new locale's codepage(s).
|
|
//
|
|
d = pSetupNLSInstallFonts(Window,QueueContext.FontInf,Codepage,SizeSpec,NULL,NULL,0);
|
|
|
|
c3:
|
|
if(IsSetup) {
|
|
TermSysSetupQueueCallback(QueueContext.SetupQueueContext);
|
|
} else {
|
|
SetupTermDefaultQueueCallback(QueueContext.SetupQueueContext);
|
|
}
|
|
|
|
c2:
|
|
SetupCloseFileQueue(FileQueue);
|
|
c1:
|
|
SetupCloseInfFile(QueueContext.FontInf);
|
|
SetupCloseInfFile(IntlInfHandle);
|
|
c0:
|
|
if (IsSetup) {
|
|
SetupDebugPrint2( L"SETUP: SetupChangeLocaleEx returned %d (0x%08x)", d, d);
|
|
}
|
|
return(d);
|
|
}
|
|
|
|
|
|
DWORD
|
|
SetupChangeFontSize(
|
|
IN HWND Window,
|
|
IN PCWSTR SizeSpec
|
|
)
|
|
{
|
|
DWORD d;
|
|
WCHAR cp[24];
|
|
FONTQCONTEXT QueueContext;
|
|
HSPFILEQ FileQueue;
|
|
BOOL b;
|
|
|
|
//
|
|
// Get the current OEM CP
|
|
//
|
|
wsprintf(cp,L"%u",GetOEMCP());
|
|
|
|
//
|
|
// Load NLS inf.
|
|
//
|
|
d = pSetupNLSLoadInfs(&QueueContext.FontInf,NULL);
|
|
if(d != NO_ERROR) {
|
|
goto c0;
|
|
}
|
|
|
|
//
|
|
// Create queue and initialize default callback routine.
|
|
//
|
|
FileQueue = SetupOpenFileQueue();
|
|
if(!FileQueue || (FileQueue == INVALID_HANDLE_VALUE)) {
|
|
d = ERROR_OUTOFMEMORY;
|
|
goto c1;
|
|
}
|
|
|
|
QueueContext.SetupQueueContext = IsSetup ?
|
|
InitSysSetupQueueCallbackEx(
|
|
Window,
|
|
INVALID_HANDLE_VALUE,
|
|
0,0,NULL) :
|
|
SetupInitDefaultQueueCallbackEx(
|
|
Window,
|
|
INVALID_HANDLE_VALUE,
|
|
0,0,NULL);
|
|
|
|
if(!QueueContext.SetupQueueContext) {
|
|
d = ERROR_OUTOFMEMORY;
|
|
goto c2;
|
|
}
|
|
|
|
//
|
|
// First pass: copy files.
|
|
//
|
|
d = pSetupNLSInstallFonts(
|
|
Window,
|
|
QueueContext.FontInf,
|
|
cp,
|
|
SizeSpec,
|
|
FileQueue,
|
|
NULL,
|
|
SP_COPY_NEWER | BaseCopyStyle
|
|
);
|
|
if(d != NO_ERROR) {
|
|
goto c3;
|
|
}
|
|
|
|
//
|
|
// Determine whether the queue actually needs to be committed.
|
|
//
|
|
b = SetupScanFileQueue(
|
|
FileQueue,
|
|
SPQ_SCAN_FILE_VALIDITY | SPQ_SCAN_INFORM_USER,
|
|
Window,
|
|
NULL,
|
|
NULL,
|
|
&d
|
|
);
|
|
|
|
if(!b) {
|
|
d = GetLastError();
|
|
goto c3;
|
|
}
|
|
|
|
//
|
|
// d = 0: User wants new files or some files were missing;
|
|
// Must commit queue.
|
|
//
|
|
// d = 1: User wants to use existing files and queue is empty;
|
|
// Can skip committing queue.
|
|
//
|
|
// d = 2: User wants to use existing files but del/ren queues not empty.
|
|
// Must commit queue. The copy queue will have been emptied,
|
|
// so only del/ren functions will be performed.
|
|
//
|
|
if(d == 1) {
|
|
|
|
b = TRUE;
|
|
|
|
} else {
|
|
|
|
b = SetupCommitFileQueue(
|
|
Window,
|
|
FileQueue,
|
|
pSetupFontQueueCallback,
|
|
&QueueContext
|
|
);
|
|
}
|
|
|
|
if(!b) {
|
|
d = GetLastError();
|
|
goto c3;
|
|
}
|
|
|
|
//
|
|
// Second pass: perform registry munging, etc.
|
|
//
|
|
d = pSetupNLSInstallFonts(Window,QueueContext.FontInf,cp,SizeSpec,NULL,NULL,0);
|
|
|
|
c3:
|
|
if(IsSetup) {
|
|
TermSysSetupQueueCallback(QueueContext.SetupQueueContext);
|
|
} else {
|
|
SetupTermDefaultQueueCallback(QueueContext.SetupQueueContext);
|
|
}
|
|
c2:
|
|
SetupCloseFileQueue(FileQueue);
|
|
c1:
|
|
SetupCloseInfFile(QueueContext.FontInf);
|
|
c0:
|
|
return(d);
|
|
}
|
|
|
|
|
|
////////////////////////////////////////////////////////////////////
|
|
//
|
|
// Code below here is for regional settings stuff that occurs during
|
|
// gui mode setup
|
|
//
|
|
////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
INT_PTR
|
|
CALLBACK
|
|
RegionalSettingsDlgProc(
|
|
IN HWND hdlg,
|
|
IN UINT msg,
|
|
IN WPARAM wParam,
|
|
IN LPARAM lParam
|
|
)
|
|
{
|
|
BOOL b;
|
|
NMHDR *NotifyParams;
|
|
WCHAR CmdLine[MAX_PATH];
|
|
|
|
|
|
b = TRUE;
|
|
|
|
switch(msg) {
|
|
|
|
case WM_SIMULATENEXT:
|
|
PropSheet_PressButton(GetParent(hdlg),PSBTN_NEXT);
|
|
break;
|
|
|
|
case WMX_VALIDATE:
|
|
// Empty page
|
|
return ReturnDlgResult (hdlg, VALIDATE_DATA_OK);
|
|
|
|
case WM_NOTIFY:
|
|
|
|
NotifyParams = (NMHDR *)lParam;
|
|
|
|
switch(NotifyParams->code) {
|
|
|
|
case PSN_SETACTIVE:
|
|
TESTHOOK(502);
|
|
BEGIN_SECTION(L"Regional Settings Page");
|
|
SetWizardButtons(hdlg,WizPageRegionalSettings);
|
|
|
|
//
|
|
// Set message text.
|
|
//
|
|
pSetLocaleSummaryText(hdlg);
|
|
pSetKeyboardLayoutSummaryText(hdlg);
|
|
|
|
//
|
|
// Allow activation.
|
|
//
|
|
|
|
//
|
|
// Show unless OEMSkipRegional = 1
|
|
//
|
|
if( Preinstall ) {
|
|
//
|
|
// Always show the page in a Preinstall, unless the user
|
|
// has sent us OEMSkipRegional.
|
|
//
|
|
if (GetPrivateProfileInt(pwGuiUnattended,L"OEMSkipRegional",0,AnswerFile))
|
|
{
|
|
SetWindowLongPtr(hdlg, DWLP_MSGRESULT, -1 );
|
|
}
|
|
else
|
|
{
|
|
// Page becomes active, make page visible.
|
|
SendMessage(GetParent(hdlg), WMX_BBTEXT, (WPARAM)FALSE, 0);
|
|
SetWindowLongPtr(hdlg, DWLP_MSGRESULT,0);
|
|
}
|
|
} else {
|
|
SetWindowLongPtr( hdlg, DWLP_MSGRESULT, 0 );
|
|
if(Unattended) {
|
|
if (!UnattendSetActiveDlg(hdlg,IDD_REGIONAL_SETTINGS))
|
|
{
|
|
break;
|
|
}
|
|
}
|
|
// Page becomes active, make page visible.
|
|
SendMessage(GetParent(hdlg), WMX_BBTEXT, (WPARAM)FALSE, 0);
|
|
}
|
|
break;
|
|
|
|
case PSN_WIZNEXT:
|
|
case PSN_WIZFINISH:
|
|
//
|
|
// Allow next page to be activated.
|
|
//
|
|
SetWindowLongPtr(hdlg,DWLP_MSGRESULT,0);
|
|
break;
|
|
|
|
case PSN_KILLACTIVE:
|
|
WizardKillHelp(hdlg);
|
|
SetWindowLongPtr(hdlg,DWLP_MSGRESULT,FALSE);
|
|
END_SECTION(L"Regional Settings Page");
|
|
break;
|
|
|
|
case PSN_HELP:
|
|
WizardBringUpHelp(hdlg,WizPageRegionalSettings);
|
|
break;
|
|
|
|
default:
|
|
b = FALSE;
|
|
break;
|
|
}
|
|
|
|
break;
|
|
|
|
case WM_COMMAND:
|
|
|
|
switch(LOWORD(wParam)) {
|
|
|
|
case IDB_LOCALE:
|
|
case IDB_KBDLAYOUT:
|
|
|
|
if(HIWORD(wParam) == BN_CLICKED) {
|
|
|
|
PropSheet_SetWizButtons(GetParent(hdlg),0);
|
|
EnableWindow(GetParent(hdlg),FALSE);
|
|
|
|
wsprintf(
|
|
CmdLine,
|
|
L"/%c /s:\"%s\"",
|
|
(LOWORD(wParam) == IDB_LOCALE) ? L'R' : L'I',
|
|
LegacySourcePath
|
|
);
|
|
|
|
InvokeControlPanelApplet(L"intl.cpl",L"",0,CmdLine);
|
|
|
|
if(LOWORD(wParam) == IDB_LOCALE) {
|
|
pSetLocaleSummaryText(hdlg);
|
|
}
|
|
pSetKeyboardLayoutSummaryText(hdlg);
|
|
|
|
EnableWindow(GetParent(hdlg),TRUE);
|
|
SetWizardButtons(hdlg,WizPageRegionalSettings);
|
|
// Get the focus tot he wizard and set it to the button the user selected.
|
|
SetForegroundWindow(GetParent(hdlg));
|
|
SetFocus(GetDlgItem(hdlg,LOWORD(wParam)));
|
|
|
|
} else {
|
|
b = FALSE;
|
|
}
|
|
break;
|
|
|
|
default:
|
|
b = FALSE;
|
|
break;
|
|
}
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
b = FALSE;
|
|
break;
|
|
}
|
|
|
|
return(b);
|
|
}
|
|
|
|
|
|
VOID
|
|
pSetLocaleSummaryText(
|
|
IN HWND hdlg
|
|
)
|
|
{
|
|
HINF IntlInf;
|
|
LONG l;
|
|
HKEY hKey;
|
|
DWORD d;
|
|
DWORD Type;
|
|
INFCONTEXT LineContext;
|
|
WCHAR IdFromRegistry[9];
|
|
WCHAR KeyName[9];
|
|
WCHAR UserLocale[100],GeoLocation[100];
|
|
WCHAR FormatString[300];
|
|
WCHAR MessageText[500];
|
|
LPCWSTR args[2];
|
|
DWORD dwGeoID;
|
|
|
|
|
|
//
|
|
// Open intl.inf. The locale descriptions are in there.
|
|
// Lines in the [Locales] section have keys that are 32-bit
|
|
// locale ids but the sort part is always 0, so they're more like
|
|
// zero-extended language ids.
|
|
//
|
|
IntlInf = SetupOpenInfFile(L"intl.inf",NULL,INF_STYLE_WIN4,NULL);
|
|
|
|
if(IntlInf == INVALID_HANDLE_VALUE) {
|
|
LoadString(MyModuleHandle,IDS_UNKNOWN_PARENS,UserLocale,sizeof(UserLocale)/sizeof(WCHAR));
|
|
lstrcpy(GeoLocation,UserLocale);
|
|
} else {
|
|
//
|
|
// Read the user locale, which is stored as a full 32-bit LCID.
|
|
// We have to chop off the sort id part to index intl.inf.
|
|
//
|
|
l = RegOpenKeyEx(
|
|
HKEY_CURRENT_USER,
|
|
L"Control Panel\\International",
|
|
0,
|
|
KEY_QUERY_VALUE,
|
|
&hKey
|
|
);
|
|
|
|
if(l == NO_ERROR) {
|
|
d = sizeof(IdFromRegistry);
|
|
l = RegQueryValueEx(hKey,L"Locale",NULL,&Type,(LPBYTE)IdFromRegistry,&d);
|
|
RegCloseKey(hKey);
|
|
if((l == NO_ERROR) && ((Type != REG_SZ) || (d != 18))) {
|
|
l = ERROR_INVALID_DATA;
|
|
}
|
|
}
|
|
|
|
if(l == NO_ERROR) {
|
|
|
|
l = ERROR_INVALID_DATA;
|
|
|
|
wsprintf(KeyName,L"0000%s",IdFromRegistry+4);
|
|
|
|
if(SetupFindFirstLine(IntlInf,L"Locales",KeyName,&LineContext)
|
|
&& SetupGetStringField(&LineContext,1,UserLocale,sizeof(UserLocale)/sizeof(WCHAR),NULL)) {
|
|
|
|
l = NO_ERROR;
|
|
}
|
|
}
|
|
|
|
if(l != NO_ERROR) {
|
|
LoadString(MyModuleHandle,IDS_UNKNOWN_PARENS,UserLocale,sizeof(UserLocale)/sizeof(WCHAR));
|
|
}
|
|
|
|
SetupCloseInfFile(IntlInf);
|
|
|
|
//
|
|
// Read the GEO location
|
|
//
|
|
l = RegOpenKeyEx(
|
|
HKEY_CURRENT_USER,
|
|
L"Control Panel\\International\\Geo",
|
|
0,
|
|
KEY_QUERY_VALUE,
|
|
&hKey
|
|
);
|
|
|
|
if(l == NO_ERROR) {
|
|
d = sizeof(IdFromRegistry);
|
|
l = RegQueryValueEx(hKey,L"Nation",NULL,&Type,(LPBYTE)IdFromRegistry,&d);
|
|
RegCloseKey(hKey);
|
|
if((l == NO_ERROR) && (Type != REG_SZ)) {
|
|
l = ERROR_INVALID_DATA;
|
|
}
|
|
}
|
|
|
|
if(l == NO_ERROR) {
|
|
|
|
l = ERROR_INVALID_DATA;
|
|
|
|
dwGeoID = wcstoul ( IdFromRegistry, NULL, 10 );
|
|
if (GetGeoInfo (
|
|
dwGeoID,
|
|
GEO_FRIENDLYNAME,
|
|
GeoLocation,
|
|
sizeof(GeoLocation)/sizeof(WCHAR),
|
|
0 )
|
|
) {
|
|
|
|
l = NO_ERROR;
|
|
}
|
|
}
|
|
|
|
if(l != NO_ERROR) {
|
|
LoadString(MyModuleHandle,IDS_UNKNOWN_PARENS,GeoLocation,sizeof(GeoLocation)/sizeof(WCHAR));
|
|
}
|
|
}
|
|
|
|
args[0] = UserLocale;
|
|
args[1] = GeoLocation;
|
|
|
|
LoadString(MyModuleHandle,IDS_LOCALE_MSG,FormatString,sizeof(FormatString)/sizeof(WCHAR));
|
|
|
|
FormatMessage(
|
|
FORMAT_MESSAGE_FROM_STRING | FORMAT_MESSAGE_ARGUMENT_ARRAY,
|
|
FormatString,
|
|
0,0,
|
|
MessageText,
|
|
sizeof(MessageText)/sizeof(WCHAR),
|
|
(va_list *)args
|
|
);
|
|
|
|
SetDlgItemText(hdlg,IDT_LOCALE,MessageText);
|
|
}
|
|
|
|
|
|
VOID
|
|
pSetKeyboardLayoutSummaryText(
|
|
IN HWND hdlg
|
|
)
|
|
{
|
|
LONG l;
|
|
HKEY hKey;
|
|
BOOL MultipleLayouts;
|
|
DWORD d;
|
|
DWORD Type;
|
|
WCHAR IdFromRegistry[9];
|
|
WCHAR Substitute[9];
|
|
WCHAR Name[200];
|
|
WCHAR FormatString[300];
|
|
WCHAR MessageText[500];
|
|
|
|
//
|
|
// Open the Preload key in the registry.
|
|
//
|
|
l = RegOpenKeyEx(
|
|
HKEY_CURRENT_USER,
|
|
L"Keyboard Layout\\Preload",
|
|
0,
|
|
KEY_QUERY_VALUE,
|
|
&hKey
|
|
);
|
|
|
|
MultipleLayouts = FALSE;
|
|
if(l == NO_ERROR) {
|
|
//
|
|
// Pull out 2=. If it's there, then we're in a "complex" config
|
|
// situation, which will change our message text a little.
|
|
//
|
|
d = sizeof(IdFromRegistry);
|
|
if(RegQueryValueEx(hKey,L"2",NULL,&Type,(LPBYTE)IdFromRegistry,&d) == NO_ERROR) {
|
|
MultipleLayouts = TRUE;
|
|
}
|
|
|
|
//
|
|
// Get 1=, which is the main layout.
|
|
//
|
|
d = sizeof(IdFromRegistry);
|
|
l = RegQueryValueEx(hKey,L"1",NULL,&Type,(LPBYTE)IdFromRegistry,&d);
|
|
if((l == NO_ERROR) && (Type != REG_SZ)) {
|
|
l = ERROR_INVALID_DATA;
|
|
}
|
|
|
|
RegCloseKey(hKey);
|
|
|
|
//
|
|
// Now we look in the substitutes key to see whether there is a
|
|
// substitute there.
|
|
//
|
|
if(RegOpenKeyEx(HKEY_CURRENT_USER,L"Keyboard Layout\\Substitutes",0,KEY_QUERY_VALUE,&hKey) == NO_ERROR) {
|
|
|
|
d = sizeof(Substitute);
|
|
if((RegQueryValueEx(hKey,IdFromRegistry,NULL,&Type,(LPBYTE)Substitute,&d) == NO_ERROR)
|
|
&& (Type == REG_SZ)) {
|
|
|
|
lstrcpy(IdFromRegistry,Substitute);
|
|
}
|
|
|
|
RegCloseKey(hKey);
|
|
}
|
|
|
|
//
|
|
// Form the name of the subkey that contains layout data.
|
|
//
|
|
wsprintf(
|
|
Name,
|
|
L"System\\CurrentControlSet\\Control\\Keyboard Layouts\\%s",
|
|
IdFromRegistry
|
|
);
|
|
|
|
//
|
|
// Open the key and retrieve the layout name.
|
|
//
|
|
l = RegOpenKeyEx(HKEY_LOCAL_MACHINE,Name,0,KEY_QUERY_VALUE,&hKey);
|
|
if(l == NO_ERROR) {
|
|
|
|
d = sizeof(Name);
|
|
l = RegQueryValueEx(hKey,L"Layout Text",NULL,&Type,(LPBYTE)Name,&d);
|
|
if((l == NO_ERROR) && (Type != REG_SZ)) {
|
|
l = ERROR_INVALID_DATA;
|
|
}
|
|
|
|
RegCloseKey(hKey);
|
|
}
|
|
}
|
|
|
|
if(l != NO_ERROR) {
|
|
LoadString(MyModuleHandle,IDS_UNKNOWN_PARENS,Name,sizeof(Name)/sizeof(WCHAR));
|
|
}
|
|
|
|
LoadString(
|
|
MyModuleHandle,
|
|
IDS_KBDLAYOUT_MSG,
|
|
FormatString,
|
|
sizeof(FormatString)/sizeof(WCHAR)
|
|
);
|
|
|
|
wsprintf(MessageText,FormatString,Name);
|
|
|
|
SetDlgItemText(hdlg,IDT_KBD_LAYOUT,MessageText);
|
|
}
|
|
|