/* (C) Copyright Microsoft Corporation 1991-1994. All Rights Reserved */
/*-----------------------------------------------------------------------------+
| FIXREG.C |
| |
| Publisher and Video For Windows make evil changes to the registry |
| when they are installed. Look for these changes. If they are spotted |
| then put up a message box to warn the user and offer the user the chance to |
| correct them (i.e. stuff our version back in) |
| |
| (C) Copyright Microsoft Corporation 1994. All rights reserved. |
| |
| Revision History |
| 10-Aug-1994 Lauriegr Created. |
| |
+-----------------------------------------------------------------------------*/
#include <windows.h>
#include <mmsystem.h>
#include <soundrec.h>
#include <reg.h>
#include <fixreg.h>
#include <string.h>
#include <tchar.h>
#define RC_INVOKED
#include <o2base.hxx>
#include <srs.hxx>
#undef RC_INVOKED
/* The idea is to call CheckRegValues(hinst) on a separate thread
(sort of backgroundy thing) and have it just die
quietly if there's no problem. If on the other hand there is a problem
then we need to get the message box up - and it's a VERY BAD IDEA to
try to put a message box up on anything other than the thread that's doing
all the UI (otherwise ScottLu will get you with a weasle word - guaranteed).
So the background thread should PostMessage (Post, don't Send - more weasles)
to the main thread a message to say "WM_BADREG". The main thread should then
wack up the dialog box by calling FixRegValues.
Suggested coding in main thread:
BackgroundRegCheck(hwndmain);
in window proc for hwndmain:
case WM_HEYUP:
FixReg(hwndmain, title);
*/
/* These are the things we check up.
First define them as static strings, since the compiler's not smart enough
to spot common strings.
NOTE - these values are NOT LOCALISED
*/
/* These are for Sound Recorder - Let's try to fix it all while we're here. */
TCHAR szSoundRec[] = TEXT("SoundRec");
TCHAR szSoundRec_CLSID[] = TEXT("SoundRec\\CLSID");
TCHAR szSROLE2GUID[] = TEXT("{00020C01-0000-0000-C000-000000000046}");
TCHAR szSROLE1GUID[] = TEXT("{0003000D-0000-0000-C000-000000000046}");
TCHAR szSRCLSID_OLE2GUID[] = TEXT("CLSID\\{00020C01-0000-0000-C000-000000000046}");
TCHAR szSRStdExecute_Server[] = TEXT("SoundRec\\protocol\\StdExecute\\server");
TCHAR szSR32[] = TEXT("sndrec32.exe");
TCHAR szSRStdFileEdit_Server[] = TEXT("SoundRec\\protocol\\StdFileEditing\\server");
TCHAR szSRShell_Open_Command[] = TEXT("SoundRec\\shell\\open\\command");
TCHAR szSR32Cmd[] = TEXT("sndrec32.exe %1");
TCHAR szSRStdFileEdit_verb_0[] = TEXT("SoundRec\\protocol\\StdFileEditing\\verb\\0");
TCHAR szSRStdFileEdit_verb_1[] = TEXT("SoundRec\\protocol\\StdFileEditing\\verb\\1");
TCHAR szSRStdFileEdit_verb_2[] = TEXT("SoundRec\\protocol\\StdFileEditing\\verb\\2");
TCHAR sz_Open[] = TEXT("&Open");
/* Array of registry value-data pairs to check:
*/
#define RES_STR_LEN 40 /* Should be enough as a maximum resource string. */
TCHAR szSound[RES_STR_LEN]; // IDS_CLASSROOT in resources
TCHAR sz_Play[RES_STR_LEN]; // IDS_PLAYVERB in resources
TCHAR sz_Edit[RES_STR_LEN]; // IDS_EDITVERB in resources
/*
* Check for explicit equivalence.
* These are absolutely necessary.
*/
LPTSTR RegValuesExplicit[] =
{
szSoundRec, szSound, // Primary name for object
szSoundRec_CLSID, szSROLE2GUID, // CLSID, very important
szSRStdFileEdit_verb_0, sz_Play, // verb, very important
szSRStdFileEdit_verb_1, sz_Edit // verb, very important
// szSRCLSID_OLE2GUID, szSound, // not too important
};
/*
* Check for valid substring
* These are OK if the substring exists, i.e:
*
* "ntsd.exe sndrec32.exe"
* or "sndrec32.exe /play" are OK.
*
* "qrecord.exe" is NOT ok.
*/
LPTSTR RegValuesSubstring[] =
{
szSRStdExecute_Server, szSR32, szSR32,
szSRStdFileEdit_Server, szSR32, szSR32
// szSRShell_Open_Command, szSR32Cmd,szSR32 // user can change this
};
/*
* Check that a REG_SZ value in the registry has the value that it should do
* Return TRUE if it does, FALSE if it doesn't.
*/
BOOL CheckRegValue(HKEY RootKey, LPTSTR KeyName, LPTSTR ShouldBe, LPTSTR CouldBe)
{
DWORD Type;
TCHAR Data[100];
DWORD cData = sizeof(Data);
LONG lRet;
HKEY hkey;
if (ERROR_SUCCESS!=RegOpenKeyEx( RootKey
, KeyName
, 0 /* reserved */
, KEY_QUERY_VALUE
, &hkey
)
)
return FALSE; /* couldn't even open the key */
lRet=RegQueryValueEx( hkey
, NULL /* ValueName */
, NULL /* reserved */
, &Type
, (LPBYTE)Data
, &cData
);
RegCloseKey(hkey); /* no idea what to do if this fails */
if (ERROR_SUCCESS!=lRet) return FALSE; /* couldn't query it */
/* Data, cData and Type give the data, length and type */
if (Type!=REG_SZ) return FALSE;
//
// if Data == ShouldBe, then lRet = 0
//
lRet = lstrcmp(Data, ShouldBe); /* capture lRet to make debug easier */
if (lRet && CouldBe != NULL)
{
//
// if Couldbe in Data, lRet = 0
//
lRet = (_tcsstr(Data, CouldBe) == NULL);
}
return 0==lRet;
} /* CheckRegValue */
#define ARRAY_SIZE(x) (sizeof((x))/sizeof((x)[0]))
/* check the registry for anything evil. Return TRUE if it's OK else FALSE */
BOOL CheckRegValues(void)
{
HKEY HCL = HKEY_CLASSES_ROOT; /* save typing! */
DWORD i;
if( !( LoadString( ghInst, IDS_USERTYPESHORT, szSound, SIZEOF(szSound) )
&& LoadString( ghInst, IDS_PLAYVERB, sz_Play, SIZEOF(sz_Play))
&& LoadString( ghInst, IDS_EDITVERB, sz_Edit, SIZEOF(sz_Edit) ) ) )
/* If any of the strings fails to load, forget it:
*/
return TRUE;
for( i = 0; i < ARRAY_SIZE(RegValuesExplicit); i+=2 )
{
if( !CheckRegValue( HCL
, RegValuesExplicit[i]
, RegValuesExplicit[i+1]
, NULL ) )
return FALSE;
}
for(i = 0; i < ARRAY_SIZE(RegValuesSubstring); i+=3)
{
if( !CheckRegValue( HCL
, RegValuesSubstring[i]
, RegValuesSubstring[i+1]
, RegValuesSubstring[i+2] ) )
return FALSE;
}
return TRUE;
} /* CheckRegValues */
/* start this thread to get the registry checked out.
* hwnd is typed as a LPVOID because that's what CreateThread wants.
*/
DWORD RegCheckThread(LPVOID hwnd)
{
if (!CheckRegValues())
PostMessage((HWND)hwnd, WM_BADREG, 0, 0);
return 0; /* end of thread! */
}
/* Call this with the hwnd that you want a WM_BADREG message posted to
* It will check the registry. No news is good news.
* It does the work on a separate thread, so this should return quickly.
*/
void BackgroundRegCheck(HWND hwnd)
{
HANDLE hThread;
DWORD thid;
hThread = CreateThread( NULL /* no special security */
, 0 /* default stack size */
, (LPTHREAD_START_ROUTINE)RegCheckThread
, (LPVOID)hwnd
, 0 /* start running at once */
, &thid
);
if (hThread!=NULL) CloseHandle(hThread); /* we don't need this any more */
/* Else we're in some sort of trouble - dunno what to do.
Can't think of an intelligible message to give to the user.
Too bad. Creep home quietly.
*/
} /* BackgroundRegCheck */
/* returns TRUE if it worked. Dunno what to do if it didn't
*/
BOOL SetRegValue(HKEY RootKey, LPTSTR KeyName, LPTSTR ValueName, LPTSTR ShouldBe)
{
HKEY hkey;
if (ERROR_SUCCESS!=RegOpenKeyEx( RootKey
, KeyName
, 0 /* reserved */
, KEY_SET_VALUE
, &hkey
)
) {
/* Maybe the key has been DELETED - we've seen that */
DWORD dwDisp;
if (ERROR_SUCCESS!=RegCreateKeyEx( RootKey
, KeyName
, 0 /* reserved */
, TEXT("") /* class */
, REG_OPTION_NON_VOLATILE
, KEY_SET_VALUE
, NULL /* SecurityAttributes */
, &hkey
, &dwDisp
)
) /* well we're really in trouble */
return FALSE;
else /* So now it exists, but we now have to open it */
if (ERROR_SUCCESS!=RegOpenKeyEx( RootKey
, KeyName
, 0 /* reserved */
, KEY_SET_VALUE
, &hkey
)
) /* Give up */
return FALSE;
}
if (ERROR_SUCCESS!=RegSetValueEx( hkey
, ValueName
, 0 // reserved
, REG_SZ
, (LPBYTE)ShouldBe
, (lstrlen(ShouldBe)+1)*sizeof(TCHAR) //BYTES
)
)
return FALSE; /* couldn't set it */
if ( ERROR_SUCCESS!=RegCloseKey(hkey) )
/* no idea what to do!*/ ; // couldn't set it
// I'm NOT calling RegFlushKey. They'll get there eventually
return TRUE;
} /* SetRegValue */
/*
* SetRegValues
* Update the registry with the correct values. Return TRUE if everything
* succeeds
* */
BOOL SetRegValues(void)
{
HKEY HCL = HKEY_CLASSES_ROOT; /* save typing! */
DWORD i;
for( i = 0; i < ARRAY_SIZE(RegValuesExplicit); i+=2 )
{
// Do another check to see whether this one needs changing,
// to avoid gratuitous changes, and to avoid the slim chance
// that an unnecessary SetRegValue might fail:
//
if( !CheckRegValue( HCL
, RegValuesExplicit[i]
, RegValuesExplicit[i+1]
, NULL ) )
{
if( !SetRegValue( HCL
, RegValuesExplicit[i]
, NULL
, RegValuesExplicit[i+1] ) )
return FALSE;
}
}
for( i = 0; i < ARRAY_SIZE(RegValuesSubstring); i+=3 )
{
// Do another check to see whether this one needs changing,
// to avoid gratuitous changes, and to avoid the slim chance
// that an unnecessary SetRegValue might fail:
//
if( !CheckRegValue( HCL
, RegValuesSubstring[i]
, RegValuesSubstring[i+1]
, RegValuesSubstring[i+2] ) )
{
if( !SetRegValue( HCL
, RegValuesSubstring[i]
, NULL
, RegValuesSubstring[i+1] ) )
return FALSE;
}
}
return TRUE;
} /* SetRegValues */
/*
* FixReg
* */
void FixReg(HWND hwnd)
{
int r;
// Error is confusing and can be caused simply by incomplete localization
// (see bug # 34330). I removed the error so that we fix the registry
// automatically and fixed this bug.
r = IDYES;
// r = ErrorResBox(hwnd
// , NULL
// , MB_ICONEXCLAMATION | MB_YESNO
// , IDS_APPTITLE
// , IDS_BADREG) ;
switch (r)
{
case IDYES:
if (!SetRegValues())
ErrorResBox(ghwndApp
, ghInst
, MB_ICONEXCLAMATION | MB_OK
, IDS_APPTITLE
, IDS_FIXREGERROR
, FALSE );
break;
case IDNO:
case IDCANCEL:
/* else sneak away quietly */
default:
break;
}
} /* FixReg */
const TCHAR aszOptionsSection[] = TEXT("Options");
const TCHAR aszIgnoreRegistryCheck[] = TEXT("Ignore Registry Check");
BOOL IgnoreRegCheck()
{
DWORD fIgnore = 0L;
ReadRegistryData((LPTSTR)aszOptionsSection
, (LPTSTR)aszIgnoreRegistryCheck
, NULL
, (LPBYTE)&fIgnore
, sizeof fIgnore);
return (fIgnore != 0L);
}