WindowsXP-SP1/shell/ext/mlang/util.cpp
2020-09-30 16:53:49 +02:00

1773 lines
51 KiB
C++

// Util.cpp : Helper functions and classes
#include "private.h"
#include "mlmain.h"
#include <setupapi.h>
#include <tchar.h>
const CLSID CLSID_Japanese = {0x76C19B30,0xF0C8,0x11cf,{0x87,0xCC,0x00,0x20,0xAF,0xEE,0xCF,0x20}};
const CLSID CLSID_Korean = {0x76C19B31,0xF0C8,0x11cf,{0x87,0xCC,0x00,0x20,0xAF,0xEE,0xCF,0x20}};
const CLSID CLSID_PanEuro = {0x76C19B32,0xF0C8,0x11cf,{0x87,0xCC,0x00,0x20,0xAF,0xEE,0xCF,0x20}};
const CLSID CLSID_TradChinese = {0x76C19B33,0xF0C8,0x11cf,{0x87,0xCC,0x00,0x20,0xAF,0xEE,0xCF,0x20}};
const CLSID CLSID_SimpChinese = {0x76C19B34,0xF0C8,0x11cf,{0x87,0xCC,0x00,0x20,0xAF,0xEE,0xCF,0x20}};
const CLSID CLSID_Thai = {0x76C19B35,0xF0C8,0x11cf,{0x87,0xCC,0x00,0x20,0xAF,0xEE,0xCF,0x20}};
const CLSID CLSID_Hebrew = {0x76C19B36,0xF0C8,0x11cf,{0x87,0xCC,0x00,0x20,0xAF,0xEE,0xCF,0x20}};
const CLSID CLSID_Vietnamese = {0x76C19B37,0xF0C8,0x11cf,{0x87,0xCC,0x00,0x20,0xAF,0xEE,0xCF,0x20}};
const CLSID CLSID_Arabic = {0x76C19B38,0xF0C8,0x11cf,{0x87,0xCC,0x00,0x20,0xAF,0xEE,0xCF,0x20}};
const CLSID CLSID_Auto = {0x76C19B50,0xF0C8,0x11cf,{0x87,0xCC,0x00,0x20,0xAF,0xEE,0xCF,0x20}};
TCHAR szFonts[]=TEXT("fonts");
static TCHAR s_szJaFont[] = TEXT("msgothic.ttf,msgothic.ttc");
// a-ehuang: mail-Hyo Kyoung Kim-Kevin Gjerstad-9/14/98
// OLD: static TCHAR s_szKorFont[] = TEXT("gulimche.ttf, gulim.ttf,gulim.ttc");
static TCHAR s_szKorFont[] = TEXT("gulim.ttf,gulim.ttc,gulimche.ttf");
// end-of-change
static TCHAR s_szZhtFont[] = TEXT("mingliu.ttf,mingliu.ttc");
static TCHAR s_szZhcFont[] = TEXT("mssong.ttf,simsun.ttc,mshei.ttf");
static TCHAR s_szThaiFont[] = TEXT("angsa.ttf,angsa.ttf,angsab.ttf,angsai.ttf,angsaz.ttf,upcil.ttf,upcib.ttf,upcibi.ttf, cordia.ttf, cordiab.ttf, cordiai.ttf, coradiaz.ttf");
static TCHAR s_szPeFont[] = TEXT("larial.ttf,larialbd.ttf,larialbi.ttf,lariali.ttf,lcour.ttf,lcourbd.ttf,lcourbi.ttf,lcouri.ttf,ltimes.ttf,ltimesbd.ttf,ltimesbi.ttf,ltimesi.ttf,symbol.ttf");
static TCHAR s_szArFont[] = TEXT("andlso.ttf, artrbdo.ttf, artro.ttf, simpbdo.ttf, simpfxo.ttf, tradbdo.ttf, trado.ttf");
static TCHAR s_szViFont[] = TEXT("VARIAL.TTF, VARIALBD.TTF, VARIALBI.TTF, VARIALI.TTF, VCOUR.TTF, VCOURBD.TTF, VCOURBI.TTF, VCOURI.TTF, VTIMES.TTF, VTIMESBD.TTF, VTIMESBI.TTF, VTIMESI.TTF");
static TCHAR s_szIwFont[] = TEXT("DAVID.TTF, DAVIDBD.TTF, DAVIDTR.TTF, MRIAM.TTF, MRIAMC.TTF, MRIAMFX.TTF, MRIAMTR.TTF, ROD.TTF");
#define IS_DBCSCODEPAGE(j) \
(((j) == 932) || \
((j) == 936) || \
((j) == 949) || \
((j) == 950))
#define IS_COMPLEXSCRIPT_CODEPAGE(j) \
(((j) == 874) || \
((j) == 1255) || \
((j) == 1256) || \
((j) == 1258))
#ifdef NEWMLSTR
#include "util.h"
/////////////////////////////////////////////////////////////////////////////
// Helper functions
HRESULT RegularizePosLen(long lStrLen, long* plPos, long* plLen)
{
ASSERT_WRITE_PTR(plPos);
ASSERT_WRITE_PTR(plLen);
long lPos = *plPos;
long lLen = *plLen;
if (lPos < 0)
lPos = lStrLen;
else
lPos = min(lPos, lStrLen);
if (lLen < 0)
lLen = lStrLen - lPos;
else
lLen = min(lLen, lStrLen - lPos);
*plPos = lPos;
*plLen = lLen;
return S_OK;
}
HRESULT LocaleToCodePage(LCID locale, UINT* puCodePage)
{
HRESULT hr = S_OK;
if (puCodePage)
{
TCHAR szCodePage[8];
if (::GetLocaleInfo(locale, LOCALE_IDEFAULTANSICODEPAGE, szCodePage, ARRAYSIZE(szCodePage)) > 0)
*puCodePage = _ttoi(szCodePage);
else
hr = E_FAIL; // NLS failed
}
return hr;
}
HRESULT StartEndConnection(IUnknown* const pUnkCPC, const IID* const piid, IUnknown* const pUnkSink, DWORD* const pdwCookie, DWORD dwCookie)
{
ASSERT_READ_PTR(pUnkCPC);
ASSERT_READ_PTR(piid);
if (pdwCookie)
ASSERT_WRITE_PTR(pUnkSink);
ASSERT_READ_PTR_OR_NULL(pdwCookie);
HRESULT hr;
IConnectionPointContainer* pcpc;
if (SUCCEEDED(hr = pUnkCPC->QueryInterface(IID_IConnectionPointContainer, (void**)&pcpc)))
{
ASSERT_READ_PTR(pcpc);
IConnectionPoint* pcp;
if (SUCCEEDED(hr = pcpc->FindConnectionPoint(*piid, &pcp)))
{
ASSERT_READ_PTR(pcp);
if (pdwCookie)
hr = pcp->Advise(pUnkSink, pdwCookie);
else
hr = pcp->Unadvise(dwCookie);
pcp->Release();
}
pcpc->Release();
}
return hr;
}
/////////////////////////////////////////////////////////////////////////////
// CMLAlloc
CMLAlloc::CMLAlloc(void)
{
if (FAILED(::CoGetMalloc(1, &m_pIMalloc)))
m_pIMalloc = NULL;
}
CMLAlloc::~CMLAlloc(void)
{
if (m_pIMalloc)
m_pIMalloc->Release();
}
void* CMLAlloc::Alloc(ULONG cb)
{
if (m_pIMalloc)
return m_pIMalloc->Alloc(cb);
else
return ::malloc(cb);
}
void* CMLAlloc::Realloc(void* pv, ULONG cb)
{
if (m_pIMalloc)
return m_pIMalloc->Realloc(pv, cb);
else
return ::realloc(pv, cb);
}
void CMLAlloc::Free(void* pv)
{
if (m_pIMalloc)
m_pIMalloc->Free(pv);
else
::free(pv);
}
/////////////////////////////////////////////////////////////////////////////
// CMLList
HRESULT CMLList::Add(void** ppv)
{
if (!m_pFree) // No free cell
{
// Determine new size of the buffer
const int cNewCell = (m_cbCell * m_cCell + m_cbIncrement + m_cbCell - 1) / m_cbCell;
ASSERT(cNewCell > m_cCell);
const long lNewSize = cNewCell * m_cbCell;
// Allocate the buffer
void *pNewBuf;
if (!m_pBuf)
{
pNewBuf = MemAlloc(lNewSize);
}
else
{
pNewBuf = MemRealloc((void*)m_pBuf, lNewSize);
ASSERT(m_pBuf == pNewBuf);
}
ASSERT_WRITE_BLOCK_OR_NULL((BYTE*)pNewBuf, lNewSize);
if (pNewBuf)
{
// Add new cells to free link
m_pFree = m_pBuf[m_cCell].m_pNext;
for (int iCell = m_cCell; iCell + 1 < cNewCell; iCell++)
m_pBuf[iCell].m_pNext = &m_pBuf[iCell + 1];
m_pBuf[iCell].m_pNext = NULL;
m_pBuf = (CCell*)pNewBuf;
m_cCell = cNewCell;
}
}
if (m_pFree)
{
// Get a new element from free link
CCell* const pNewCell = m_pFree;
m_pFree = pNewCell->m_pNext;
*ppv = pNewCell;
return S_OK;
}
else
{
*ppv = NULL;
return E_OUTOFMEMORY;
}
}
HRESULT CMLList::Remove(void* pv)
{
AssertPV(pv);
#ifdef DEBUG
for (CCell* pWalk = m_pFree; pWalk && pWalk != pv; pWalk = pWalk->m_pNext)
;
ASSERT(!pWalk); // pv is already in free link
#endif
CCell* const pCell = (CCell* const)pv;
pCell->m_pNext = m_pFree;
m_pFree = pCell;
return S_OK;
}
/////////////////////////////////////////////////////////////////////////////
// CMLListLru
HRESULT CMLListLru::Add(void** ppv)
{
HRESULT hr;
CCell* pCell;
if (SUCCEEDED(hr = CMLList::Add((void**)&pCell)))
{
// Add the cell at the bottom of LRU link
for (CCell** ppCell = &m_pTop; *ppCell; ppCell = &(*ppCell)->m_pNext)
;
*ppCell = pCell;
pCell->m_pNext = NULL;
}
*ppv = (void*)pCell;
return hr;
}
HRESULT CMLListLru::Remove(void* pv)
{
AssertPV(pv);
// Look for previous cell of given
for (CCell** ppWalk = &m_pTop; *ppWalk != pv && *ppWalk; ppWalk = &(*ppWalk)->m_pNext)
;
ASSERT(!*ppWalk); // Not found in LRU link
if (*ppWalk)
{
// Remove from LRU link
CCell* const pCell = *ppWalk;
*ppWalk = pCell->m_pNext;
}
// Add to free link
return CMLList::Remove(pv);
}
/////////////////////////////////////////////////////////////////////////////
// CMLListFast
HRESULT CMLListFast::Add(void** ppv)
{
HRESULT hr;
CCell* pCell;
if (SUCCEEDED(hr = CMLList::Add((void**)&pCell)))
{
// Add to top of double link
pCell->m_pNext = m_pTop;
CCell* const pPrev = m_pTop->m_pPrev;
pCell->m_pPrev = pPrev;
m_pTop = pCell;
pPrev->m_pNext = pCell;
}
*ppv = (void*)pCell;
return hr;
}
HRESULT CMLListFast::Remove(void* pv)
{
AssertPV(pv);
// Remove from double link
CCell* const pCell = (CCell*)pv;
CCell* const pPrev = pCell->m_pPrev;
CCell* const pNext = (CCell*)pCell->m_pNext;
pPrev->m_pNext = pNext;
pNext->m_pPrev = pPrev;
// Add to free link
return CMLList::Remove(pv);
}
#endif // NEWMLSTR
HRESULT
_FaultInIEFeature(HWND hwnd, uCLSSPEC *pclsspec, QUERYCONTEXT *pQ, DWORD dwFlags)
{
HRESULT hr = E_FAIL;
typedef HRESULT (WINAPI *PFNJIT)(
HWND hwnd,
uCLSSPEC *pclsspec,
QUERYCONTEXT *pQ,
DWORD dwFlags);
static PFNJIT pfnJIT = NULL;
if (!pfnJIT && !g_hUrlMon)
{
g_hUrlMon = LoadLibrary(TEXT("urlmon.DLL"));
if (g_hUrlMon)
pfnJIT = (PFNJIT)GetProcAddress(g_hUrlMon, "FaultInIEFeature");
}
if (pfnJIT)
hr = pfnJIT(hwnd, pclsspec, pQ, dwFlags);
return hr;
}
HRESULT InstallIEFeature(HWND hWnd, CLSID *clsid, DWORD dwfIODControl)
{
HRESULT hr = REGDB_E_CLASSNOTREG;
uCLSSPEC classpec;
DWORD dwfIEF = 0;
classpec.tyspec=TYSPEC_CLSID;
classpec.tagged_union.clsid=*clsid;
if (dwfIODControl & CPIOD_PEEK)
dwfIEF |= FIEF_FLAG_PEEK;
if (dwfIODControl & CPIOD_FORCE_PROMPT)
dwfIEF |= FIEF_FLAG_FORCE_JITUI;
hr = _FaultInIEFeature(hWnd, &classpec, NULL, dwfIEF);
if (hr != S_OK) {
hr = REGDB_E_CLASSNOTREG;
}
return hr;
}
HRESULT _GetJITClsIDForCodePage(UINT uiCP, CLSID *clsid)
{
switch(uiCP)
{
case 932: // JA
*clsid = CLSID_Japanese;
break;
case 949: // KOR
*clsid = CLSID_Korean;
break;
case 950: // ZHT
*clsid = CLSID_TradChinese;
break;
case 936: // ZHC
*clsid = CLSID_SimpChinese;
break;
case 874:
*clsid = CLSID_Thai;
break;
case 1255:
*clsid = CLSID_Hebrew;
break;
case 1256:
*clsid = CLSID_Arabic;
break;
case 1258:
*clsid = CLSID_Vietnamese;
break;
case 1250: // PANEURO
case 1251:
case 1253:
case 1254:
case 1257:
*clsid = CLSID_PanEuro;
break;
case 50001:
*clsid = CLSID_Auto;
break;
default:
return E_INVALIDARG;
}
return S_OK;
}
// Only good for family code pages.
HRESULT _ValidateCPInfo(UINT uiCP)
{
HRESULT hr = E_FAIL;
if (g_pMimeDatabase) // just a paranoid
{
switch(uiCP)
{
case 932: // JA
case 949: // KOR
case 874: // Thai
case 950: // ZHT
case 936: // ZHC
case 1255: // Hebrew
case 1256: // Arabic
case 1258: // Vietnamese
case 50001: // CP_AUTO
// just validate what's given
hr = g_pMimeDatabase->ValidateCP(uiCP);
break;
case 1250: // PANEURO
case 1251:
case 1253:
case 1254:
case 1257:
// have to validate
// all of these
hr = g_pMimeDatabase->ValidateCP(1250);
if (SUCCEEDED(hr))
hr = g_pMimeDatabase->ValidateCP(1251);
if (SUCCEEDED(hr))
hr = g_pMimeDatabase->ValidateCP(1253);
if (SUCCEEDED(hr))
hr = g_pMimeDatabase->ValidateCP(1254);
if (SUCCEEDED(hr))
hr = g_pMimeDatabase->ValidateCP(1257);
break;
default:
return E_INVALIDARG;
}
}
return hr;
}
// assumes the corresponding fontfile name for now
HRESULT _AddFontForCP(UINT uiCP)
{
TCHAR szFontsPath[MAX_PATH];
LPTSTR szFontFile;
HRESULT hr = S_OK;
BOOL bAtLeastOneFontAdded = FALSE;
switch(uiCP)
{
case 932: // JA
szFontFile = s_szJaFont;
break;
case 949: // KOR
szFontFile = s_szKorFont;
break;
case 950: // ZHT
szFontFile = s_szZhtFont;
break;
case 936: // ZHC
szFontFile = s_szZhcFont;
break;
case 874:
szFontFile = s_szThaiFont;
break;
case 1255:
szFontFile = s_szIwFont;
break;
case 1256:
szFontFile = s_szArFont;
break;
case 1258:
szFontFile = s_szViFont;
break;
case 1251: // PANEURO
case 1253:
case 1254:
case 1257:
szFontFile = s_szPeFont;
break;
default:
hr = E_INVALIDARG;
}
// addfontresource, then broadcast WM_FONTCHANGE
if (SUCCEEDED(hr))
{
if (MLGetWindowsDirectory(szFontsPath, ARRAYSIZE(szFontsPath)))
{
TCHAR szFontFilePath[MAX_PATH];
LPTSTR psz, pszT;
MLPathCombine(szFontsPath, szFontsPath, szFonts);
for (psz = szFontFile; *psz; psz = pszT + 1)
{
pszT = MLStrChr(psz, TEXT(','));
if (pszT)
{
*pszT=TEXT('\0');
}
MLPathCombine(szFontFilePath, szFontsPath, psz);
if (AddFontResource(szFontFilePath))
{
bAtLeastOneFontAdded = TRUE;
}
if (!pszT)
break;
}
if (!bAtLeastOneFontAdded)
hr = E_FAIL;
}
else
hr = E_FAIL;
}
// Clients will take care of WM_FONTCHANGE notification
return hr;
}
int _LoadStringExA(
HMODULE hModule,
UINT wID,
LPSTR lpBuffer,
int cchBufferMax,
WORD wLangId)
{
int iRet = 0;
LPWSTR lpwStr = (LPWSTR) LocalAlloc(LPTR, cchBufferMax*sizeof(WCHAR));
if (lpwStr)
{
iRet = _LoadStringExW(hModule, wID, lpwStr, cchBufferMax, wLangId);
if (iRet)
iRet = WideCharToMultiByte(CP_ACP, 0, lpwStr, iRet, lpBuffer, cchBufferMax, NULL, NULL);
if(iRet >= cchBufferMax)
iRet = cchBufferMax-1;
lpBuffer[iRet] = 0;
LocalFree(lpwStr);
}
return iRet;
}
// Extend LoadString() to to _LoadStringExW() to take LangId parameter
int _LoadStringExW(
HMODULE hModule,
UINT wID,
LPWSTR lpBuffer, // Unicode buffer
int cchBufferMax, // cch in Unicode buffer
WORD wLangId)
{
HRSRC hResInfo;
HANDLE hStringSeg;
LPWSTR lpsz;
int cch;
// Make sure the parms are valid.
if (lpBuffer == NULL || cchBufferMax == 0)
{
return 0;
}
cch = 0;
// String Tables are broken up into 16 string segments. Find the segment
// containing the string we are interested in.
if (hResInfo = FindResourceExW(hModule, (LPCWSTR)RT_STRING,
(LPWSTR)IntToPtr(((USHORT)wID >> 4) + 1), wLangId))
{
// Load that segment.
hStringSeg = LoadResource(hModule, hResInfo);
// Lock the resource.
if (lpsz = (LPWSTR)LockResource(hStringSeg))
{
// Move past the other strings in this segment.
// (16 strings in a segment -> & 0x0F)
wID &= 0x0F;
while (TRUE)
{
cch = *((WORD *)lpsz++); // PASCAL like string count
// first UTCHAR is count if TCHARs
if (wID-- == 0) break;
lpsz += cch; // Step to start if next string
}
// Account for the NULL
cchBufferMax--;
// Don't copy more than the max allowed.
if (cch > cchBufferMax)
cch = cchBufferMax-1;
// Copy the string into the buffer.
CopyMemory(lpBuffer, lpsz, cch*sizeof(WCHAR));
// Attach Null terminator.
lpBuffer[cch] = 0;
}
}
return cch;
}
typedef struct tagCPLGID
{
UINT uiCodepage;
TCHAR szLgId[3];
TCHAR szLgIdHex[3]; // Darn it! NT should be persistent on presenting language group numbers
// It uses decimal string in INF and hex string in registry.
// We have to add this field to save conversion, this is fine for a small array of data.
} CPLGID;
const CPLGID CpLgId[] =
{
{1252, TEXT("1"), TEXT("1")}, // WESTERN EUROPE
{1250, TEXT("2"), TEXT("2")}, // CENTRAL EUROPE
{1257, TEXT("3"), TEXT("3")}, // BALTIC
{1253, TEXT("4"), TEXT("4")}, // GREEK
{1251, TEXT("5"), TEXT("5")}, // CYRILLIC
{1254, TEXT("6"), TEXT("6")}, // TURKISH
{932, TEXT("7"), TEXT("7")}, // JAPANESE
{949, TEXT("8"), TEXT("8")}, // KOREAN
{950, TEXT("9"), TEXT("9")}, // TRADITIONAL CHINESE
{936, TEXT("10"), TEXT("a")}, // SIMPLIFIED CHINESE
{874, TEXT("11"), TEXT("b")}, // THAI
{1255, TEXT("12"), TEXT("c")}, // HEBREW
{1256, TEXT("13"), TEXT("d")}, // ARABIC
{1258, TEXT("14"), TEXT("e")}, // VIETNAMESE
// ISCII encodings don't really have code pages or family code page
// Code pages number are made up in W2K for conveniences,
// So, we have to list them all to install the same Indian language group
{57002,TEXT("15"), TEXT("f")}, // INDIAN
{57003,TEXT("15"), TEXT("f")}, // INDIAN
{57004,TEXT("15"), TEXT("f")}, // INDIAN
{57005,TEXT("15"), TEXT("f")}, // INDIAN
{57006,TEXT("15"), TEXT("f")}, // INDIAN
{57007,TEXT("15"), TEXT("f")}, // INDIAN
{57008,TEXT("15"), TEXT("f")}, // INDIAN
{57009,TEXT("15"), TEXT("f")}, // INDIAN
{57010,TEXT("15"), TEXT("f")}, // INDIAN
{57011,TEXT("15"), TEXT("f")}, // INDIAN
};
typedef BOOL (WINAPI *PFNISNTADMIN) ( DWORD dwReserved, DWORD *lpdwReserved );
typedef INT (WINAPI *PFNSETUPPROMPTREBOOT) (
HSPFILEQ FileQueue, // optional, handle to a file queue
HWND Owner, // parent window of this dialog box
BOOL ScanOnly // optional, do not prompt user
);
typedef PSP_FILE_CALLBACK PFNSETUPDEFAULTQUEUECALLBACK;
typedef VOID (WINAPI *PFNSETUPCLOSEINFFILE) (
HINF InfHandle
);
typedef BOOL (WINAPI *PFNSETUPINSTALLFROMINFSECTION) (
HWND Owner,
HINF InfHandle,
LPCTSTR SectionName,
UINT Flags,
HKEY RelativeKeyRoot, OPTIONAL
LPCTSTR SourceRootPath, OPTIONAL
UINT CopyFlags,
PSP_FILE_CALLBACK MsgHandler,
PVOID Context,
HDEVINFO DeviceInfoSet, OPTIONAL
PSP_DEVINFO_DATA DeviceInfoData OPTIONAL
);
typedef HINF (WINAPI *PFNSETUPOPENINFFILE) (
LPCTSTR FileName,
LPCTSTR InfClass, OPTIONAL
DWORD InfStyle,
PUINT ErrorLine OPTIONAL
);
typedef PVOID (WINAPI *PFNSETUPINITDEFAULTQUEUECALLBACK) (
IN HWND OwnerWindow
);
typedef BOOL (WINAPI *PFNSETUPOPENAPPENDINFFILE) (
PCTSTR FileName, // optional, name of the file to append
HINF InfHandle, // handle of the file to append to
PUINT ErrorLine // optional, receives error information
);
HRESULT IsNTLangpackAvailable(UINT uiCP)
{
HRESULT hr = S_FALSE;
// check if there is a valid W2K language group
for (int i=0; i < ARRAYSIZE(CpLgId); i++)
{
if (uiCP == CpLgId[i].uiCodepage)
{
hr = S_OK;
break;
}
}
// check if it is already installed, if so, we don't install it again
if (S_OK == hr)
{
HKEY hkey;
if (ERROR_SUCCESS == RegOpenKeyEx(HKEY_LOCAL_MACHINE,
REGSTR_PATH_NT5LPK_INSTALL,
0, KEY_READ, &hkey))
{
DWORD dwType = REG_SZ;
TCHAR szLpkInstall[16] = {0};
DWORD dwSize = sizeof(szLpkInstall);
if (ERROR_SUCCESS == RegQueryValueEx(hkey, CpLgId[i].szLgIdHex, 0,
&dwType, (LPBYTE)&szLpkInstall, &dwSize))
{
if (!lstrcmp(szLpkInstall, TEXT("1")))
hr = S_FALSE;
}
RegCloseKey(hkey);
}
}
return hr;
}
HRESULT _InstallNT5Langpack(HWND hwnd, UINT uiCP)
{
HRESULT hr = E_FAIL;
HINF hIntlInf = NULL;
TCHAR szIntlInf[MAX_PATH];
TCHAR szIntlInfSection[MAX_PATH];
PVOID QueueContext = NULL;
HINSTANCE hDllAdvPack = NULL;
HINSTANCE hDllSetupApi = NULL;
PFNSETUPINSTALLFROMINFSECTION lpfnSetupInstallFromInfSection = NULL;
PFNSETUPCLOSEINFFILE lpfnSetupCloseInfFile = NULL;
PFNSETUPDEFAULTQUEUECALLBACK lpfnSetupDefaultQueueCallback = NULL;
PFNSETUPOPENINFFILE lpfnSetupOpenInfFile = NULL;
PFNISNTADMIN lpfnIsNTAdmin = NULL;
PFNSETUPINITDEFAULTQUEUECALLBACK lpfnSetupInitDefaultQueueCallback = NULL;
PFNSETUPOPENAPPENDINFFILE lpfnSetupOpenAppendInfFile = NULL;
for (int i=0; i < ARRAYSIZE(CpLgId); i++)
{
if (uiCP == CpLgId[i].uiCodepage)
{
_tcscpy(szIntlInfSection, TEXT("LG_INSTALL_"));
_tcscat(szIntlInfSection, CpLgId[i].szLgId);
break;
}
}
if (i >= ARRAYSIZE(CpLgId))
{
goto LANGPACK_EXIT;
}
hDllAdvPack = LoadLibrary(TEXT("advpack.dll"));
hDllSetupApi = LoadLibrary(TEXT("setupapi.dll"));
if (!hDllAdvPack || !hDllSetupApi)
{
goto LANGPACK_EXIT;
}
lpfnIsNTAdmin = (PFNISNTADMIN) GetProcAddress( hDllAdvPack, "IsNTAdmin");
lpfnSetupCloseInfFile = (PFNSETUPCLOSEINFFILE) GetProcAddress( hDllSetupApi, "SetupCloseInfFile");
lpfnSetupInitDefaultQueueCallback = (PFNSETUPINITDEFAULTQUEUECALLBACK) GetProcAddress(hDllSetupApi, "SetupInitDefaultQueueCallback");
#ifdef UNICODE
lpfnSetupOpenInfFile = (PFNSETUPOPENINFFILE) GetProcAddress( hDllSetupApi, "SetupOpenInfFileW"));
lpfnSetupInstallFromInfSection = (PFNSETUPINSTALLFROMINFSECTION) GetProcAddress( hDllSetupApi, "SetupInstallFromInfSectionW");
lpfnSetupDefaultQueueCallback = (PFNSETUPDEFAULTQUEUECALLBACK) GetProcAddress(hDllSetupApi, "SetupDefaultQueueCallbackW");
lpfnSetupOpenAppendInfFile = (PFNSETUPDEFAULTQUEUECALLBACK) GetProcAddress(hDllSetupApi, "SetupOpenAppendInfFileW");
#else
lpfnSetupOpenInfFile = (PFNSETUPOPENINFFILE) GetProcAddress( hDllSetupApi, "SetupOpenInfFileA");
lpfnSetupInstallFromInfSection = (PFNSETUPINSTALLFROMINFSECTION) GetProcAddress( hDllSetupApi, "SetupInstallFromInfSectionA");
lpfnSetupDefaultQueueCallback = (PFNSETUPDEFAULTQUEUECALLBACK) GetProcAddress(hDllSetupApi, "SetupDefaultQueueCallbackA");
lpfnSetupOpenAppendInfFile = (PFNSETUPOPENAPPENDINFFILE) GetProcAddress(hDllSetupApi, "SetupOpenAppendInfFileA");
#endif
if (!lpfnIsNTAdmin || !lpfnSetupOpenInfFile || !lpfnSetupCloseInfFile || !lpfnSetupDefaultQueueCallback
|| !lpfnSetupInstallFromInfSection || !lpfnSetupInitDefaultQueueCallback || !lpfnSetupOpenAppendInfFile)
{
goto LANGPACK_EXIT;
}
if (!lpfnIsNTAdmin(0, NULL))
{
WCHAR wszLangInstall[MAX_PATH];
WCHAR wszNoAdmin[1024];
LANGID LangId = GetNT5UILanguage();
// Fall back to English (US) if we don't have a specific language resource
if (!_LoadStringExW(g_hInst, IDS_LANGPACK_INSTALL, wszLangInstall, ARRAYSIZE(wszLangInstall), LangId) ||
!_LoadStringExW(g_hInst, IDS_NO_ADMIN, wszNoAdmin, ARRAYSIZE(wszNoAdmin), LangId))
{
LangId = MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US);
_LoadStringExW(g_hInst, IDS_LANGPACK_INSTALL, wszLangInstall, ARRAYSIZE(wszLangInstall), LangId);
_LoadStringExW(g_hInst, IDS_NO_ADMIN, wszNoAdmin, ARRAYSIZE(wszNoAdmin), LangId);
}
ULONG_PTR uCookie = 0;
SHActivateContext(&uCookie);
MessageBoxW(hwnd, wszNoAdmin, wszLangInstall, MB_OK);
if (uCookie)
{
SHDeactivateContext(uCookie);
}
goto LANGPACK_EXIT;
}
QueueContext = lpfnSetupInitDefaultQueueCallback(hwnd);
MLGetWindowsDirectory(szIntlInf, MAX_PATH);
MLPathCombine(szIntlInf, szIntlInf, TEXT("inf\\intl.inf"));
hIntlInf = lpfnSetupOpenInfFile(szIntlInf, NULL, INF_STYLE_WIN4, NULL);
if (!lpfnSetupOpenAppendInfFile(NULL, hIntlInf, NULL))
{
lpfnSetupCloseInfFile(hIntlInf);
goto LANGPACK_EXIT;
}
if (INVALID_HANDLE_VALUE != hIntlInf)
{
if (lpfnSetupInstallFromInfSection( hwnd,
hIntlInf,
szIntlInfSection,
SPINST_FILES,
NULL,
NULL,
SP_COPY_NEWER,
lpfnSetupDefaultQueueCallback,
QueueContext,
NULL,
NULL ))
{
if (lpfnSetupInstallFromInfSection( hwnd,
hIntlInf,
szIntlInfSection,
SPINST_ALL & ~SPINST_FILES,
NULL,
NULL,
0,
lpfnSetupDefaultQueueCallback,
QueueContext,
NULL,
NULL ))
{
hr = S_OK;
}
}
lpfnSetupCloseInfFile(hIntlInf);
}
LANGPACK_EXIT:
if(hDllSetupApi)
FreeLibrary(hDllSetupApi);
if(hDllAdvPack)
FreeLibrary(hDllAdvPack);
//
// Bug #289905, On Whistler, language pack will be installed with a groups of languages,
// So, MLang need to validate codepage and fonts for all languages in the same group
// After intl.cpl is modified for font validation, we'll remove this hardcoded language group.
//
if (hr == S_OK)
{
// This has to match Whistler language group
UINT uiDBCSCps[] = {932, 936, 949, 950, 0};
UINT uiCompCps[] = {874, 1255, 1256, 1258, 0};
UINT uiOtherCps[] = {uiCP, 0};
UINT *pCps = uiOtherCps;
if (MLIsOS(OS_WHISTLERORGREATER))
{
if (IS_DBCSCODEPAGE(uiCP))
pCps = uiDBCSCps;
else if (IS_COMPLEXSCRIPT_CODEPAGE(uiCP))
pCps = uiCompCps;
}
while (*pCps)
{
hr = _ValidateCPInfo(*pCps);
if (SUCCEEDED(hr))
{
_AddFontForCP(*pCps);
}
pCps++;
}
}
return hr;
}
BOOL _IsValidCodePage(UINT uiCodePage)
{
BOOL bRet;
if (50001 == uiCodePage)
{
HANDLE hFile = NULL;
CHAR szFileName[MAX_PATH];
LPSTR psz;
if (GetModuleFileNameA(g_hInst, szFileName, ARRAYSIZE(szFileName)) == 0)
return GetLastError();
if ( (psz = strrchr (szFileName, '\\')) != NULL ||
(psz = strrchr (szFileName, ':')) != NULL )
{
*++psz = 0;
}
else
*szFileName = 0;
strcat (szFileName, DETECTION_DATA_FILENAME);
if (INVALID_HANDLE_VALUE == (hFile = CreateFileA(szFileName, GENERIC_READ, FILE_SHARE_READ, NULL,
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL)))
{
bRet = FALSE;
}
else
{
bRet = TRUE;
CloseHandle(hFile);
}
}
else
{
bRet = IsValidCodePage(uiCodePage);
}
return bRet;
}
WCHAR *MLStrCpyNW(WCHAR *strDest, const WCHAR *strSource, int nCount)
{
return wcsncpy(strDest, strSource, nCount);
}
WCHAR *MLStrCpyW(WCHAR *strDest, const WCHAR *strSource)
{
return wcscpy(strDest, strSource);
}
LPTSTR MLStrChr( const TCHAR *string, int c )
{
return _tcschr(string, c);
}
LPTSTR MLStrCpyN(LPTSTR strDest, const LPTSTR strSource, UINT nCount)
{
return _tcsncpy(strDest, strSource, nCount);
}
LPTSTR MLStrStr(const LPTSTR Str, const LPTSTR subStr)
{
return _tcsstr(Str, subStr);
}
LPTSTR MLPathCombine(LPTSTR szPath, LPTSTR szPath1, LPTSTR szPath2)
{
int len;
if (!szPath)
return NULL;
if (szPath != szPath1)
{
_tcscpy(szPath, szPath1);
}
len = _tcslen(szPath1);
if (szPath[len-1] != TEXT('\\'))
{
szPath[len++] = TEXT('\\');
szPath[len] = 0;
}
return _tcscat(szPath, szPath2);
}
DWORD HexToNum(LPTSTR lpsz)
{
DWORD dw = 0L;
TCHAR c;
while(*lpsz)
{
c = *lpsz++;
if (c >= TEXT('A') && c <= TEXT('F'))
{
c -= TEXT('A') - 0xa;
}
else if (c >= TEXT('0') && c <= TEXT('9'))
{
c -= TEXT('0');
}
else if (c >= TEXT('a') && c <= TEXT('f'))
{
c -= TEXT('a') - 0xa;
}
else
{
break;
}
dw *= 0x10;
dw += c;
}
return(dw);
}
// Following code is borrowed from shlwapi
BOOL AnsiFromUnicode(
LPSTR * ppszAnsi,
LPCWSTR pwszWide, // NULL to clean up
LPSTR pszBuf,
int cchBuf)
{
BOOL bRet;
// Convert the string?
if (pwszWide)
{
// Yes; determine the converted string length
int cch;
LPSTR psz;
cch = WideCharToMultiByte(CP_ACP, 0, pwszWide, -1, NULL, 0, NULL, NULL);
// String too big, or is there no buffer?
if (cch > cchBuf || NULL == pszBuf)
{
// Yes; allocate space
cchBuf = cch + 1;
psz = (LPSTR)LocalAlloc(LPTR, CbFromCchA(cchBuf));
}
else
{
// No; use the provided buffer
ASSERT(pszBuf);
psz = pszBuf;
}
if (psz)
{
// Convert the string
cch = WideCharToMultiByte(CP_ACP, 0, pwszWide, -1, psz, cchBuf, NULL, NULL);
bRet = (0 < cch);
}
else
{
bRet = FALSE;
}
*ppszAnsi = psz;
}
else
{
// No; was this buffer allocated?
if (*ppszAnsi && pszBuf != *ppszAnsi)
{
// Yes; clean up
LocalFree((HLOCAL)*ppszAnsi);
*ppszAnsi = NULL;
}
bRet = TRUE;
}
return bRet;
}
int MLStrCmpI(IN LPCTSTR pwsz1, IN LPCTSTR pwsz2)
{
#ifdef UNICODE
return MLStrCmpIW(pwsz1, pwsz2);
#else
return lstrcmpiA(pwsz1, pwsz2);
#endif
}
int MLStrCmpNI(IN LPCTSTR pstr1, IN LPCTSTR pstr2, IN int count)
{
#ifdef UNICODE
return MLStrCmpNIW(pstr1, pstr2, count);
#else
return MLStrCmpNIA(pstr1, pstr2, count);
#endif
}
int MLStrCmpIW(
IN LPCWSTR pwsz1,
IN LPCWSTR pwsz2)
{
int iRet;
ASSERT(IS_VALID_STRING_PTRW(pwsz1, -1));
ASSERT(IS_VALID_STRING_PTRW(pwsz2, -1));
if (g_bIsNT)
{
iRet = CompareStringW(MAKELCID(MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US), SORT_DEFAULT), NORM_IGNORECASE, pwsz1, -1, pwsz2, -1) - CSTR_EQUAL;
}
else
{
CHAR sz1[512];
CHAR sz2[512];
LPSTR psz1;
LPSTR psz2;
iRet = -1; // arbitrary on failure
if (pwsz1 && pwsz2)
{
if (AnsiFromUnicode(&psz1, pwsz1, sz1, SIZECHARS(sz1)))
{
if (AnsiFromUnicode(&psz2, pwsz2, sz2, SIZECHARS(sz2)))
{
iRet = CompareStringA(MAKELCID(MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US), SORT_DEFAULT), NORM_IGNORECASE, psz1, -1, psz2, -1) - CSTR_EQUAL;
AnsiFromUnicode(&psz2, NULL, sz2, 0); // Free
}
AnsiFromUnicode(&psz1, NULL, sz1, 0); // Free
}
}
}
return iRet;
}
#ifdef UNIX
#ifdef BIG_ENDIAN
#define READNATIVEWORD(x) MAKEWORD(*(char*)(x), *(char*)((char*)(x) + 1))
#else
#define READNATIVEWORD(x) MAKEWORD(*(char*)((char*)(x) + 1), *(char*)(x))
#endif
#else
#define READNATIVEWORD(x) (*(UNALIGNED WORD *)x)
#endif
int WINAPI MLStrToIntA(
LPCSTR lpSrc)
{
int n = 0;
BOOL bNeg = FALSE;
if (*lpSrc == '-') {
bNeg = TRUE;
lpSrc++;
}
while (IS_DIGITA(*lpSrc)) {
n *= 10;
n += *lpSrc - '0';
lpSrc++;
}
return bNeg ? -n : n;
}
int WINAPI MLStrToIntW(
LPCWSTR lpSrc)
{
int n = 0;
BOOL bNeg = FALSE;
if (*lpSrc == L'-') {
bNeg = TRUE;
lpSrc++;
}
while (IS_DIGITW(*lpSrc)) {
n *= 10;
n += *lpSrc - L'0';
lpSrc++;
}
return bNeg ? -n : n;
}
/*
* ChrCmpI - Case insensitive character comparison for DBCS
* Assumes w1, wMatch are characters to be compared;
* HIBYTE of wMatch is 0 if not a DBC
* Return FALSE if match, TRUE if not
*/
BOOL ChrCmpIA(WORD w1, WORD wMatch)
{
char sz1[3], sz2[3];
if (IsDBCSLeadByte(sz1[0] = LOBYTE(w1)))
{
sz1[1] = HIBYTE(w1);
sz1[2] = '\0';
}
else
sz1[1] = '\0';
#if defined(MWBIG_ENDIAN)
sz2[0] = LOBYTE(wMatch);
sz2[1] = HIBYTE(wMatch);
#else
*(WORD *)sz2 = wMatch;
#endif
sz2[2] = '\0';
return lstrcmpiA(sz1, sz2);
}
BOOL ChrCmpIW(WCHAR w1, WCHAR wMatch)
{
WCHAR sz1[2], sz2[2];
sz1[0] = w1;
sz1[1] = '\0';
sz2[0] = wMatch;
sz2[1] = '\0';
return lstrcmpiW(sz1, sz2);
}
/*
* StrCmpNI - Compare n bytes, case insensitive
*
* returns See lstrcmpi return values.
*/
int MLStrCmpNIA(LPCSTR lpStr1, LPCSTR lpStr2, int nChar)
{
int i;
LPCSTR lpszEnd = lpStr1 + nChar;
for ( ; (lpszEnd > lpStr1) && (*lpStr1 || *lpStr2); (lpStr1 = AnsiNext(lpStr1)), (lpStr2 = AnsiNext(lpStr2))) {
WORD w1;
WORD w2;
// If either pointer is at the null terminator already,
// we want to copy just one byte to make sure we don't read
// past the buffer (might be at a page boundary).
w1 = (*lpStr1) ? READNATIVEWORD(lpStr1) : 0;
w2 = (UINT)(IsDBCSLeadByte(*lpStr2)) ? (UINT)READNATIVEWORD(lpStr2) : (WORD)(BYTE)(*lpStr2);
i = ChrCmpIA(w1, w2);
if (i)
return i;
}
return 0;
}
int MLStrCmpNIW(LPCWSTR lpStr1, LPCWSTR lpStr2, int nChar)
{
int i;
LPCWSTR lpszEnd = lpStr1 + nChar;
for ( ; (lpszEnd > lpStr1) && (*lpStr1 || *lpStr2); lpStr1++, lpStr2++) {
i = ChrCmpIW(*lpStr1, *lpStr2);
if (i) {
return i;
}
}
return 0;
}
HRESULT _IsCodePageInstallable(UINT uiCodePage)
{
MIMECPINFO cpInfo;
UINT uiFamCp;
HRESULT hr;
if (NULL != g_pMimeDatabase)
hr = g_pMimeDatabase->GetCodePageInfo(uiCodePage, 0x409, &cpInfo);
else
hr = E_OUTOFMEMORY;
if (FAILED(hr))
return E_INVALIDARG;
uiFamCp = cpInfo.uiFamilyCodePage;
if (g_bIsNT5)
{
hr = IsNTLangpackAvailable(uiFamCp);
}
else
{
CLSID clsid;
// clsid is just used for place holder
hr = _GetJITClsIDForCodePage(uiFamCp, &clsid);
}
return hr;
}
//
// CML2 specific utilities
//
//
// CMultiLanguage2::EnsureIEStatus()
//
// ensures CML2::m_pIEStat
//
HRESULT CMultiLanguage2::EnsureIEStatus(void)
{
HRESULT hr = S_OK;
// initialize IE status cache
if (!m_pIEStat)
{
m_pIEStat = new CIEStatus();
if (m_pIEStat)
{
hr = m_pIEStat->Init();
}
}
return hr;
}
//
// CIEStatus::Init()
//
// initializes the IE status;
//
HRESULT CMultiLanguage2::CIEStatus::Init(void)
{
HRESULT hr = S_OK;
HKEY hkey;
// Get JIT satus
if (RegOpenKeyEx(HKEY_CURRENT_USER,
REGSTR_PATH_MAIN,
0, KEY_READ, &hkey) == ERROR_SUCCESS)
{
DWORD dwVal, dwType;
DWORD dwSize = sizeof(dwVal);
RegQueryValueEx(hkey, TEXT("nojitsetup"), 0, &dwType, (LPBYTE)&dwVal, &dwSize);
RegCloseKey(hkey);
if (dwType == REG_DWORD && dwSize == sizeof(dwVal))
{
if (dwVal > 0 )
_IEFlags.fJITDisabled = TRUE;
else
_IEFlags.fJITDisabled = FALSE;
}
}
else
hr = E_FAIL;
// any other status to get initialized
// ...
return hr;
}
#define NT5LPK_DLG_STRING "MLang.NT5LpkDlg"
//
// LangpackDlgProc()
//
// Message handler for the NT5 langpack dialog.
//
INT_PTR CALLBACK LangpackDlgProc(HWND hDlg, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
ASSERT(g_bIsNT5);
switch (uMsg)
{
case WM_INITDIALOG:
HWND hwndCheckBox;
RECT rc1, rc2;
MIMECPINFO cpInfo;
SetProp(hDlg, NT5LPK_DLG_STRING, (HANDLE)lParam);
if ((NULL != g_pMimeDatabase) &&
SUCCEEDED(g_pMimeDatabase->GetCodePageInfo(HIWORD(lParam), GetNT5UILanguage(), &cpInfo)))
{
for (int i=0; i<MAX_MIMECP_NAME && cpInfo.wszDescription[i]; i++)
{
if (cpInfo.wszDescription[i] == L'(')
{
cpInfo.wszDescription[i] = 0;
break;
}
}
// Use W version regardlessly since we're only running this on NT5
SetDlgItemTextW(hDlg, IDC_STATIC_LANG, cpInfo.wszDescription);
}
// Center the dialog in the area of parent window
if (GetWindowRect(GetParent(hDlg), &rc1) && GetWindowRect(hDlg, &rc2))
{
MoveWindow(hDlg, (rc1.right+rc2.left+rc1.left-rc2.right)/2, (rc1.bottom+rc2.top+rc1.top-rc2.bottom)/2, rc2.right-rc2.left, rc2.bottom-rc2.top, FALSE);
}
hwndCheckBox = GetDlgItem(hDlg, IDC_CHECK_LPK);
// Set CheckBox state according to current registry setting
PostMessage(hwndCheckBox, BM_SETCHECK, LOWORD(lParam)? BST_UNCHECKED:BST_CHECKED, 0);
break;
case WM_COMMAND:
if (LOWORD(wParam) != IDC_CHECK_LPK)
{
HKEY hkey;
DWORD dwInstallOut = (BST_CHECKED == SendMessage(GetDlgItem(hDlg, IDC_CHECK_LPK), BM_GETCHECK, 0, 0)? 0:1);
DWORD dwInstallIn = LOWORD(GetProp(hDlg, NT5LPK_DLG_STRING));
if ((dwInstallOut != dwInstallIn) &&
ERROR_SUCCESS == RegOpenKeyEx(HKEY_CURRENT_USER,
REGSTR_PATH_INTERNATIONAL,
NULL, KEY_READ|KEY_SET_VALUE, &hkey))
{
DWORD dwType = REG_DWORD;
DWORD dwSize = sizeof(DWORD);
RegSetValueEx(hkey, REG_KEY_NT5LPK, 0, REG_DWORD, (LPBYTE)&dwInstallOut, sizeof(dwInstallOut));
RegCloseKey(hkey);
}
EndDialog(hDlg, LOWORD(wParam) == IDOK? 1: 0);
}
break;
case WM_HELP:
// Do we need help file for this simply dialog?
// If needed, we can always add it at later time.
break;
default:
return FALSE;
}
return TRUE;
}
// To get real Windows directory on Terminal Server,
// Instead of using internal Kernel32 API GetSystemWindowsDirectory with LoadLibrary/GetProcAddress,
// We cast GetSystemDirectory return to Windows directory
UINT MLGetWindowsDirectory(
LPTSTR lpBuffer, // address of buffer for Windows directory
UINT uSize // size of directory buffer
)
{
UINT uLen;
if (g_bIsNT)
{
if (uLen = GetSystemDirectory(lpBuffer, uSize))
{
if (lpBuffer[uLen-1] == TEXT('\\'))
uLen--;
while (uLen-- > 0)
{
if (lpBuffer[uLen] == TEXT('\\'))
{
lpBuffer[uLen] = NULL;
break;
}
}
}
}
else
uLen = GetWindowsDirectory(lpBuffer, uSize);
return uLen;
}
// To speed up basic ANSI string compare,
// We avoid using lstrcmpi in LOW-ASCII case
int LowAsciiStrCmpNIA(LPCSTR lpstr1, LPCSTR lpstr2, int count)
{
int delta;
while (count-- > 0)
{
delta = *lpstr1 - *lpstr2;
if (delta &&
!(IS_CHARA(*lpstr1) && IS_CHARA(*lpstr2) && (delta == 0x20 || delta == -0x20)))
return delta;
lpstr1++;
lpstr2++;
}
return 0;
}
//
// GetNT5UILanguage(void)
//
LANGID GetNT5UILanguage(void)
{
if (g_bIsNT5)
{
static LANGID (CALLBACK* pfnGetUserDefaultUILanguage)(void) = NULL;
if (pfnGetUserDefaultUILanguage == NULL)
{
HMODULE hmod = GetModuleHandle(TEXT("KERNEL32"));
if (hmod)
pfnGetUserDefaultUILanguage = (LANGID (CALLBACK*)(void))GetProcAddress(hmod, "GetUserDefaultUILanguage");
}
if (pfnGetUserDefaultUILanguage)
return pfnGetUserDefaultUILanguage();
}
return 0;
}
// Special characters that we should filter out
WCHAR wszBestFit[] = {0x00A6, 0x00A9, 0x00AB, 0x00AD, 0x00AE, 0x00B7, 0x00BB, 0x02C6, 0x02DC, 0x2013,
0x2014, 0x2018, 0x2019, 0x201A, 0x201C,0x201D, 0x201E, 0x2022, 0x2026, 0x2039, 0x203A,0x2122, 0x0000};
DWORD OutBoundDetectPreScan(LPWSTR lpWideCharStr, UINT cchWideChar, WCHAR *pwszCopy, WCHAR *lpBestFitChar)
{
DWORD dwRet = 0;
WCHAR *lpStart;
if (!lpBestFitChar)
lpBestFitChar = wszBestFit;
lpStart = lpBestFitChar;
if (pwszCopy)
{
MLStrCpyNW(pwszCopy, lpWideCharStr, cchWideChar);
lpWideCharStr = pwszCopy;
}
if (lpWideCharStr)
{
for (UINT ui=0; ui<cchWideChar; ui++)
{
if (IS_CJK_CHAR(*lpWideCharStr))
dwRet |= FS_CJK;
else if (IS_HINDI_CHAR(*lpWideCharStr))
dwRet |= FS_HINDI;
else if (IS_PUA_CHAR(*lpWideCharStr))
dwRet |= FS_PUA;
else if (pwszCopy)
{
while (*lpBestFitChar)
{
if (*lpWideCharStr == *lpBestFitChar)
*lpWideCharStr = 0x20;
lpBestFitChar++;
}
lpBestFitChar = lpStart;
}
lpWideCharStr++;
}
}
return dwRet;
}
//
// Whistler bug #90433 WEIWU 07/06/00
//
// Outlook has a bug its RTFHTML, this component doesn't CoInitialize/
// CoUninitialize COM, but, it uses MLang COM services, it depends on
// other threads (components) to deal with COM, when COM is unloaded by those threads.
// Invoking the interface pointer causes AV. RTFHTML should CoInit/CoUnInit by
// itself.
//
// The reason for this to be working before is - MLang was depending on ATL
// for objects management, ATL create heap for MLang object allocations, MLang
// notifies ATL to destroy the heap at DLL detach time and RTFHTML's IsBadReadPtr
// () caught the invalid pointer. Now in Whistler, MLang includes crtfree.h
// which overwrites ATL memory management functions (same as other shell
// components), so, nothing is allocated from the process heap, this is fine for
// MLang since it assumes that clients use COM correctly.
//
// Now, we add this function to check Outlook version, if it is the buggy Outlook,
// We'll load mlang.dll itself DllGetClassObject() to increase the Dll ref count
//
BOOL NeedToLoadMLangForOutlook(void)
{
TCHAR szModulePath[MAX_PATH];
CHAR chBuffer[4096];
DWORD dwHandle;
VS_FIXEDFILEINFO * pszVersion;
static BOOL bMLangLoaded = FALSE;
if (!bMLangLoaded)
{
if (GetModuleFileName(GetModuleHandle(NULL), szModulePath, ARRAYSIZE(szModulePath)))
{
if (MLStrStr(szModulePath, TEXT("OUTLOOK.EXE")))
{
UINT cb = GetFileVersionInfoSize(szModulePath, &dwHandle);
if (cb <= sizeof(chBuffer) &&
GetFileVersionInfo(szModulePath, dwHandle, sizeof(chBuffer), (void *)chBuffer) &&
VerQueryValue((void *)chBuffer, TEXT("\\"), (void **) &pszVersion, &cb) &&
(HIWORD(pszVersion->dwProductVersionMS) <= 0x09))
{
bMLangLoaded = TRUE;
return TRUE;
}
}
}
}
return FALSE;
}
//
// staticIsOS() doesn't support newer Whistler OS flags.
// Borrow code from shlwapi - IsOS()
//
BOOL MLIsOS(DWORD dwOS)
{
BOOL bRet;
static OSVERSIONINFOEXA s_osvi = {0};
static BOOL s_bVersionCached = FALSE;
if (!s_bVersionCached)
{
s_bVersionCached = TRUE;
s_osvi.dwOSVersionInfoSize = sizeof(s_osvi);
if (!GetVersionExA((OSVERSIONINFOA*)&s_osvi))
{
// If it failed, it must be a down level platform
s_osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOA);
GetVersionExA((OSVERSIONINFOA*)&s_osvi);
}
}
switch (dwOS)
{
case OS_TERMINALREMOTEADMIN:
// this checks to see if TS has been installed in the "Remote Administration" mode. This is
// the default for server installs on win2k and whistler
bRet = ((VER_SUITE_TERMINAL & s_osvi.wSuiteMask) &&
(VER_SUITE_SINGLEUSERTS & s_osvi.wSuiteMask));
break;
case 4: // used to be OS_NT5, is the same as OS_WIN2000ORGREATER so use that instead
case OS_WIN2000ORGREATER:
bRet = (VER_PLATFORM_WIN32_NT == s_osvi.dwPlatformId &&
s_osvi.dwMajorVersion >= 5);
break;
// NOTE: The flags in this section are bogus and SHOULD NOT BE USED (but downlevel shell32 uses them, so don't RIP there)
case OS_WIN2000PRO:
RIPMSG(!MLIsOS(OS_WHISTLERORGREATER), "IsOS: use OS_PROFESSIONAL instead of OS_WIN2000PRO !");
bRet = (VER_NT_WORKSTATION == s_osvi.wProductType &&
s_osvi.dwMajorVersion == 5);
break;
case OS_WIN2000ADVSERVER:
RIPMSG(!MLIsOS(OS_WHISTLERORGREATER), "IsOS: use OS_ADVSERVER instead of OS_WIN2000ADVSERVER !");
bRet = ((VER_NT_SERVER == s_osvi.wProductType ||
VER_NT_DOMAIN_CONTROLLER == s_osvi.wProductType) &&
s_osvi.dwMajorVersion == 5 &&
(VER_SUITE_ENTERPRISE & s_osvi.wSuiteMask) &&
!(VER_SUITE_DATACENTER & s_osvi.wSuiteMask));
break;
case OS_WIN2000DATACENTER:
RIPMSG(!MLIsOS(OS_WHISTLERORGREATER), "IsOS: use OS_DATACENTER instead of OS_WIN2000DATACENTER !");
bRet = ((VER_NT_SERVER == s_osvi.wProductType ||
VER_NT_DOMAIN_CONTROLLER == s_osvi.wProductType) &&
s_osvi.dwMajorVersion == 5 &&
(VER_SUITE_DATACENTER & s_osvi.wSuiteMask));
break;
case OS_WIN2000SERVER:
RIPMSG(!MLIsOS(OS_WHISTLERORGREATER), "IsOS: use OS_SERVER instead of OS_WIN2000SERVER !");
bRet = ((VER_NT_SERVER == s_osvi.wProductType ||
VER_NT_DOMAIN_CONTROLLER == s_osvi.wProductType) &&
!(VER_SUITE_DATACENTER & s_osvi.wSuiteMask) &&
!(VER_SUITE_ENTERPRISE & s_osvi.wSuiteMask) &&
s_osvi.dwMajorVersion == 5);
break;
// END bogus Flags
case OS_EMBEDDED:
bRet = (VER_SUITE_EMBEDDEDNT & s_osvi.wSuiteMask);
break;
case OS_WINDOWS:
bRet = (VER_PLATFORM_WIN32_WINDOWS == s_osvi.dwPlatformId);
break;
case OS_NT:
bRet = (VER_PLATFORM_WIN32_NT == s_osvi.dwPlatformId);
break;
case OS_WIN98ORGREATER:
bRet = (VER_PLATFORM_WIN32_WINDOWS == s_osvi.dwPlatformId &&
(s_osvi.dwMajorVersion > 4 ||
s_osvi.dwMajorVersion == 4 && s_osvi.dwMinorVersion >= 10));
break;
case OS_WIN98_GOLD:
bRet = (VER_PLATFORM_WIN32_WINDOWS == s_osvi.dwPlatformId &&
s_osvi.dwMajorVersion == 4 && s_osvi.dwMinorVersion == 10 &&
LOWORD(s_osvi.dwBuildNumber) == 1998);
break;
case OS_MILLENNIUMORGREATER:
bRet = (VER_PLATFORM_WIN32_WINDOWS == s_osvi.dwPlatformId &&
((s_osvi.dwMajorVersion == 4 && s_osvi.dwMinorVersion >= 90) ||
s_osvi.dwMajorVersion > 4));
break;
case OS_WHISTLERORGREATER:
bRet = (VER_PLATFORM_WIN32_NT == s_osvi.dwPlatformId &&
((s_osvi.dwMajorVersion > 5) ||
(s_osvi.dwMajorVersion == 5 && (s_osvi.dwMinorVersion > 0 ||
(s_osvi.dwMinorVersion == 0 && LOWORD(s_osvi.dwBuildNumber) > 2195)))));
break;
case OS_PERSONAL:
bRet = (VER_PLATFORM_WIN32_NT == s_osvi.dwPlatformId &&
(VER_SUITE_PERSONAL & s_osvi.wSuiteMask));
break;
default:
bRet = FALSE;
break;
}
return bRet;
}