windows-nt/Source/XPSP1/NT/windows/appcompat/shims/general/populatedefaulthkcusettings.cpp
2020-09-26 16:20:57 +08:00

739 lines
23 KiB
C++
Raw Blame History

/*++
Copyright (c) 2000 Microsoft Corporation
Module Name:
PopulateDefaultHKCUSettings.cpp
Abstract:
Populate HKCU with default values if they do not exist. Some apps installs HKCU values
for only the user that ran setup on that app. In this case, if another users tries to use the
application they will be unable to due to missing HKCU regkeys.
To shim around this, we check for the existance of a regkey and if it does not exist, we then read
a pre-defined .reg file our of our resource section and exec regedit on it to add the necessary
registry keys. For example:
COMMAND_LINE("Software\Lotus\SmartCenter\97.0!SmartCenter97")
would mean that if the regkey 'HKCU\Software\Lotus\SmartCenter\97.0' does NOT exist, then we should
read the named resource 'SmartCenter97' out of our dll and write it to a temp .reg file and then
execute 'regedit.exe /s tempfile.reg' to properly populate the registry with the defaul HKCU values.
Notes:
This is an general shim. (Actually, its a Admiral shim, since its in the navy, hehe).
History:
01/31/2001 reiner Created
03/30/2001 amarp Added %__AppSystemDir_% and %__AppLocalOrCDDir<Param1><Param2><Param3>_%
(documented below)
--*/
#include "precomp.h"
#include "stdio.h"
// This module has been given an official blessing to use the str routines.
#include "LegalStr.h"
IMPLEMENT_SHIM_BEGIN(PopulateDefaultHKCUSettings)
#include "ShimHookMacro.h"
APIHOOK_ENUM_BEGIN
APIHOOK_ENUM_ENTRY(RegOpenKeyA)
APIHOOK_ENUM_ENTRY(RegOpenKeyW)
APIHOOK_ENUM_ENTRY(RegOpenKeyExA)
APIHOOK_ENUM_ENTRY(RegOpenKeyExW)
APIHOOK_ENUM_END
BOOL ParseCommandLine(const char* pszCmdLine, char* pszRegKeyName, DWORD cchRegKeyName, char* pszResourceName, DWORD cchResourceName)
{
BOOL bRet = FALSE;
char* psz;
psz = strstr(pszCmdLine, "!");
if (psz)
{
DWORD cchKey;
DWORD cchResource;
cchKey = (DWORD)(((BYTE*)psz - (BYTE*)pszCmdLine) / sizeof(char));
// move past the '!' so psz now points to the resource name
psz++;
cchResource = lstrlenA(psz);
if ((cchRegKeyName >= (cchKey + 1)) &&
(cchResourceName >= (cchResource + 1)))
{
// we have enough space in the output buffers to fit the strings
lstrcpynA(pszRegKeyName, pszCmdLine, cchKey + 1);
lstrcpynA(pszResourceName, psz, cchResourceName);
bRet = TRUE;
}
}
return bRet;
}
//
// This actually creates the tempfile (0 bytes) and returns
// the filename.
//
BOOL CreateTempName(char* szFileName)
{
char szTempPath[MAX_PATH];
BOOL bRet = FALSE;
if (GetTempPathA(sizeof(szTempPath)/sizeof(szTempPath[0]), szTempPath))
{
if (GetTempFileNameA(szTempPath,
"AcGenral",
0,
szFileName))
{
bRet = TRUE;
}
}
return bRet;
}
//
// Exec's "regedit /s" with the given file
//
BOOL SpawnRegedit(char* szFile)
{
STARTUPINFOA si = {0};
PROCESS_INFORMATION pi = {0};
char szApp[MAX_PATH * 2];
BOOL bRet = FALSE;
sprintf(szApp, "regedit.exe /s %s", szFile);
si.cb = sizeof(si);
si.dwFlags = STARTF_USESHOWWINDOW;
si.wShowWindow = SW_HIDE;
bRet = CreateProcessA(NULL,
szApp,
NULL,
NULL,
FALSE,
0,
NULL,
NULL,
&si,
&pi);
if (bRet)
{
WaitForSingleObject(pi.hProcess, INFINITE);
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);
}
return bRet;
}
//
// this function is used to change a path from:
//
// "C:\Lotus\Smartsuite" -> "C:\\Lotus\\Smartsuite"
//
// (.reg files use escaped backslashes)
//
BOOL DoubleUpBackslashes(WCHAR* pwszPath, DWORD cchPath)
{
BOOL bRet = FALSE;
WCHAR wszTemp[MAX_PATH * 2];
WCHAR* pwsz = pwszPath;
WCHAR* pwszTemp = wszTemp;
while (*pwszTemp = *pwsz)
{
if (*pwsz == L'\\')
{
// if we found a '\' then add another one
pwszTemp++;
*pwszTemp = L'\\';
}
pwsz++;
pwszTemp++;
}
if (cchPath >= (DWORD)(lstrlenW(wszTemp) + 1))
{
lstrcpynW(pwszPath, wszTemp, cchPath);
bRet = TRUE;
}
return bRet;
}
//
// This fuction calculates the application dir (pszAppDir) and the application
// parent dir (pszAppParentDir) based on the return from GetModuleFileName
//
BOOL InitAppDir(WCHAR* pwszSystemDir, DWORD cchSystemDir,
WCHAR* pwszAppDir, DWORD cchAppDir,
WCHAR* pwszAppParentDir, DWORD cchAppParentDir
)
{
BOOL bRet = FALSE;
WCHAR wszExePath[MAX_PATH];
bRet = GetSystemDirectoryW(pwszSystemDir,cchSystemDir);
if( !bRet )
return FALSE;
bRet = DoubleUpBackslashes(pwszSystemDir,cchSystemDir);
if( !bRet )
return FALSE;
if (GetModuleFileNameW(NULL, wszExePath, sizeof(wszExePath)/sizeof(wszExePath[0])))
{
// find the last '\' in the path
WCHAR* pwsz = wcsrchr(wszExePath, L'\\');
if (pwsz)
{
*pwsz = L'\0';
if (cchAppDir >= (DWORD)(lstrlenW(wszExePath) + 1))
{
lstrcpynW(pwszAppDir, wszExePath, cchAppDir);
bRet = DoubleUpBackslashes(pwszAppDir, cchAppDir);
if (bRet)
{
pwsz = wcsrchr(wszExePath, L'\\');
if (pwsz)
{
*pwsz = L'\0';
if (cchAppParentDir >= (DWORD)(lstrlenW(wszExePath) + 1))
{
lstrcpynW(pwszAppParentDir, wszExePath, cchAppParentDir);
bRet = DoubleUpBackslashes(pwszAppParentDir, cchAppParentDir);
}
}
else
{
// if there is not another '\' then just use the same path as pwszAppDir
lstrcpynW(pwszAppParentDir, wszExePath, cchAppParentDir);
bRet = TRUE;
}
}
}
}
}
return bRet;
}
//
// This function is called to actually write stuff out to the file
//
BOOL WriteToFile(HANDLE hFile, void* pv, DWORD cb)
{
DWORD dwBytesWritten;
BOOL bWriteSucceeded = FALSE;
if (WriteFile(hFile, pv, cb, &dwBytesWritten, NULL) &&
(dwBytesWritten == cb))
{
bWriteSucceeded = TRUE;
}
return bWriteSucceeded;
}
BOOL PathIsNonEmptyDirectory(WCHAR* pwszPath)
{
WCHAR wszSearchFilter[MAX_PATH];
DWORD dwAttr = GetFileAttributesW(pwszPath);
BOOL bRet = FALSE;
if( (-1 != dwAttr) && (FILE_ATTRIBUTE_DIRECTORY & dwAttr ) )
{
if( _snwprintf(wszSearchFilter,MAX_PATH,L"%s\\*.*",pwszPath) < 0 )
return bRet;
WIN32_FIND_DATAW FindData;
HANDLE hSearch = FindFirstFileW(wszSearchFilter,&FindData);
if( INVALID_HANDLE_VALUE == hSearch )
return bRet;
do
{
if(L'.' != FindData.cFileName[0])
{
bRet = TRUE;
break;
}
}
while( FindNextFileW(hSearch,&FindData) );
FindClose(hSearch);
}
return bRet;
}
BOOL FindCDDriveContainingDirectory(WCHAR* pwchCDDriveLetter, WCHAR* pwszCheckPath)
{
// Find out cd drive (looks for app cd in drive, else just chooses first cd drive found)
// NOTE: This function only actually does anything the first time its called (to avoid
// thrashing CD drive, or bringing up excessive dialogs if no CD in drive).
// The assumption is that once a good CD drive is found, any other times you need
// a CD drive in this shim, it will be the same one, so this function will just return
// that drive.
static BOOL s_bFoundDrive = FALSE;
static BOOL s_bTriedOnce = FALSE;
static WCHAR s_wchCDDriveLetter = L'\0';
if( s_bTriedOnce )
{
*pwchCDDriveLetter = s_wchCDDriveLetter;
return s_bFoundDrive;
}
s_bTriedOnce = TRUE;
DWORD dwLogicalDrives = GetLogicalDrives();
WCHAR wchCurrDrive = L'a';
WCHAR wszPath[MAX_PATH];
while( dwLogicalDrives )
{
if( dwLogicalDrives & 1 )
{
if( _snwprintf(wszPath,MAX_PATH,L"%c:",wchCurrDrive) < 0 )
return FALSE;
if( DRIVE_CDROM == GetDriveTypeW( wszPath ) )
{
if( L'\0' == s_wchCDDriveLetter )
{
s_bFoundDrive = TRUE;
s_wchCDDriveLetter = wchCurrDrive;
}
wcscat( wszPath, pwszCheckPath );
DWORD dwAttr = GetFileAttributesW(wszPath);
if( (-1 != dwAttr) && (FILE_ATTRIBUTE_DIRECTORY & dwAttr ) )
{
// this drive seems to have the app cd in it based on
// a very primitive heuristic... so lets use this as our cd drive.
s_wchCDDriveLetter = wchCurrDrive;
*pwchCDDriveLetter = s_wchCDDriveLetter;
return TRUE;
}
}
}
dwLogicalDrives >>= 1;
wchCurrDrive++;
}
*pwchCDDriveLetter = s_wchCDDriveLetter; //may be L'\0' if we didn't find anything.
return s_bFoundDrive;
}
BOOL GrabNParameters( UINT uiNumParameters,
WCHAR* pwszStart, WCHAR** ppwszEnd,
WCHAR pwszParam[][MAX_PATH] )
{
WCHAR* pwszEnd;
UINT uiLength;
*ppwszEnd = NULL;
for( UINT i = 0; i < uiNumParameters; i++ )
{
if( L'<' != *(pwszStart++) )
return FALSE;
pwszEnd = pwszStart;
while( (L'\0' != *pwszEnd) )
{
if( L'>' != *pwszEnd )
{
pwszEnd++;
continue;
}
uiLength = (pwszEnd - pwszStart);
if( uiLength >= MAX_PATH )
return FALSE;
wcsncpy(pwszParam[i],pwszStart,uiLength);
pwszParam[i][uiLength] = L'\0';
break;
}
if( L'>' != *pwszEnd )
return FALSE;
pwszStart = pwszEnd + 1;
}
*ppwszEnd = pwszStart;
return TRUE;
}
//
// As we write out the resource to a temp file, we need to scan through looking
// for the env variables:
//
// %__AppDir_%
// %__AppParentDir_%
//
// and replace them with the proper path (the dir of the current .exe or its parent,
// respectively).
//
// Additional vars (added by amarp):
//
// %__AppSystemDir_%
// - Maps to GetSystemDir() (i.e. c:\windows\system32)
//
// %__AppLocalOrCDDir<Param1><Param2><Param3>_%
//
// - The three parameters are just paths (should start with a \\).
// Any/all may be empty. They are defined as follows:
// Param1 = a relative path under the app<70>s install directory (i.e. under AppDir)
// Param2 = a relative path under the app<70>s CD drive (where CD Drive = "drive:")
// Param3 = a relative path/filename under Param1 or Param2 (in most cases this will be empty)
//
// When this var is encountered, it is replaced as follows:
// a) if AppDirParam1Param3 is a *nonempty* directory, output AppDirParam1Param3
// b) else, if there is a CDDrive for which directory CDDrive:Param2 exists, output CDDrive:Param2Param3
// c) else, output CDDrive:Param2Param3 for the first enumerated CD drive.
//
// Example: %__AppLocalOrCDDir<\\content\\clipart><\\clipart><\\index.dat>_% maps does the following:
// (lets assume AppDir is c:\app, and there are cd drives d: and e:, neither of which have the app's CD inserted)
// a) Is c:\app\content a directory? Yes! -> Is it nonempty (at least one file or directory that doesn't start with '.')?
// yes! -> output c:\app\content\index.dat
// <end>
//
// Or, this example could pan out to the following scenario:
// a) Is c:\app\content a directory? Yes! -> Is it nonempty? No!
// b) Is d:\clipart a directory? No! Is e:\clipart a directory? No!
// c) The first cd drive we found was d: -> output d:\clipart\index.dat
// <end>
//
// Anoter example: %__AppLocalOrCDDir<__UNUSED__><\\clipart><>_% maps does the following:
// (lets assume AppDir is c:\app and app CD is in drive d:)
// a) Is c:\app__UNUSED__ a directory? PROBABLY NOT! (thus we can essentially ignore this parameter by doing this)
// b) Is d:\clipart a directory? Yes! --> output d:\clipart
// <end>
//
//
//
// NOTE: cbResourceSize holds the size of the original resource (which is the 2 WCHAR's
// smaller than pvData). We use this to set eof after we are done writing everything
// out.
//
BOOL WriteResourceFile(HANDLE hFile, void* pvData, DWORD cbResourceSize)
{
DWORD cbFileSize = cbResourceSize;
WCHAR* pwszEndOfLastWrite = (WCHAR*)pvData;
WCHAR wszAppDir[MAX_PATH];
WCHAR wszAppParentDir[MAX_PATH];
WCHAR wszSystemDir[MAX_PATH];
BOOL bRet = FALSE;
bRet = InitAppDir(wszSystemDir, sizeof(wszSystemDir)/sizeof(wszSystemDir[0]),
wszAppDir, sizeof(wszAppDir)/sizeof(wszAppDir[0]),
wszAppParentDir, sizeof(wszAppParentDir)/sizeof(wszAppParentDir[0]));
if (!bRet)
return bRet;
do
{
WCHAR* pwsz = wcsstr(pwszEndOfLastWrite, L"%__App");
if (pwsz)
{
// first, write out anything before the tag we found
bRet = WriteToFile(hFile, pwszEndOfLastWrite, (DWORD)((BYTE*)pwsz - (BYTE*)pwszEndOfLastWrite));
if(!bRet)
break;
pwszEndOfLastWrite = pwsz;
// found a tag that we need to replace. See which one it is
if (wcsncmp(pwsz, L"%__AppDir_%", lstrlenW(L"%__AppDir_%")) == 0)
{
bRet = WriteToFile(hFile, wszAppDir, lstrlenW(wszAppDir) * sizeof(WCHAR));
pwszEndOfLastWrite += lstrlenW(L"%__AppDir_%");
}
else if (wcsncmp(pwsz, L"%__AppParentDir_%", lstrlenW(L"%__AppParentDir_%")) == 0)
{
bRet = WriteToFile(hFile, wszAppParentDir, lstrlenW(wszAppParentDir) * sizeof(WCHAR));
pwszEndOfLastWrite += lstrlenW(L"%__AppParentDir_%");
}
else if (wcsncmp(pwsz, L"%__AppSystemDir_%", lstrlenW(L"%__AppSystemDir_%")) == 0)
{
bRet = WriteToFile(hFile, wszSystemDir, lstrlenW(wszSystemDir) * sizeof(WCHAR));
pwszEndOfLastWrite += lstrlenW(L"%__AppSystemDir_%");
}
else if (wcsncmp(pwsz, L"%__AppLocalOrCDDir", lstrlenW(L"%__AppLocalOrCDDir")) == 0)
{
WCHAR wszParams[3][MAX_PATH];
WCHAR* pwszStart = pwsz + lstrlenW(L"%__AppLocalOrCDDir");
WCHAR* pwszEnd;
WCHAR wszDesiredPath[MAX_PATH];
WCHAR wchDrive;
if (!GrabNParameters(3,pwszStart,&pwszEnd,wszParams))
{
pwszEndOfLastWrite += lstrlenW(L"%__AppLocalOrCDDir");
continue;
}
if (0 != wcsncmp(pwszEnd, L"_%", lstrlenW(L"_%")))
{
pwszEndOfLastWrite = pwszEnd;
continue;
}
if ( _snwprintf( wszDesiredPath, MAX_PATH,L"%s%s", wszAppDir, wszParams[0] ) > 0 )
{
if( PathIsNonEmptyDirectory(wszDesiredPath) )
{
if( _snwprintf( wszDesiredPath, MAX_PATH,L"%s%s%s", wszAppDir, wszParams[0], wszParams[2] ) > 0 )
bRet = WriteToFile(hFile, wszDesiredPath, lstrlenW(wszDesiredPath) * sizeof(WCHAR));
}
else
{
WCHAR wchDrive;
UINT uiOffset;
if( L'\\' == wszParams[1][0] && L'\\' == wszParams[1][1] )
uiOffset = sizeof(WCHAR);
else
uiOffset = 0;
if( FindCDDriveContainingDirectory(&wchDrive,wszParams[1]+uiOffset) &&
(_snwprintf(wszDesiredPath,MAX_PATH,L"%c:%s%s",wchDrive,wszParams[1],wszParams[2]) > 0) )
bRet = WriteToFile(hFile, wszDesiredPath, lstrlenW(wszDesiredPath) * sizeof(WCHAR));
}
}
pwszEndOfLastWrite= pwszEnd + lstrlenW(L"_%");
}
else
{
// Strange... we found a string that started w/ "%__App" that wasen't one we are
// intersted in. Just skip over it and keep going.
bRet = WriteToFile(hFile, pwsz, lstrlenW(L"%__App") * sizeof(WCHAR));
pwszEndOfLastWrite += lstrlenW(L"%__App");
}
}
else
{
// didn't find anymore strings to replace
// using lstrlenW should give us the size of the string w/out the null, which is what we
// want since we added on the space for the null when we created the buffer
bRet = WriteToFile(hFile, pwszEndOfLastWrite, lstrlenW(pwszEndOfLastWrite) * sizeof(WCHAR));
// break out of the loop, as we are finished
break;
}
} while (bRet);
return bRet;
}
//
// The job of this function is to read the specified string resource our
// of our own DLL and write it to a temp file, and then to spawn regedit on
// the file
//
BOOL ExecuteRegFileFromResource(char* pszResourceName)
{
// lame, but we aren't passed our hinst in our pseudo dllmain,
// so we have to hardcode the dllname
HMODULE hmod = GetModuleHandleA("AcGenral");
BOOL bRet = FALSE;
if (hmod)
{
HRSRC hrsrc = FindResourceA(hmod, pszResourceName, MAKEINTRESOURCEA(10)/* RT_RCDATA */);
if (hrsrc)
{
DWORD dwSize;
void* pvData;
dwSize = SizeofResource(hmod, hrsrc);
// allocate enough room for the entire resource including puting a null terminator on
// the end since we will be treating it like huge LPWSTR.
pvData = LocalAlloc(LPTR, dwSize + sizeof(WCHAR));
if (pvData)
{
HGLOBAL hGlobal = LoadResource(hmod, hrsrc);
if (hGlobal)
{
void* pv = LockResource(hGlobal);
if (pv)
{
char szTempFile[MAX_PATH];
// copy the resource into our buffer
memcpy(pvData, pv, dwSize);
if (CreateTempName(szTempFile))
{
// we use OPEN_EXISTING since the tempfile should always exist as it
// was created in the call to CreateTempName()
HANDLE hFile = CreateFileA(szTempFile,
GENERIC_WRITE,
FILE_SHARE_READ,
NULL,
OPEN_EXISTING,
FILE_ATTRIBUTE_TEMPORARY,
NULL);
if (hFile != INVALID_HANDLE_VALUE)
{
DWORD dwBytesWritten;
BOOL bWriteSucceeded = WriteResourceFile(hFile, pvData, dwSize);
CloseHandle(hFile);
if (bWriteSucceeded)
{
bRet = SpawnRegedit(szTempFile);
}
}
DeleteFileA(szTempFile);
}
}
}
}
}
}
return bRet;
}
BOOL PopulateHKCUValues()
{
static BOOL s_fAlreadyPopulated = FALSE;
if (!s_fAlreadyPopulated)
{
char szRegKeyName[MAX_PATH];
char szResourceName[64];
UINT uiOldErrorMode = SetErrorMode(SEM_FAILCRITICALERRORS); // stop dialogs from coming up when we enumerate CD drives that are empty.
// set this to true so we only do this check once
s_fAlreadyPopulated = TRUE;
if (ParseCommandLine(COMMAND_LINE,
szRegKeyName,
sizeof(szRegKeyName)/sizeof(szRegKeyName[0]),
szResourceName,
sizeof(szResourceName)/sizeof(szResourceName[0])))
{
DWORD dwError;
HKEY hkCU;
// check to see if the HKCU registry key is already present
dwError = RegOpenKeyExA(HKEY_CURRENT_USER,
szRegKeyName,
0,
KEY_QUERY_VALUE,
&hkCU);
if (dwError == ERROR_SUCCESS)
{
// yep, its already there. Nothing to do.
RegCloseKey(hkCU);
}
else if (dwError == ERROR_FILE_NOT_FOUND)
{
// the regkey is missing, we will assume that this is the first time
// the user has run the app and populate HKCU with the proper stuff
ExecuteRegFileFromResource(szResourceName);
}
}
SetErrorMode(uiOldErrorMode);
}
return s_fAlreadyPopulated;
}
//
// Its lame that we have to hook RegOpenKey/Ex but since we need to call
// the advapi32 registry apis we can't do this as a straight NOTIFY_FUNCTION
// because we need to wait for advapi to have its DLL_PROCESS_ATTACH called.
//
LONG
APIHOOK(RegOpenKeyA)(HKEY hkey, LPCSTR pszSubKey, HKEY* phkResult)
{
PopulateHKCUValues();
return ORIGINAL_API(RegOpenKeyA)(hkey, pszSubKey, phkResult);
}
LONG
APIHOOK(RegOpenKeyW)(HKEY hkey, LPCWSTR pszSubKey, HKEY* phkResult)
{
PopulateHKCUValues();
return ORIGINAL_API(RegOpenKeyW)(hkey, pszSubKey, phkResult);
}
LONG
APIHOOK(RegOpenKeyExA)(HKEY hkey, LPCSTR pszSubKey, DWORD ulOptions, REGSAM samDesired, HKEY* phkResult)
{
PopulateHKCUValues();
return ORIGINAL_API(RegOpenKeyExA)(hkey, pszSubKey, ulOptions, samDesired, phkResult);
}
LONG
APIHOOK(RegOpenKeyExW)(HKEY hkey, LPCWSTR pszSubKey, DWORD ulOptions, REGSAM samDesired, HKEY* phkResult)
{
PopulateHKCUValues();
return ORIGINAL_API(RegOpenKeyExW)(hkey, pszSubKey, ulOptions, samDesired, phkResult);
}
/*++
Register hooked functions
--*/
HOOK_BEGIN
APIHOOK_ENTRY(ADVAPI32.DLL, RegOpenKeyA)
APIHOOK_ENTRY(ADVAPI32.DLL, RegOpenKeyW)
APIHOOK_ENTRY(ADVAPI32.DLL, RegOpenKeyExA)
APIHOOK_ENTRY(ADVAPI32.DLL, RegOpenKeyExW)
HOOK_END
IMPLEMENT_SHIM_END