/* * Shell DDE Handling * * Copyright 2004 Robert Shearman * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA */ #include <stdarg.h> #define COBJMACROS #include "windef.h" #include "winbase.h" #include "winuser.h" #include "ddeml.h" #include "shellapi.h" #include "shobjidl.h" #include "shlwapi.h" #include "shell32_main.h" #include "wine/debug.h" #include "wine/unicode.h" WINE_DEFAULT_DEBUG_CHANNEL(shell); /* String handles */ static HSZ hszProgmanTopic; static HSZ hszProgmanService; static HSZ hszAsterisk; static HSZ hszShell; static HSZ hszAppProperties; static HSZ hszFolders; static HSZ hszGroups; /* DDE Instance ID */ static DWORD dwDDEInst; static const char *debugstr_hsz( HSZ hsz ) { WCHAR buffer[256]; if (!DdeQueryStringW( dwDDEInst, hsz, buffer, ARRAY_SIZE(buffer), CP_WINUNICODE )) return "<unknown>"; return debugstr_w( buffer ); } static inline BOOL Dde_OnConnect(HSZ hszTopic, HSZ hszService) { if ((hszTopic == hszProgmanTopic) && (hszService == hszProgmanService)) return TRUE; if ((hszTopic == hszProgmanTopic) && (hszService == hszAppProperties)) return TRUE; if ((hszTopic == hszShell) && (hszService == hszFolders)) return TRUE; if ((hszTopic == hszShell) && (hszService == hszAppProperties)) return TRUE; return FALSE; } static inline void Dde_OnConnectConfirm(HCONV hconv, HSZ hszTopic, HSZ hszService) { TRACE( "%p %s %s\n", hconv, debugstr_hsz(hszTopic), debugstr_hsz(hszService) ); } static inline BOOL Dde_OnWildConnect(HSZ hszTopic, HSZ hszService) { FIXME("stub\n"); return FALSE; } /* Returned string must be freed by caller */ static WCHAR *get_programs_path(const WCHAR *name) { static const WCHAR slashW[] = {'/',0}; WCHAR *programs, *path; int len; SHGetKnownFolderPath(&FOLDERID_Programs, 0, NULL, &programs); len = lstrlenW(programs) + 1 + lstrlenW(name); path = heap_alloc((len + 1) * sizeof(*path)); lstrcpyW(path, programs); lstrcatW(path, slashW); lstrcatW(path, name); CoTaskMemFree(programs); return path; } static inline HDDEDATA Dde_OnRequest(UINT uFmt, HCONV hconv, HSZ hszTopic, HSZ hszItem) { if (hszTopic == hszProgmanTopic && hszItem == hszGroups && uFmt == CF_TEXT) { static const WCHAR asteriskW[] = {'*',0}; static const WCHAR newlineW[] = {'\r','\n',0}; static const WCHAR dotW[] = {'.',0}; static const WCHAR dotdotW[] = {'.','.',0}; WCHAR *programs; WIN32_FIND_DATAW finddata; HANDLE hfind; int len = 1; WCHAR *groups_data = heap_alloc(sizeof(WCHAR)); char *groups_dataA; HDDEDATA ret; groups_data[0] = 0; programs = get_programs_path(asteriskW); hfind = FindFirstFileW(programs, &finddata); if (hfind) { do { if ((finddata.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) && lstrcmpW(finddata.cFileName, dotW) && lstrcmpW(finddata.cFileName, dotdotW)) { len += lstrlenW(finddata.cFileName) + 2; groups_data = heap_realloc(groups_data, len * sizeof(WCHAR)); lstrcatW(groups_data, finddata.cFileName); lstrcatW(groups_data, newlineW); } } while (FindNextFileW(hfind, &finddata)); FindClose(hfind); } len = WideCharToMultiByte(CP_ACP, 0, groups_data, -1, NULL, 0, NULL, NULL); groups_dataA = heap_alloc(len * sizeof(WCHAR)); WideCharToMultiByte(CP_ACP, 0, groups_data, -1, groups_dataA, len, NULL, NULL); ret = DdeCreateDataHandle(dwDDEInst, (BYTE *)groups_dataA, len, 0, hszGroups, uFmt, 0); heap_free(groups_dataA); heap_free(groups_data); heap_free(programs); return ret; } else if (hszTopic == hszProgmanTopic && hszItem == hszProgmanService && uFmt == CF_TEXT) { static BYTE groups_data[] = "\r\n"; FIXME( "returning empty groups list\n" ); /* This is a workaround for an application which expects some data * and cannot handle NULL. */ return DdeCreateDataHandle( dwDDEInst, groups_data, sizeof(groups_data), 0, hszProgmanService, uFmt, 0 ); } FIXME( "%u %p %s %s: stub\n", uFmt, hconv, debugstr_hsz(hszTopic), debugstr_hsz(hszItem) ); return NULL; } static DWORD PROGMAN_OnExecute(WCHAR *command, int argc, WCHAR **argv) { static const WCHAR create_groupW[] = {'C','r','e','a','t','e','G','r','o','u','p',0}; static const WCHAR delete_groupW[] = {'D','e','l','e','t','e','G','r','o','u','p',0}; static const WCHAR show_groupW[] = {'S','h','o','w','G','r','o','u','p',0}; static const WCHAR add_itemW[] = {'A','d','d','I','t','e','m',0}; static const WCHAR delete_itemW[] = {'D','e','l','e','t','e','I','t','e','m',0}; static const WCHAR replace_itemW[] = {'R','e','p','l','a','c','e','I','t','e','m',0}; static const WCHAR exit_progmanW[] = {'E','x','i','t','P','r','o','g','m','a','n',0}; static const WCHAR dotexeW[] = {'.','e','x','e',0}; static const WCHAR dotlnkW[] = {'.','l','n','k',0}; static const WCHAR slashW[] = {'/',0}; static WCHAR *last_group; if (!strcmpiW(command, create_groupW)) { WCHAR *path; if (argc < 1) return DDE_FNOTPROCESSED; path = get_programs_path(argv[0]); CreateDirectoryW(path, NULL); ShellExecuteW(NULL, NULL, path, NULL, NULL, SW_SHOWNORMAL); heap_free(last_group); last_group = path; } else if (!strcmpiW(command, delete_groupW)) { WCHAR *path, *path2; SHFILEOPSTRUCTW shfos = {0}; int ret; if (argc < 1) return DDE_FNOTPROCESSED; path = get_programs_path(argv[0]); path2 = heap_alloc((strlenW(path) + 2) * sizeof(*path)); strcpyW(path2, path); path2[strlenW(path) + 1] = 0; shfos.wFunc = FO_DELETE; shfos.pFrom = path2; shfos.fFlags = FOF_NOCONFIRMATION; ret = SHFileOperationW(&shfos); heap_free(path2); heap_free(path); if (ret || shfos.fAnyOperationsAborted) return DDE_FNOTPROCESSED; } else if (!strcmpiW(command, show_groupW)) { WCHAR *path; /* Win32 requires the second parameter to be present but seems to * ignore its actual value. */ if (argc < 2) return DDE_FNOTPROCESSED; path = get_programs_path(argv[0]); ShellExecuteW(NULL, NULL, path, NULL, NULL, SW_SHOWNORMAL); heap_free(last_group); last_group = path; } else if (!strcmpiW(command, add_itemW)) { WCHAR *path, *name; DWORD len; IShellLinkW *link; IPersistFile *file; HRESULT hres; if (argc < 1) return DDE_FNOTPROCESSED; hres = CoCreateInstance(&CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, &IID_IShellLinkW, (void **)&link); if (FAILED(hres)) return DDE_FNOTPROCESSED; len = SearchPathW(NULL, argv[0], dotexeW, 0, NULL, NULL); if (len == 0) { IShellLinkW_Release(link); return DDE_FNOTPROCESSED; } path = heap_alloc(len * sizeof(WCHAR)); SearchPathW(NULL, argv[0], dotexeW, len, path, NULL); IShellLinkW_SetPath(link, path); heap_free(path); if (argc >= 2) IShellLinkW_SetDescription(link, argv[1]); if (argc >= 4) IShellLinkW_SetIconLocation(link, argv[2], atoiW(argv[3])); if (argc >= 7) IShellLinkW_SetWorkingDirectory(link, argv[6]); if (argc >= 8) IShellLinkW_SetHotkey(link, atoiW(argv[7])); if (argc >= 9) { if (atoiW(argv[8]) == 0) IShellLinkW_SetShowCmd(link, SW_SHOWMINNOACTIVE); else if (atoiW(argv[8]) == 1) IShellLinkW_SetShowCmd(link, SW_SHOWNORMAL); } hres = IShellLinkW_QueryInterface(link, &IID_IPersistFile, (void **)&file); if (FAILED(hres)) { IShellLinkW_Release(link); return DDE_FNOTPROCESSED; } if (argc >= 2) { name = heap_alloc((strlenW(last_group) + 1 + strlenW(argv[1]) + 5) * sizeof(*name)); lstrcpyW(name, last_group); lstrcatW(name, slashW); lstrcatW(name, argv[1]); lstrcatW(name, dotlnkW); } else { const WCHAR *filename = PathFindFileNameW(argv[0]); int len = PathFindExtensionW(filename) - filename; name = heap_alloc((strlenW(last_group) + 1 + len + 5) * sizeof(*name)); lstrcpyW(name, last_group); lstrcatW(name, slashW); lstrcpynW(name+strlenW(name), filename, len + 1); lstrcatW(name, dotlnkW); } hres = IPersistFile_Save(file, name, TRUE); heap_free(name); IPersistFile_Release(file); IShellLinkW_Release(link); if (FAILED(hres)) return DDE_FNOTPROCESSED; } else if (!strcmpiW(command, delete_itemW) || !strcmpiW(command, replace_itemW)) { WCHAR *name; BOOL ret; if (argc < 1) return DDE_FNOTPROCESSED; name = heap_alloc((strlenW(last_group) + 1 + strlenW(argv[0]) + 5) * sizeof(*name)); lstrcpyW(name, last_group); lstrcatW(name, slashW); lstrcatW(name, argv[0]); lstrcatW(name, dotlnkW); ret = DeleteFileW(name); heap_free(name); if (!ret) return DDE_FNOTPROCESSED; } else if (!strcmpiW(command, exit_progmanW)) { /* do nothing */ } else { FIXME("unhandled command %s\n", debugstr_w(command)); return DDE_FNOTPROCESSED; } return DDE_FACK; } static DWORD parse_dde_command(HSZ hszTopic, WCHAR *command) { static const WCHAR opcode_end[] = {' ',',','(',')','[',']','"',0}; static const WCHAR param_end[] = {',','(',')','[',']',0}; WCHAR *original = command; WCHAR *opcode = NULL, **argv = NULL, *p; int argc = 0, i; DWORD ret = DDE_FACK; while (*command == ' ') command++; if (*command != '[') goto error; while (*command == '[') { argc = 0; argv = heap_alloc(sizeof(*argv)); command++; while (*command == ' ') command++; if (!(p = strpbrkW(command, opcode_end))) goto error; opcode = strndupW(command, p - command); command = p; while (*command == ' ') command++; if (*command == '(') { command++; while (*command != ')') { while (*command == ' ') command++; if (*command == '"') { command++; if (!(p = strchrW(command, '"'))) goto error; } else { if (!(p = strpbrkW(command, param_end))) goto error; while (p[-1] == ' ') p--; } argc++; argv = heap_realloc(argv, argc * sizeof(*argv)); argv[argc-1] = strndupW(command, p - command); command = p; if (*command == '"') command++; while (*command == ' ') command++; if (*command == ',') command++; else if (*command != ')') goto error; } command++; while (*command == ' ') command++; } if (*command != ']') goto error; command++; while (*command == ' ') command++; if (hszTopic == hszProgmanTopic) ret = PROGMAN_OnExecute(opcode, argc, argv); else { FIXME("unhandled topic %s, command %s\n", debugstr_hsz(hszTopic), debugstr_w(opcode)); ret = DDE_FNOTPROCESSED; } heap_free(opcode); for (i = 0; i < argc; i++) heap_free(argv[i]); heap_free(argv); if (ret == DDE_FNOTPROCESSED) break; } return ret; error: ERR("failed to parse command %s\n", debugstr_w(original)); heap_free(opcode); for (i = 0; i < argc; i++) heap_free(argv[i]); heap_free(argv); return DDE_FNOTPROCESSED; } static DWORD Dde_OnExecute(HCONV hconv, HSZ hszTopic, HDDEDATA hdata) { WCHAR *command; DWORD len; DWORD ret; len = DdeGetData(hdata, NULL, 0, 0); if (!len) return DDE_FNOTPROCESSED; command = heap_alloc(len); DdeGetData(hdata, (BYTE *)command, len, 0); TRACE("conv=%p topic=%s data=%s\n", hconv, debugstr_hsz(hszTopic), debugstr_w(command)); ret = parse_dde_command(hszTopic, command); heap_free(command); return ret; } static inline void Dde_OnDisconnect(HCONV hconv) { TRACE( "%p\n", hconv ); } static HDDEDATA CALLBACK DdeCallback( UINT uType, UINT uFmt, HCONV hconv, HSZ hsz1, HSZ hsz2, HDDEDATA hdata, ULONG_PTR dwData1, ULONG_PTR dwData2) { switch (uType) { case XTYP_CONNECT: return (HDDEDATA)(DWORD_PTR)Dde_OnConnect(hsz1, hsz2); case XTYP_CONNECT_CONFIRM: Dde_OnConnectConfirm(hconv, hsz1, hsz2); return NULL; case XTYP_WILDCONNECT: return (HDDEDATA)(DWORD_PTR)Dde_OnWildConnect(hsz1, hsz2); case XTYP_REQUEST: return Dde_OnRequest(uFmt, hconv, hsz1, hsz2); case XTYP_EXECUTE: return (HDDEDATA)(DWORD_PTR)Dde_OnExecute(hconv, hsz1, hdata); case XTYP_DISCONNECT: Dde_OnDisconnect(hconv); return NULL; default: return NULL; } } /************************************************************************* * ShellDDEInit (SHELL32.@) * * Registers the Shell DDE services with the system so that applications * can use them. * * PARAMS * bInit [I] TRUE to initialize the services, FALSE to uninitialize. * * RETURNS * Nothing. */ void WINAPI ShellDDEInit(BOOL bInit) { TRACE("bInit = %s\n", bInit ? "TRUE" : "FALSE"); if (bInit) { static const WCHAR wszProgman[] = {'P','r','o','g','m','a','n',0}; static const WCHAR wszAsterisk[] = {'*',0}; static const WCHAR wszShell[] = {'S','h','e','l','l',0}; static const WCHAR wszAppProperties[] = {'A','p','p','P','r','o','p','e','r','t','i','e','s',0}; static const WCHAR wszFolders[] = {'F','o','l','d','e','r','s',0}; static const WCHAR wszGroups[] = {'G','r','o','u','p','s',0}; DdeInitializeW(&dwDDEInst, DdeCallback, CBF_FAIL_ADVISES | CBF_FAIL_POKES, 0); hszProgmanTopic = DdeCreateStringHandleW(dwDDEInst, wszProgman, CP_WINUNICODE); hszProgmanService = DdeCreateStringHandleW(dwDDEInst, wszProgman, CP_WINUNICODE); hszAsterisk = DdeCreateStringHandleW(dwDDEInst, wszAsterisk, CP_WINUNICODE); hszShell = DdeCreateStringHandleW(dwDDEInst, wszShell, CP_WINUNICODE); hszAppProperties = DdeCreateStringHandleW(dwDDEInst, wszAppProperties, CP_WINUNICODE); hszFolders = DdeCreateStringHandleW(dwDDEInst, wszFolders, CP_WINUNICODE); hszGroups = DdeCreateStringHandleW(dwDDEInst, wszGroups, CP_WINUNICODE); DdeNameService(dwDDEInst, hszFolders, 0, DNS_REGISTER); DdeNameService(dwDDEInst, hszProgmanService, 0, DNS_REGISTER); DdeNameService(dwDDEInst, hszShell, 0, DNS_REGISTER); } else { /* unregister all services */ DdeNameService(dwDDEInst, 0, 0, DNS_UNREGISTER); DdeFreeStringHandle(dwDDEInst, hszFolders); DdeFreeStringHandle(dwDDEInst, hszAppProperties); DdeFreeStringHandle(dwDDEInst, hszShell); DdeFreeStringHandle(dwDDEInst, hszAsterisk); DdeFreeStringHandle(dwDDEInst, hszProgmanService); DdeFreeStringHandle(dwDDEInst, hszProgmanTopic); DdeUninitialize(dwDDEInst); } }