dlls/shell32/dde.c

   1 /*
   2  * Shell DDE Handling
   3  *
   4  * Copyright 2004 Robert Shearman
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include <stdarg.h>
  22
  23 #define COBJMACROS
  24 #include "windef.h"
  25 #include "winbase.h"
  26 #include "winuser.h"
  27 #include "ddeml.h"
  28 #include "shellapi.h"
  29 #include "shobjidl.h"
  30 #include "shlwapi.h"
  31
  32 #include "shell32_main.h"
  33
  34 #include "wine/debug.h"
  35
  36 WINE_DEFAULT_DEBUG_CHANNEL(shell);
  37
  38 /* String handles */
  39 static HSZ hszProgmanTopic;
  40 static HSZ hszProgmanService;
  41 static HSZ hszAsterisk;
  42 static HSZ hszShell;
  43 static HSZ hszAppProperties;
  44 static HSZ hszFolders;
  45 static HSZ hszGroups;
  46 /* DDE Instance ID */
  47 static DWORD dwDDEInst;
  48
  49 static const char *debugstr_hsz( HSZ hsz )
  50 {
  51     WCHAR buffer[256];
  52     if (!DdeQueryStringW( dwDDEInst, hsz, buffer, ARRAY_SIZE(buffer), CP_WINUNICODE ))
  53         return "<unknown>";
  54     return debugstr_w( buffer );
  55 }
  56
  57 static inline BOOL Dde_OnConnect(HSZ hszTopic, HSZ hszService)
  58 {
  59     if ((hszTopic == hszProgmanTopic) && (hszService == hszProgmanService))
  60         return TRUE;
  61     if ((hszTopic == hszProgmanTopic) && (hszService == hszAppProperties))
  62         return TRUE;
  63     if ((hszTopic == hszShell) && (hszService == hszFolders))
  64         return TRUE;
  65     if ((hszTopic == hszShell) && (hszService == hszAppProperties))
  66         return TRUE;
  67     return FALSE;
  68 }
  69
  70 static inline void Dde_OnConnectConfirm(HCONV hconv, HSZ hszTopic, HSZ hszService)
  71 {
  72     TRACE( "%p %s %s\n", hconv, debugstr_hsz(hszTopic), debugstr_hsz(hszService) );
  73 }
  74
  75 static inline BOOL Dde_OnWildConnect(HSZ hszTopic, HSZ hszService)
  76 {
  77     FIXME("stub\n");
  78     return FALSE;
  79 }
  80
  81 /* Returned string must be freed by caller */
  82 static WCHAR *get_programs_path(const WCHAR *name)
  83 {
  84     WCHAR *programs, *path;
  85     int len;
  86
  87     SHGetKnownFolderPath(&FOLDERID_Programs, 0, NULL, &programs);
  88
  89     len = lstrlenW(programs) + 1 + lstrlenW(name);
  90     path = heap_alloc((len + 1) * sizeof(*path));
  91     lstrcpyW(path, programs);
  92     lstrcatW(path, L"/");
  93     lstrcatW(path, name);
  94
  95     CoTaskMemFree(programs);
  96
  97     return path;
  98 }
  99
 100 static inline HDDEDATA Dde_OnRequest(UINT uFmt, HCONV hconv, HSZ hszTopic,
 101                                      HSZ hszItem)
 102 {
 103     if (hszTopic == hszProgmanTopic && hszItem == hszGroups && uFmt == CF_TEXT)
 104     {
 105         WCHAR *programs;
 106         WIN32_FIND_DATAW finddata;
 107         HANDLE hfind;
 108         int len = 1;
 109         WCHAR *groups_data = heap_alloc(sizeof(WCHAR));
 110         char *groups_dataA;
 111         HDDEDATA ret;
 112
 113         groups_data[0] = 0;
 114         programs = get_programs_path(L"*");
 115         hfind = FindFirstFileW(programs, &finddata);
 116         if (hfind)
 117         {
 118             do
 119             {
 120                 if ((finddata.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) &&
 121                     wcscmp(finddata.cFileName, L".") && wcscmp(finddata.cFileName, L".."))
 122                 {
 123                     len += lstrlenW(finddata.cFileName) + 2;
 124                     groups_data = heap_realloc(groups_data, len * sizeof(WCHAR));
 125                     lstrcatW(groups_data, finddata.cFileName);
 126                     lstrcatW(groups_data, L"\r\n");
 127                 }
 128             } while (FindNextFileW(hfind, &finddata));
 129             FindClose(hfind);
 130         }
 131
 132         len = WideCharToMultiByte(CP_ACP, 0, groups_data, -1, NULL, 0, NULL, NULL);
 133         groups_dataA = heap_alloc(len * sizeof(WCHAR));
 134         WideCharToMultiByte(CP_ACP, 0, groups_data, -1, groups_dataA, len, NULL, NULL);
 135         ret = DdeCreateDataHandle(dwDDEInst, (BYTE *)groups_dataA, len, 0, hszGroups, uFmt, 0);
 136
 137         heap_free(groups_dataA);
 138         heap_free(groups_data);
 139         heap_free(programs);
 140         return ret;
 141     }
 142     else if (hszTopic == hszProgmanTopic && hszItem == hszProgmanService && uFmt == CF_TEXT)
 143     {
 144         static BYTE groups_data[] = "\r\n";
 145         FIXME( "returning empty groups list\n" );
 146         /* This is a workaround for an application which expects some data
 147          * and cannot handle NULL. */
 148         return DdeCreateDataHandle( dwDDEInst, groups_data, sizeof(groups_data), 0, hszProgmanService, uFmt, 0 );
 149     }
 150     FIXME( "%u %p %s %s: stub\n", uFmt, hconv, debugstr_hsz(hszTopic), debugstr_hsz(hszItem) );
 151     return NULL;
 152 }
 153
 154 static DWORD PROGMAN_OnExecute(WCHAR *command, int argc, WCHAR **argv)
 155 {
 156     static WCHAR *last_group;
 157     DWORD len;
 158
 159     if (!wcsicmp(command, L"CreateGroup"))
 160     {
 161         WCHAR *path;
 162
 163         if (argc < 1) return DDE_FNOTPROCESSED;
 164
 165         path = get_programs_path(argv[0]);
 166
 167         CreateDirectoryW(path, NULL);
 168         ShellExecuteW(NULL, NULL, path, NULL, NULL, SW_SHOWNORMAL);
 169
 170         heap_free(last_group);
 171         last_group = path;
 172     }
 173     else if (!wcsicmp(command, L"DeleteGroup"))
 174     {
 175         WCHAR *path, *path2;
 176         SHFILEOPSTRUCTW shfos = {0};
 177         int ret;
 178
 179         if (argc < 1) return DDE_FNOTPROCESSED;
 180
 181         path = get_programs_path(argv[0]);
 182
 183         path2 = heap_alloc((lstrlenW(path) + 2) * sizeof(*path));
 184         lstrcpyW(path2, path);
 185         path2[lstrlenW(path) + 1] = 0;
 186
 187         shfos.wFunc = FO_DELETE;
 188         shfos.pFrom = path2;
 189         shfos.fFlags = FOF_NOCONFIRMATION;
 190
 191         ret = SHFileOperationW(&shfos);
 192
 193         heap_free(path2);
 194         heap_free(path);
 195
 196         if (ret || shfos.fAnyOperationsAborted) return DDE_FNOTPROCESSED;
 197     }
 198     else if (!wcsicmp(command, L"ShowGroup"))
 199     {
 200         WCHAR *path;
 201
 202         /* Win32 requires the second parameter to be present but seems to
 203          * ignore its actual value. */
 204         if (argc < 2) return DDE_FNOTPROCESSED;
 205
 206         path = get_programs_path(argv[0]);
 207
 208         ShellExecuteW(NULL, NULL, path, NULL, NULL, SW_SHOWNORMAL);
 209
 210         heap_free(last_group);
 211         last_group = path;
 212     }
 213     else if (!wcsicmp(command, L"AddItem"))
 214     {
 215         WCHAR *path, *name;
 216         IShellLinkW *link;
 217         IPersistFile *file;
 218         HRESULT hres;
 219
 220         if (argc < 1) return DDE_FNOTPROCESSED;
 221
 222         hres = CoCreateInstance(&CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER,
 223                                 &IID_IShellLinkW, (void **)&link);
 224         if (FAILED(hres)) return DDE_FNOTPROCESSED;
 225
 226         len = SearchPathW(NULL, argv[0], L".exe", 0, NULL, NULL);
 227         if (len == 0)
 228         {
 229             IShellLinkW_Release(link);
 230             return DDE_FNOTPROCESSED;
 231         }
 232         path = heap_alloc(len * sizeof(WCHAR));
 233         SearchPathW(NULL, argv[0], L".exe", len, path, NULL);
 234         IShellLinkW_SetPath(link, path);
 235         heap_free(path);
 236
 237         if (argc >= 2) IShellLinkW_SetDescription(link, argv[1]);
 238         if (argc >= 4) IShellLinkW_SetIconLocation(link, argv[2], wcstol(argv[3], NULL, 10));
 239         if (argc >= 7) IShellLinkW_SetWorkingDirectory(link, argv[6]);
 240         if (argc >= 8) IShellLinkW_SetHotkey(link, wcstol(argv[7], NULL, 10));
 241         if (argc >= 9)
 242         {
 243             if (wcstol(argv[8], NULL, 10) == 0) IShellLinkW_SetShowCmd(link, SW_SHOWMINNOACTIVE);
 244             else if (wcstol(argv[8], NULL, 10) == 1) IShellLinkW_SetShowCmd(link, SW_SHOWNORMAL);
 245         }
 246
 247         hres = IShellLinkW_QueryInterface(link, &IID_IPersistFile, (void **)&file);
 248         if (FAILED(hres))
 249         {
 250             IShellLinkW_Release(link);
 251             return DDE_FNOTPROCESSED;
 252         }
 253         if (argc >= 2)
 254         {
 255             len = lstrlenW(last_group) + 1 + lstrlenW(argv[1]) + 5;
 256             name = heap_alloc(len * sizeof(*name));
 257             swprintf( name, len, L"%s/%s.lnk", last_group, argv[1] );
 258         }
 259         else
 260         {
 261             const WCHAR *filename = PathFindFileNameW(argv[0]);
 262             len = PathFindExtensionW(filename) - filename;
 263             name = heap_alloc((lstrlenW(last_group) + 1 + len + 5) * sizeof(*name));
 264             swprintf( name, lstrlenW(last_group) + 1 + len + 5, L"%s/%.*s.lnk", last_group, len, filename );
 265         }
 266         hres = IPersistFile_Save(file, name, TRUE);
 267
 268         heap_free(name);
 269         IPersistFile_Release(file);
 270         IShellLinkW_Release(link);
 271
 272         if (FAILED(hres)) return DDE_FNOTPROCESSED;
 273     }
 274     else if (!wcsicmp(command, L"DeleteItem") || !wcsicmp(command, L"ReplaceItem"))
 275     {
 276         WCHAR *name;
 277         BOOL ret;
 278
 279         if (argc < 1) return DDE_FNOTPROCESSED;
 280
 281         len = lstrlenW(last_group) + 1 + lstrlenW(argv[0]) + 5;
 282         name = heap_alloc(len * sizeof(*name));
 283         swprintf( name, len, L"%s/%s.lnk", last_group, argv[0]);
 284
 285         ret = DeleteFileW(name);
 286
 287         heap_free(name);
 288
 289         if (!ret) return DDE_FNOTPROCESSED;
 290     }
 291     else if (!wcsicmp(command, L"ExitProgman"))
 292     {
 293         /* do nothing */
 294     }
 295     else
 296     {
 297         FIXME("unhandled command %s\n", debugstr_w(command));
 298         return DDE_FNOTPROCESSED;
 299     }
 300     return DDE_FACK;
 301 }
 302
 303 static DWORD parse_dde_command(HSZ hszTopic, WCHAR *command)
 304 {
 305     WCHAR *original = command;
 306     WCHAR *opcode = NULL, **argv = NULL, *p;
 307     int argc = 0, i;
 308     DWORD ret = DDE_FACK;
 309
 310     while (*command == ' ') command++;
 311
 312     if (*command != '[') goto error;
 313     while (*command == '[')
 314     {
 315         argc = 0;
 316         argv = heap_alloc(sizeof(*argv));
 317
 318         command++;
 319         while (*command == ' ') command++;
 320         if (!(p = wcspbrk(command, L" ,()[]\""))) goto error;
 321
 322         opcode = strndupW(command, p - command);
 323
 324         command = p;
 325         while (*command == ' ') command++;
 326         if (*command == '(')
 327         {
 328             command++;
 329
 330             while (*command != ')')
 331             {
 332                 while (*command == ' ') command++;
 333                 if (*command == '"')
 334                 {
 335                     command++;
 336                     if (!(p = wcschr(command, '"'))) goto error;
 337                 }
 338                 else
 339                 {
 340                     if (!(p = wcspbrk(command, L",()[]"))) goto error;
 341                     while (p[-1] == ' ') p--;
 342                 }
 343
 344                 argc++;
 345                 argv = heap_realloc(argv, argc * sizeof(*argv));
 346                 argv[argc-1] = strndupW(command, p - command);
 347
 348                 command = p;
 349                 if (*command == '"') command++;
 350                 while (*command == ' ') command++;
 351                 if (*command == ',') command++;
 352                 else if (*command != ')') goto error;
 353             }
 354             command++;
 355
 356             while (*command == ' ') command++;
 357         }
 358
 359         if (*command != ']') goto error;
 360         command++;
 361         while (*command == ' ') command++;
 362
 363         if (hszTopic == hszProgmanTopic)
 364             ret = PROGMAN_OnExecute(opcode, argc, argv);
 365         else
 366         {
 367             FIXME("unhandled topic %s, command %s\n", debugstr_hsz(hszTopic), debugstr_w(opcode));
 368             ret = DDE_FNOTPROCESSED;
 369         }
 370
 371         heap_free(opcode);
 372         for (i = 0; i < argc; i++) heap_free(argv[i]);
 373         heap_free(argv);
 374
 375         if (ret == DDE_FNOTPROCESSED) break;
 376     }
 377
 378     return ret;
 379
 380 error:
 381     ERR("failed to parse command %s\n", debugstr_w(original));
 382     heap_free(opcode);
 383     for (i = 0; i < argc; i++) heap_free(argv[i]);
 384     heap_free(argv);
 385     return DDE_FNOTPROCESSED;
 386 }
 387
 388 static DWORD Dde_OnExecute(HCONV hconv, HSZ hszTopic, HDDEDATA hdata)
 389 {
 390     WCHAR *command;
 391     DWORD len;
 392     DWORD ret;
 393
 394     len = DdeGetData(hdata, NULL, 0, 0);
 395     if (!len) return DDE_FNOTPROCESSED;
 396     command = heap_alloc(len);
 397     DdeGetData(hdata, (BYTE *)command, len, 0);
 398
 399     TRACE("conv=%p topic=%s data=%s\n", hconv, debugstr_hsz(hszTopic), debugstr_w(command));
 400
 401     ret = parse_dde_command(hszTopic, command);
 402
 403     heap_free(command);
 404     return ret;
 405 }
 406
 407 static inline void Dde_OnDisconnect(HCONV hconv)
 408 {
 409     TRACE( "%p\n", hconv );
 410 }
 411
 412 static HDDEDATA CALLBACK DdeCallback(
 413     UINT uType,
 414     UINT uFmt,
 415     HCONV hconv,
 416     HSZ hsz1,
 417     HSZ hsz2,
 418     HDDEDATA hdata,
 419     ULONG_PTR dwData1,
 420     ULONG_PTR dwData2)
 421 {
 422     switch (uType)
 423     {
 424     case XTYP_CONNECT:
 425         return (HDDEDATA)(DWORD_PTR)Dde_OnConnect(hsz1, hsz2);
 426     case XTYP_CONNECT_CONFIRM:
 427         Dde_OnConnectConfirm(hconv, hsz1, hsz2);
 428         return NULL;
 429     case XTYP_WILDCONNECT:
 430         return (HDDEDATA)(DWORD_PTR)Dde_OnWildConnect(hsz1, hsz2);
 431     case XTYP_REQUEST:
 432         return Dde_OnRequest(uFmt, hconv, hsz1, hsz2);
 433     case XTYP_EXECUTE:
 434         return (HDDEDATA)(DWORD_PTR)Dde_OnExecute(hconv, hsz1, hdata);
 435     case XTYP_DISCONNECT:
 436         Dde_OnDisconnect(hconv);
 437         return NULL;
 438     default:
 439         return NULL;
 440     }
 441 }
 442
 443 /*************************************************************************
 444  * ShellDDEInit (SHELL32.@)
 445  *
 446  * Registers the Shell DDE services with the system so that applications
 447  * can use them.
 448  *
 449  * PARAMS
 450  *  bInit [I] TRUE to initialize the services, FALSE to uninitialize.
 451  *
 452  * RETURNS
 453  *  Nothing.
 454  */
 455 void WINAPI ShellDDEInit(BOOL bInit)
 456 {
 457     TRACE("bInit = %s\n", bInit ? "TRUE" : "FALSE");
 458
 459     if (bInit)
 460     {
 461         DdeInitializeW(&dwDDEInst, DdeCallback, CBF_FAIL_ADVISES | CBF_FAIL_POKES, 0);
 462
 463         hszProgmanTopic = DdeCreateStringHandleW(dwDDEInst, L"Progman", CP_WINUNICODE);
 464         hszProgmanService = DdeCreateStringHandleW(dwDDEInst, L"Progman", CP_WINUNICODE);
 465         hszAsterisk = DdeCreateStringHandleW(dwDDEInst, L"*", CP_WINUNICODE);
 466         hszShell = DdeCreateStringHandleW(dwDDEInst, L"Shell", CP_WINUNICODE);
 467         hszAppProperties = DdeCreateStringHandleW(dwDDEInst, L"AppProperties", CP_WINUNICODE);
 468         hszFolders = DdeCreateStringHandleW(dwDDEInst, L"Folders", CP_WINUNICODE);
 469         hszGroups = DdeCreateStringHandleW(dwDDEInst, L"Groups", CP_WINUNICODE);
 470
 471         DdeNameService(dwDDEInst, hszFolders, 0, DNS_REGISTER);
 472         DdeNameService(dwDDEInst, hszProgmanService, 0, DNS_REGISTER);
 473         DdeNameService(dwDDEInst, hszShell, 0, DNS_REGISTER);
 474     }
 475     else
 476     {
 477         /* unregister all services */
 478         DdeNameService(dwDDEInst, 0, 0, DNS_UNREGISTER);
 479
 480         DdeFreeStringHandle(dwDDEInst, hszFolders);
 481         DdeFreeStringHandle(dwDDEInst, hszAppProperties);
 482         DdeFreeStringHandle(dwDDEInst, hszShell);
 483         DdeFreeStringHandle(dwDDEInst, hszAsterisk);
 484         DdeFreeStringHandle(dwDDEInst, hszProgmanService);
 485         DdeFreeStringHandle(dwDDEInst, hszProgmanTopic);
 486
 487         DdeUninitialize(dwDDEInst);
 488     }
 489 }