You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
448 lines
15 KiB
448 lines
15 KiB
/************************************************************/
|
|
/* Windows Write, Copyright 1985-1992 Microsoft Corporation */
|
|
/************************************************************/
|
|
/* register.c - Handles the Win 3.1 registration library.
|
|
*
|
|
* Created by Microsoft Corporation.
|
|
*/
|
|
|
|
#define LSTRING // for lstrcat etc
|
|
#include <windows.h>
|
|
#include <shellapi.h>
|
|
#include "objreg.h"
|
|
#include "mw.h"
|
|
#include "winddefs.h"
|
|
#include "obj.h"
|
|
#include "str.h" /* Needed for string resource id */
|
|
#include "menudefs.h"
|
|
#include "cmddefs.h"
|
|
|
|
char szClassName[CBPATHMAX];
|
|
|
|
HKEY hkeyRoot = NULL;
|
|
|
|
void NEAR PASCAL MakeMenuString(char *szCtrl, char *szMenuStr, char *szVerb, char *szClass, char *szObject);
|
|
|
|
/* RegInit() - Prepare the registration database for calls.
|
|
*/
|
|
void FAR RegInit(HANDLE hInst)
|
|
{
|
|
/* this seems to speed up registration operations immensely, but serves
|
|
no other purpose */
|
|
//RegOpenKey(HKEY_CLASSES_ROOT,NULL,&hkeyRoot);
|
|
}
|
|
|
|
/* RegTerm() - Clean up and terminate the registration library.
|
|
*/
|
|
void FAR RegTerm(void)
|
|
{
|
|
if (hkeyRoot)
|
|
{
|
|
RegCloseKey(hkeyRoot);
|
|
hkeyRoot = NULL;
|
|
}
|
|
}
|
|
|
|
/* RegGetClassId() - Retrieves the string name of a class.
|
|
*
|
|
* Note: Classes are guaranteed to be in ASCII, but should
|
|
* not be used directly as a rule because they might
|
|
* be meaningless if running non-English Windows.
|
|
*/
|
|
void FAR RegGetClassId(LPSTR lpstrName, LPSTR lpstrClass) {
|
|
DWORD dwSize = KEYNAMESIZE;
|
|
|
|
if (RegQueryValue(HKEY_CLASSES_ROOT, lpstrClass, (LPSTR)lpstrName, &dwSize))
|
|
lstrcpy(lpstrName, lpstrClass);
|
|
}
|
|
|
|
/* RegMakeFilterSpec() - Retrieves class-associated default extensions.
|
|
*
|
|
* This function returns a filter spec, to be used in the "Change Link"
|
|
* standard dialog box, which contains all the default extensions which
|
|
* are associated with the given class name. Again, the class names are
|
|
* guaranteed to be in ASCII.
|
|
*
|
|
* Returns: The index nFilterIndex stating which filter item matches the
|
|
* extension, or 0 if none is found or -1 if error.
|
|
** *hFilterSpec is allocated and must be freed by caller.
|
|
*/
|
|
int FAR RegMakeFilterSpec(LPSTR lpstrClass, LPSTR lpstrExt, HANDLE *hFilterSpec)
|
|
{
|
|
DWORD dwSize;
|
|
LPSTR lpstrFilterSpec;
|
|
char szClass[KEYNAMESIZE];
|
|
char szName[KEYNAMESIZE];
|
|
char szString[KEYNAMESIZE];
|
|
unsigned int i;
|
|
int idWhich = 0;
|
|
int idFilterIndex = 0;
|
|
|
|
if (*hFilterSpec == NULL)
|
|
{
|
|
if ((*hFilterSpec = GlobalAlloc(GMEM_MOVEABLE|GMEM_ZEROINIT,KEYNAMESIZE+16)) == NULL)
|
|
return -1;
|
|
lpstrFilterSpec = MAKELP(*hFilterSpec,0);
|
|
}
|
|
|
|
RegOpenKey(HKEY_CLASSES_ROOT,NULL,&hkeyRoot);
|
|
for (i = 0; !RegEnumKey(HKEY_CLASSES_ROOT, i++, szName, KEYNAMESIZE); )
|
|
{
|
|
if (*szName == '.' /* Default Extension... */
|
|
|
|
/* ... so, get the class name */
|
|
&& (dwSize = KEYNAMESIZE)
|
|
&& !RegQueryValue(HKEY_CLASSES_ROOT, szName, szClass, &dwSize)
|
|
|
|
/* ... and if the class name matches (null class is wildcard) */
|
|
&& (!lpstrClass || !lstrcmpi(lpstrClass, szClass))
|
|
|
|
/* ... get the class name string */
|
|
&& (dwSize = KEYNAMESIZE)
|
|
&& !RegQueryValue(HKEY_CLASSES_ROOT, szClass, szString, &dwSize))
|
|
{
|
|
int offset;
|
|
|
|
idWhich++;
|
|
|
|
/* If the extension matches, save the filter index */
|
|
if (lpstrExt && !lstrcmpi(lpstrExt, szName))
|
|
idFilterIndex = idWhich;
|
|
|
|
offset = lpstrFilterSpec - MAKELP(*hFilterSpec,0);
|
|
|
|
if ((GlobalSize(*hFilterSpec) - offset) <
|
|
(lstrlen(szString) + 16))
|
|
{
|
|
if ((*hFilterSpec = GlobalReAlloc(*hFilterSpec,GlobalSize(*hFilterSpec)+KEYNAMESIZE+16,
|
|
GMEM_MOVEABLE|GMEM_ZEROINIT)) == NULL)
|
|
{
|
|
GlobalFree(*hFilterSpec);
|
|
*hFilterSpec = NULL;
|
|
idFilterIndex = -1;
|
|
break;
|
|
}
|
|
lpstrFilterSpec = (LPSTR)MAKELP(*hFilterSpec,0) + offset;
|
|
}
|
|
|
|
/* Copy over "<Class Name String> (*<Default Extension>)"
|
|
* e.g. "Server Picture (*.PIC)"
|
|
*/
|
|
lstrcpy(lpstrFilterSpec, szString);
|
|
lstrcat(lpstrFilterSpec, " (*");
|
|
lstrcat(lpstrFilterSpec, szName);
|
|
lstrcat(lpstrFilterSpec, ")");
|
|
lpstrFilterSpec += lstrlen(lpstrFilterSpec) + 1;
|
|
|
|
/* Copy over "*<Default Extension>" (e.g. "*.PIC") */
|
|
lstrcpy(lpstrFilterSpec, "*");
|
|
lstrcat(lpstrFilterSpec, szName);
|
|
lpstrFilterSpec += lstrlen(lpstrFilterSpec) + 1;
|
|
}
|
|
}
|
|
|
|
/* Add another NULL at the end of the spec (+ 16 accounts for this) */
|
|
if (idFilterIndex > -1)
|
|
*lpstrFilterSpec = 0;
|
|
|
|
if (hkeyRoot)
|
|
{
|
|
RegCloseKey(hkeyRoot);
|
|
hkeyRoot = NULL;
|
|
}
|
|
|
|
return idFilterIndex;
|
|
}
|
|
|
|
/* RegCopyClassName() - Returns the ASCII class id from the listbox.
|
|
*/
|
|
BOOL FAR RegCopyClassName(HWND hwndList, LPSTR lpstrClassName) {
|
|
BOOL fSuccess = FALSE;
|
|
DWORD dwSize = 0L;
|
|
HKEY hkeyTemp;
|
|
char szClass[KEYNAMESIZE];
|
|
char szExec[KEYNAMESIZE];
|
|
char szKey[KEYNAMESIZE];
|
|
char szName[KEYNAMESIZE];
|
|
int i;
|
|
int iWhich;
|
|
|
|
iWhich = (int)SendMessage(hwndList, LB_GETCURSEL, 0, 0L);
|
|
SendMessage(hwndList, LB_GETTEXT, iWhich, (DWORD)(LPSTR)szKey);
|
|
|
|
RegOpenKey(HKEY_CLASSES_ROOT,NULL,&hkeyRoot);
|
|
for (i = 0; !fSuccess && !RegEnumKey(HKEY_CLASSES_ROOT, i++, szClass, KEYNAMESIZE); )
|
|
if (*szClass != '.') { /* Not default extension... */
|
|
|
|
/* See if this class really refers to a server */
|
|
dwSize = 0;
|
|
hkeyTemp = NULL;
|
|
lstrcpy(szExec, szClass);
|
|
lstrcat(szExec, "\\protocol\\StdFileEditing\\server");
|
|
|
|
if (!RegOpenKey(HKEY_CLASSES_ROOT, szExec, &hkeyTemp)) {
|
|
/* ... get the class name string */
|
|
dwSize = KEYNAMESIZE;
|
|
if (!RegQueryValue(HKEY_CLASSES_ROOT, szClass, szName, &dwSize)
|
|
&& !lstrcmp(szName, szKey))
|
|
fSuccess = TRUE;
|
|
|
|
RegCloseKey(hkeyTemp);
|
|
}
|
|
}
|
|
|
|
if (fSuccess)
|
|
lstrcpy(lpstrClassName, szClass);
|
|
|
|
if (hkeyRoot)
|
|
{
|
|
RegCloseKey(hkeyRoot);
|
|
hkeyRoot = NULL;
|
|
}
|
|
|
|
return fSuccess;
|
|
}
|
|
|
|
/* RegGetClassNames() - Fills the list box with possible server names.
|
|
*/
|
|
BOOL FAR RegGetClassNames(HWND hwndList) {
|
|
BOOL fSuccess = FALSE;
|
|
DWORD dwSize = 0L;
|
|
HKEY hkeyTemp;
|
|
char szClass[KEYNAMESIZE];
|
|
char szExec[KEYNAMESIZE];
|
|
char szName[KEYNAMESIZE];
|
|
int i;
|
|
|
|
SendMessage(hwndList, LB_RESETCONTENT, 0, 0L);
|
|
|
|
RegOpenKey(HKEY_CLASSES_ROOT,NULL,&hkeyRoot);
|
|
for (i = 0; !RegEnumKey(HKEY_CLASSES_ROOT, i++, szClass, KEYNAMESIZE); )
|
|
if (*szClass != '.') { /* Not default extension... */
|
|
|
|
/* See if this class really refers to a server */
|
|
dwSize = 0;
|
|
hkeyTemp = NULL;
|
|
lstrcpy(szExec, szClass);
|
|
lstrcat(szExec, "\\protocol\\StdFileEditing\\server");
|
|
|
|
if (!RegOpenKey(HKEY_CLASSES_ROOT, szExec, &hkeyTemp)) {
|
|
/* ... get the class name string */
|
|
dwSize = KEYNAMESIZE;
|
|
if (!RegQueryValue(HKEY_CLASSES_ROOT, szClass, szName, &dwSize)) {
|
|
SendMessage(hwndList, LB_ADDSTRING, 0, (DWORD)(LPSTR)szName);
|
|
fSuccess = TRUE;
|
|
}
|
|
RegCloseKey(hkeyTemp);
|
|
}
|
|
}
|
|
|
|
if (hkeyRoot)
|
|
{
|
|
RegCloseKey(hkeyRoot);
|
|
hkeyRoot = NULL;
|
|
}
|
|
return fSuccess;
|
|
}
|
|
|
|
|
|
void ObjUpdateMenuVerbs( HMENU hMenu )
|
|
{
|
|
int cObjects;
|
|
extern struct SEL selCur;
|
|
extern char szOPropMenuStr[];
|
|
extern char szPPropMenuStr[];
|
|
extern BOOL vfOutOfMemory;
|
|
char szBuffer[cchMaxSz];
|
|
char szWordOrder2[10], szWordOrder3[10];
|
|
|
|
if (vfOutOfMemory)
|
|
{
|
|
EnableMenuItem(hMenu, EDITMENUPOS, MF_GRAYED|MF_BYPOSITION);
|
|
return;
|
|
}
|
|
|
|
LoadString(hINSTANCE, IDSTRPopupVerbs, szWordOrder2, sizeof(szWordOrder2));
|
|
LoadString(hINSTANCE, IDSTRSingleVerb, szWordOrder3, sizeof(szWordOrder3));
|
|
|
|
DeleteMenu(hMenu, EDITMENUPOS, MF_BYPOSITION);
|
|
|
|
/** Cases:
|
|
0) 0 objects selected
|
|
1) 1 object selected
|
|
a) object supports 0 verbs "Edit <Object Class> Object"
|
|
b) object supports more than 1 verb "<Object Class> Object" => verbs
|
|
2) more than 1 object selected "Objects"
|
|
|
|
Use the VerbMenu strings to determine the order in which these words
|
|
should appear in the menu string (for localization).
|
|
**/
|
|
|
|
/* how many objects are selected? */
|
|
cObjects = ObjSetSelectionType(docCur,selCur.cpFirst, selCur.cpLim);
|
|
|
|
/* must be only an object, not text in selection */
|
|
if (cObjects == 1)
|
|
{
|
|
ObjCachePara(docCur,selCur.cpFirst);
|
|
if (!ObjQueryCpIsObject(docCur,selCur.cpFirst))
|
|
cObjects = 0;
|
|
}
|
|
|
|
if ((cObjects == -1) // error
|
|
|| (cObjects == 0)
|
|
|| (cObjects > 1))
|
|
{
|
|
wsprintf(szBuffer, "%s", (LPSTR)((cObjects > 1) ? szPPropMenuStr : szOPropMenuStr));
|
|
InsertMenu(hMenu, EDITMENUPOS, MF_BYPOSITION,imiVerb,szBuffer);
|
|
|
|
/*
|
|
Spec says if > 1 then optionally should enable if all servers
|
|
are of the same class. I'm opting not to implement. (9.27.91) v-dougk
|
|
*/
|
|
EnableMenuItem(hMenu, EDITMENUPOS, MF_GRAYED | MF_BYPOSITION);
|
|
|
|
#if 0
|
|
else // > 1
|
|
{
|
|
EnableMenuItem(hMenu, EDITMENUPOS,
|
|
(((OBJ_SELECTIONTYPE == EMBEDDED) || (OBJ_SELECTIONTYPE == LINK))
|
|
? MF_ENABLED : MF_GRAYED) | MF_BYPOSITION);
|
|
}
|
|
#endif
|
|
return;
|
|
}
|
|
else // 1 object selected
|
|
{
|
|
OBJPICINFO picInfo;
|
|
|
|
/** CASES:
|
|
object supports 0 verbs "Edit <Object Class> Object"
|
|
object supports more than 1 verb "<Object Class> Object" => verbs
|
|
**/
|
|
|
|
RegOpenKey(HKEY_CLASSES_ROOT,NULL,&hkeyRoot);
|
|
|
|
GetPicInfo(selCur.cpFirst,selCur.cpFirst + cchPICINFOX, docCur, &picInfo);
|
|
|
|
if ((otOBJ_QUERY_TYPE(&picInfo) == EMBEDDED) ||
|
|
(otOBJ_QUERY_TYPE(&picInfo) == LINK))
|
|
{
|
|
HANDLE hData=NULL;
|
|
LPSTR lpstrData;
|
|
OLESTATUS olestat;
|
|
|
|
olestat = OleGetData(lpOBJ_QUERY_OBJECT(&picInfo),
|
|
otOBJ_QUERY_TYPE(&picInfo) == LINK? vcfLink: vcfOwnerLink,
|
|
&hData);
|
|
|
|
if ((olestat == OLE_WARN_DELETE_DATA) || (olestat == OLE_OK))
|
|
{
|
|
HKEY hKeyVerb;
|
|
DWORD dwSize = KEYNAMESIZE;
|
|
char szClass[KEYNAMESIZE];
|
|
char szVerb[KEYNAMESIZE];
|
|
HANDLE hPopupNew=NULL;
|
|
|
|
lpstrData = MAKELP(hData,0);
|
|
|
|
/* Both link formats are: "szClass0szDocument0szItem00" */
|
|
|
|
/* get real language class of object in szClass for menu */
|
|
if (RegQueryValue(HKEY_CLASSES_ROOT, lpstrData, szClass, &dwSize))
|
|
lstrcpy(szClass, lpstrData); /* if above call failed */
|
|
|
|
if (olestat == OLE_WARN_DELETE_DATA)
|
|
GlobalFree(hData);
|
|
|
|
/* append class key */
|
|
for (vcVerbs=0; ;++vcVerbs)
|
|
{
|
|
dwSize = KEYNAMESIZE;
|
|
wsprintf(szBuffer, "%s\\protocol\\StdFileEditing\\verb\\%d", (LPSTR)lpstrData,vcVerbs);
|
|
if (RegQueryValue(HKEY_CLASSES_ROOT, szBuffer, szVerb, &dwSize))
|
|
break;
|
|
|
|
if (hPopupNew == NULL)
|
|
hPopupNew = CreatePopupMenu();
|
|
|
|
InsertMenu(hPopupNew, -1, MF_BYPOSITION, imiVerb+vcVerbs+1, szVerb);
|
|
}
|
|
|
|
if (vcVerbs == 0)
|
|
{
|
|
LoadString(hINSTANCE, IDSTREdit, szVerb, sizeof(szVerb));
|
|
MakeMenuString(szWordOrder3, szBuffer, szVerb, szClass, szOPropMenuStr);
|
|
InsertMenu(hMenu, EDITMENUPOS, MF_BYPOSITION, imiVerbPlay, szBuffer);
|
|
}
|
|
else if (vcVerbs == 1)
|
|
{
|
|
MakeMenuString(szWordOrder3, szBuffer, szVerb, szClass, szOPropMenuStr);
|
|
InsertMenu(hMenu, EDITMENUPOS, MF_BYPOSITION, imiVerbPlay, szBuffer);
|
|
DestroyMenu(hPopupNew);
|
|
}
|
|
else // > 1 verbs
|
|
{
|
|
MakeMenuString(szWordOrder2, szBuffer, NULL, szClass, szOPropMenuStr);
|
|
InsertMenu(hMenu, EDITMENUPOS, MF_BYPOSITION | MF_POPUP,
|
|
hPopupNew, szBuffer);
|
|
}
|
|
EnableMenuItem(hMenu, EDITMENUPOS, MF_ENABLED|MF_BYPOSITION);
|
|
if (hkeyRoot)
|
|
{
|
|
RegCloseKey(hkeyRoot);
|
|
hkeyRoot = NULL;
|
|
}
|
|
return;
|
|
}
|
|
else
|
|
ObjError(olestat);
|
|
}
|
|
}
|
|
|
|
/* error if got to here */
|
|
wsprintf(szBuffer, "%s", (LPSTR)szOPropMenuStr);
|
|
InsertMenu(hMenu, EDITMENUPOS, MF_BYPOSITION,NULL,szBuffer);
|
|
EnableMenuItem(hMenu, EDITMENUPOS, MF_GRAYED|MF_BYPOSITION);
|
|
if (hkeyRoot)
|
|
{
|
|
RegCloseKey(hkeyRoot);
|
|
hkeyRoot = NULL;
|
|
}
|
|
}
|
|
|
|
void NEAR PASCAL MakeMenuString(char *szCtrl, char *szMenuStr, char *szVerb, char *szClass, char *szObject)
|
|
{
|
|
char *pStr;
|
|
register char c;
|
|
|
|
while (c = *szCtrl++)
|
|
{
|
|
switch(c)
|
|
{
|
|
case 'c': // class
|
|
case 'C': // class
|
|
pStr = szClass;
|
|
break;
|
|
case 'v': // class
|
|
case 'V': // class
|
|
pStr = szVerb;
|
|
break;
|
|
case 'o': // object
|
|
case 'O': // object
|
|
pStr = szObject;
|
|
break;
|
|
default:
|
|
*szMenuStr++ = c;
|
|
*szMenuStr = '\0'; // just in case
|
|
continue;
|
|
}
|
|
|
|
if (pStr) // should always be true
|
|
{
|
|
lstrcpy(szMenuStr,pStr);
|
|
szMenuStr += lstrlen(pStr); // point to '\0'
|
|
}
|
|
}
|
|
}
|
|
|