A COM Registration Spy
By Phil Wilson, June 01, 2001
Installation is one of the messier areas of testing. Installing COM objects can splatter a variety of data all over your registry, and if you fail to roll one of them out before the next test, then the same test may mysteriously behave differently when run twice in a row. This article shows how a new Windows 2000 function, RegOverridePredefKey(), can give you programmatic control over the registry I/O of COM objects.
June 2001/A COM Registration Spy/Figure 1
HMODULE hMod = ::LoadLibrary (comname);
if (NULL==hMod){
MessageBox (NULL, "Can't Find", comname, MB_OK);
return 1;
}
HKEY hklm = 0;
HKEY hkcr = 0;
DWORD dwr=0;
// Find DllregisterServer, prepare to call it
ProcDllReg DLLRegisterServer = (ProcDllReg)::GetProcAddress(
hMod,"DllRegisterServer" ) ;
if (DLLRegisterServer != NULL) {
long lc = RegCreateKeyEx (HKEY_CURRENT_USER, keycr, 0, NULL, 0,
KEY_ALL_ACCESS, NULL, &hkcr, &dwr);
lc = RegOverridePredefKey (HKEY_CLASSES_ROOT, hkcr);
lc = RegCreateKeyEx (HKEY_CURRENT_USER, keylm, 0, NULL, 0,
KEY_ALL_ACCESS, NULL, &hklm, &dwr);
lc = RegOverridePredefKey (HKEY_LOCAL_MACHINE, hklm);
ProcDllReg DLLRegisterServer =
(ProcDllReg)::GetProcAddress(hMod,"DllRegisterServer" ) ;
HRESULT regResult = DLLRegisterServer() ;
RegOverridePredefKey (HKEY_CLASSES_ROOT, NULL);
RegOverridePredefKey (HKEY_LOCAL_MACHINE, NULL);
RegCloseKey (hkcr);
RegCloseKey (hklm);
}
else {
MessageBox (NULL, "DllRegisterServer Not Exported", comname,
MB_OK);
}
::FreeLibrary (hMod);
/* End of File */
