git.oblomov.eu Git - wine/blob - dlls/user32/tests/dde.c

   1 /*
   2  * Unit tests for DDE functions
   3  *
   4  * Copyright (c) 2004 Dmitry Timoshkov
   5  * Copyright (c) 2007 James Hawkins
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  20  */
  21
  22 #include <assert.h>
  23 #include <stdarg.h>
  24 #include <stdio.h>
  25
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "winuser.h"
  29 #include "dde.h"
  30 #include "ddeml.h"
  31 #include "winerror.h"
  32
  33 #include "wine/test.h"
  34
  35 static const WCHAR TEST_DDE_SERVICE[] = {'T','e','s','t','D','D','E','S','e','r','v','i','c','e',0};
  36
  37 static char exec_cmdA[] = "ANSI dde command";
  38 static WCHAR exec_cmdW[] = {'u','n','i','c','o','d','e',' ','d','d','e',' ','c','o','m','m','a','n','d',0};
  39
  40 static WNDPROC old_dde_client_wndproc;
  41
  42 static void create_dde_window(HWND *hwnd, LPCSTR name, WNDPROC wndproc)
  43 {
  44     WNDCLASSA wcA;
  45
  46     memset(&wcA, 0, sizeof(wcA));
  47     wcA.lpfnWndProc = wndproc;
  48     wcA.lpszClassName = name;
  49     wcA.hInstance = GetModuleHandleA(0);
  50     assert(RegisterClassA(&wcA));
  51
  52     *hwnd = CreateWindowExA(0, name, NULL, WS_POPUP,
  53                             500, 500, CW_USEDEFAULT, CW_USEDEFAULT,
  54                             GetDesktopWindow(), 0, GetModuleHandleA(0), NULL);
  55     assert(*hwnd);
  56 }
  57
  58 static LRESULT WINAPI dde_server_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
  59 {
  60     UINT_PTR lo, hi;
  61     char str[MAX_PATH], *ptr;
  62     HGLOBAL hglobal;
  63     DDEDATA *data;
  64     DDEPOKE *poke;
  65     DWORD size;
  66
  67     static int msg_index = 0;
  68     static HWND client = 0;
  69     static BOOL executed = FALSE;
  70
  71     if (msg < WM_DDE_FIRST || msg > WM_DDE_LAST)
  72         return DefWindowProcA(hwnd, msg, wparam, lparam);
  73
  74     msg_index++;
  75
  76     switch (msg)
  77     {
  78     case WM_DDE_INITIATE:
  79     {
  80         client = (HWND)wparam;
  81         ok(msg_index == 1, "Expected 1, got %d\n", msg_index);
  82
  83         GlobalGetAtomNameA(LOWORD(lparam), str, MAX_PATH);
  84         ok(!lstrcmpA(str, "TestDDEService"), "Expected TestDDEService, got %s\n", str);
  85
  86         GlobalGetAtomNameA(HIWORD(lparam), str, MAX_PATH);
  87         ok(!lstrcmpA(str, "TestDDETopic"), "Expected TestDDETopic, got %s\n", str);
  88
  89         SendMessageA(client, WM_DDE_ACK, (WPARAM)hwnd, lparam);
  90
  91         break;
  92     }
  93
  94     case WM_DDE_REQUEST:
  95     {
  96         ok((msg_index >= 2 && msg_index <= 4) ||
  97            (msg_index >= 7 && msg_index <= 8),
  98            "Expected 2, 3, 4, 7 or 8, got %d\n", msg_index);
  99         ok(wparam == (WPARAM)client, "Expected client hwnd, got %08lx\n", wparam);
 100         ok(LOWORD(lparam) == CF_TEXT, "Expected CF_TEXT, got %d\n", LOWORD(lparam));
 101
 102         GlobalGetAtomNameA(HIWORD(lparam), str, MAX_PATH);
 103         if (msg_index < 8)
 104             ok(!lstrcmpA(str, "request"), "Expected request, got %s\n", str);
 105         else
 106             ok(!lstrcmpA(str, "executed"), "Expected executed, got %s\n", str);
 107
 108         if (msg_index == 8)
 109         {
 110             if (executed)
 111                 lstrcpyA(str, "command executed\r\n");
 112             else
 113                 lstrcpyA(str, "command not executed\r\n");
 114         }
 115         else
 116             lstrcpyA(str, "requested data\r\n");
 117
 118         size = sizeof(DDEDATA) + lstrlenA(str) + 1;
 119         hglobal = GlobalAlloc(GMEM_MOVEABLE, size);
 120         ok(hglobal != NULL, "Expected non-NULL hglobal\n");
 121
 122         data = GlobalLock(hglobal);
 123         ZeroMemory(data, size);
 124
 125         /* setting fResponse to FALSE at this point destroys
 126          * the internal messaging state of native dde
 127          */
 128         data->fResponse = TRUE;
 129
 130         if (msg_index == 2)
 131             data->fRelease = TRUE;
 132         else if (msg_index == 3)
 133             data->fAckReq = TRUE;
 134
 135         data->cfFormat = CF_TEXT;
 136         lstrcpyA((LPSTR)data->Value, str);
 137         GlobalUnlock(hglobal);
 138
 139         lparam = PackDDElParam(WM_DDE_ACK, (UINT)hglobal, HIWORD(lparam));
 140         PostMessageA(client, WM_DDE_DATA, (WPARAM)hwnd, lparam);
 141
 142         break;
 143     }
 144
 145     case WM_DDE_POKE:
 146     {
 147         ok(msg_index == 5 || msg_index == 6, "Expected 5 or 6, got %d\n", msg_index);
 148         ok(wparam == (WPARAM)client, "Expected client hwnd, got %08lx\n", wparam);
 149
 150         UnpackDDElParam(WM_DDE_POKE, lparam, &lo, &hi);
 151
 152         GlobalGetAtomNameA(hi, str, MAX_PATH);
 153         ok(!lstrcmpA(str, "poker"), "Expected poker, got %s\n", str);
 154
 155         poke = GlobalLock((HGLOBAL)lo);
 156         ok(poke != NULL, "Expected non-NULL poke\n");
 157         ok(poke->unused == 0, "Expected 0, got %d\n", poke->unused);
 158         todo_wine
 159         {
 160             ok(poke->fRelease == TRUE, "Expected TRUE, got %d\n", poke->fRelease);
 161         }
 162         ok(poke->fReserved == 0, "Expected 0, got %d\n", poke->fReserved);
 163         ok(poke->cfFormat == CF_TEXT, "Expected CF_TEXT, got %d\n", poke->cfFormat);
 164
 165         if (msg_index == 5)
 166             ok(lstrcmpA((LPSTR)poke->Value, "poke data\r\n"),
 167                "Expected 'poke data\\r\\n', got %s\n", poke->Value);
 168         else
 169             ok(!lstrcmpA((LPSTR)poke->Value, "poke data\r\n"),
 170                "Expected 'poke data\\r\\n', got %s\n", poke->Value);
 171
 172         GlobalUnlock((HGLOBAL)lo);
 173
 174         lparam = PackDDElParam(WM_DDE_ACK, DDE_FACK, hi);
 175         PostMessageA(client, WM_DDE_ACK, (WPARAM)hwnd, lparam);
 176
 177         break;
 178     }
 179
 180     case WM_DDE_EXECUTE:
 181     {
 182         ok(msg_index == 7, "Expected 7, got %d\n", msg_index);
 183         ok(wparam == (WPARAM)client, "Expected client hwnd, got %08lx\n", wparam);
 184
 185         ptr = GlobalLock((HGLOBAL)lparam);
 186         ok(!lstrcmpA(ptr, "[Command(Var)]"), "Expected [Command(Var)], got %s\n", ptr);
 187         GlobalUnlock((HGLOBAL)lparam);
 188
 189         executed = TRUE;
 190
 191         lparam = ReuseDDElParam(lparam, WM_DDE_EXECUTE, WM_DDE_ACK, DDE_FACK, HIWORD(lparam));
 192         PostMessageA(client, WM_DDE_ACK, (WPARAM)hwnd, lparam);
 193
 194         break;
 195     }
 196
 197     case WM_DDE_TERMINATE:
 198     {
 199         ok(msg_index == 9, "Expected 9, got %d\n", msg_index);
 200         ok(wparam == (WPARAM)client, "Expected client hwnd, got %08lx\n", wparam);
 201         ok(lparam == 0, "Expected 0, got %08lx\n", lparam);
 202
 203         PostMessageA(client, WM_DDE_TERMINATE, (WPARAM)hwnd, 0);
 204
 205         break;
 206     }
 207
 208     default:
 209         ok(FALSE, "Unhandled msg: %08x\n", msg);
 210     }
 211
 212     return DefWindowProcA(hwnd, msg, wparam, lparam);
 213 }
 214
 215 static void test_msg_server(HANDLE hproc)
 216 {
 217     MSG msg;
 218     HWND hwnd;
 219
 220     create_dde_window(&hwnd, "dde_server", dde_server_wndproc);
 221
 222     do
 223     {
 224         while (PeekMessage(&msg, 0, 0, 0, PM_REMOVE)) DispatchMessageA(&msg);
 225     } while (WaitForSingleObject(hproc, 500) == WAIT_TIMEOUT);
 226
 227    DestroyWindow(hwnd);
 228 }
 229
 230 static HDDEDATA CALLBACK client_ddeml_callback(UINT uType, UINT uFmt, HCONV hconv,
 231                                                HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
 232                                                ULONG_PTR dwData1, ULONG_PTR dwData2)
 233 {
 234     ok(FALSE, "Unhandled msg: %08x\n", uType);
 235     return 0;
 236 }
 237
 238 static void test_ddeml_client(void)
 239 {
 240     UINT ret;
 241     LPSTR str;
 242     DWORD size, res;
 243     HDDEDATA hdata, op;
 244     HSZ server, topic, item;
 245     DWORD client_pid;
 246     HCONV conversation;
 247
 248     client_pid = 0;
 249     ret = DdeInitializeA(&client_pid, client_ddeml_callback, APPCMD_CLIENTONLY, 0);
 250     ok(ret == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", ret);
 251
 252     /* FIXME: make these atoms global and check them in the server */
 253
 254     server = DdeCreateStringHandleA(client_pid, "TestDDEService", CP_WINANSI);
 255     topic = DdeCreateStringHandleA(client_pid, "TestDDETopic", CP_WINANSI);
 256
 257     DdeGetLastError(client_pid);
 258     conversation = DdeConnect(client_pid, server, topic, NULL);
 259     ok(conversation != NULL, "Expected non-NULL conversation\n");
 260     ret = DdeGetLastError(client_pid);
 261     ok(ret == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", ret);
 262
 263     DdeFreeStringHandle(client_pid, server);
 264
 265     item = DdeCreateStringHandleA(client_pid, "request", CP_WINANSI);
 266
 267     /* XTYP_REQUEST, fRelease = TRUE */
 268     res = 0xdeadbeef;
 269     DdeGetLastError(client_pid);
 270     hdata = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_REQUEST, 500, &res);
 271     ret = DdeGetLastError(client_pid);
 272     ok(hdata == NULL, "Expected NULL hdata, got %p\n", hdata);
 273     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %08x\n", res);
 274     ok(ret == DMLERR_DATAACKTIMEOUT, "Expected DMLERR_DATAACKTIMEOUT, got %d\n", ret);
 275
 276     /* XTYP_REQUEST, fAckReq = TRUE */
 277     res = 0xdeadbeef;
 278     DdeGetLastError(client_pid);
 279     hdata = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_REQUEST, 500, &res);
 280     ret = DdeGetLastError(client_pid);
 281     ok(hdata != NULL, "Expected non-NULL hdata\n");
 282     todo_wine
 283     {
 284         ok(res == DDE_FNOTPROCESSED, "Expected DDE_FNOTPROCESSED, got %d\n", res);
 285         ok(ret == DMLERR_MEMORY_ERROR, "Expected DMLERR_MEMORY_ERROR, got %d\n", ret);
 286     }
 287
 288     str = (LPSTR)DdeAccessData(hdata, &size);
 289     ok(!lstrcmpA(str, "requested data\r\n"), "Expected 'requested data\\r\\n', got %s\n", str);
 290     ok(size == 19, "Expected 19, got %d\n", size);
 291
 292     ret = DdeUnaccessData(hdata);
 293     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 294
 295     /* XTYP_REQUEST, all params normal */
 296     res = 0xdeadbeef;
 297     DdeGetLastError(client_pid);
 298     hdata = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_REQUEST, 500, &res);
 299     ret = DdeGetLastError(client_pid);
 300     todo_wine
 301     {
 302         ok(hdata != NULL, "Expected non-NULL hdata\n");
 303         ok(res == DDE_FNOTPROCESSED, "Expected DDE_FNOTPROCESSED, got %d\n", res);
 304         ok(ret == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", ret);
 305     }
 306
 307     str = (LPSTR)DdeAccessData(hdata, &size);
 308     todo_wine
 309     {
 310         ok(!lstrcmpA(str, "requested data\r\n"), "Expected 'requested data\\r\\n', got %s\n", str);
 311     }
 312     ok(size == 19, "Expected 19, got %d\n", size);
 313
 314     ret = DdeUnaccessData(hdata);
 315     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 316
 317     /* XTYP_REQUEST, no item */
 318     res = 0xdeadbeef;
 319     DdeGetLastError(client_pid);
 320     hdata = DdeClientTransaction(NULL, 0, conversation, 0, CF_TEXT, XTYP_REQUEST, 500, &res);
 321     ret = DdeGetLastError(client_pid);
 322     ok(hdata == NULL, "Expected NULL hdata, got %p\n", hdata);
 323     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %08x\n", res);
 324     todo_wine
 325     {
 326         ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 327     }
 328
 329     DdeFreeStringHandle(client_pid, item);
 330
 331     item = DdeCreateStringHandleA(client_pid, "poker", CP_WINANSI);
 332
 333     lstrcpyA(str, "poke data\r\n");
 334     hdata = DdeCreateDataHandle(client_pid, (LPBYTE)str, lstrlenA(str) + 1,
 335                                 0, item, CF_TEXT, 0);
 336     ok(hdata != NULL, "Expected non-NULL hdata\n");
 337
 338     /* XTYP_POKE, no item */
 339     res = 0xdeadbeef;
 340     DdeGetLastError(client_pid);
 341     op = DdeClientTransaction((LPBYTE)hdata, -1, conversation, 0, CF_TEXT, XTYP_POKE, 500, &res);
 342     ret = DdeGetLastError(client_pid);
 343     ok(op == NULL, "Expected NULL, got %p\n", op);
 344     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 345     todo_wine
 346     {
 347         ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 348     }
 349
 350     /* XTYP_POKE, no data */
 351     res = 0xdeadbeef;
 352     DdeGetLastError(client_pid);
 353     op = DdeClientTransaction(NULL, 0, conversation, 0, CF_TEXT, XTYP_POKE, 500, &res);
 354     ret = DdeGetLastError(client_pid);
 355     ok(op == NULL, "Expected NULL, got %p\n", op);
 356     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 357     todo_wine
 358     {
 359         ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 360     }
 361
 362     /* XTYP_POKE, wrong size */
 363     res = 0xdeadbeef;
 364     DdeGetLastError(client_pid);
 365     op = DdeClientTransaction((LPBYTE)hdata, 0, conversation, item, CF_TEXT, XTYP_POKE, 500, &res);
 366     ret = DdeGetLastError(client_pid);
 367     todo_wine
 368     {
 369         ok(op == (HDDEDATA)TRUE, "Expected TRUE, got %p\n", op);
 370         ok(res == DDE_FACK, "Expected DDE_FACK, got %d\n", res);
 371     }
 372     ok(ret == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", ret);
 373
 374     /* XTYP_POKE, correct params */
 375     res = 0xdeadbeef;
 376     DdeGetLastError(client_pid);
 377     op = DdeClientTransaction((LPBYTE)hdata, -1, conversation, item, CF_TEXT, XTYP_POKE, 500, &res);
 378     ret = DdeGetLastError(client_pid);
 379     todo_wine
 380     {
 381         ok(op == (HDDEDATA)TRUE, "Expected TRUE, got %p\n", op);
 382         ok(res == DDE_FACK, "Expected DDE_FACK, got %d\n", res);
 383         ok(ret == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", ret);
 384     }
 385
 386     DdeFreeDataHandle(hdata);
 387
 388     lstrcpyA(str, "[Command(Var)]");
 389     hdata = DdeCreateDataHandle(client_pid, (LPBYTE)str, lstrlenA(str) + 1,
 390                                 0, NULL, CF_TEXT, 0);
 391     ok(hdata != NULL, "Expected non-NULL hdata\n");
 392
 393     /* XTYP_EXECUTE, correct params */
 394     res = 0xdeadbeef;
 395     DdeGetLastError(client_pid);
 396     op = DdeClientTransaction((LPBYTE)hdata, -1, conversation, NULL, 0, XTYP_EXECUTE, 5000, &res);
 397     ret = DdeGetLastError(client_pid);
 398     todo_wine
 399     {
 400         ok(op == (HDDEDATA)TRUE, "Expected TRUE, got %p\n", op);
 401         ok(res == DDE_FACK, "Expected DDE_FACK, got %d\n", res);
 402         ok(ret == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", ret);
 403     }
 404
 405     /* XTYP_EXECUTE, no data */
 406     res = 0xdeadbeef;
 407     DdeGetLastError(client_pid);
 408     op = DdeClientTransaction(NULL, 0, conversation, NULL, 0, XTYP_EXECUTE, 5000, &res);
 409     ret = DdeGetLastError(client_pid);
 410     ok(op == NULL, "Expected NULL, got %p\n", op);
 411     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 412     todo_wine
 413     {
 414         ok(ret == DMLERR_MEMORY_ERROR, "Expected DMLERR_MEMORY_ERROR, got %d\n", ret);
 415     }
 416
 417     /* XTYP_EXECUTE, no data, -1 size */
 418     res = 0xdeadbeef;
 419     DdeGetLastError(client_pid);
 420     op = DdeClientTransaction(NULL, -1, conversation, NULL, 0, XTYP_EXECUTE, 5000, &res);
 421     ret = DdeGetLastError(client_pid);
 422     ok(op == NULL, "Expected NULL, got %p\n", op);
 423     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 424     todo_wine
 425     {
 426         ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 427     }
 428
 429     DdeFreeStringHandle(client_pid, topic);
 430     DdeFreeDataHandle(hdata);
 431
 432     item = DdeCreateStringHandleA(client_pid, "executed", CP_WINANSI);
 433
 434     /* verify the execute */
 435     res = 0xdeadbeef;
 436     DdeGetLastError(client_pid);
 437     hdata = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_REQUEST, 500, &res);
 438     ret = DdeGetLastError(client_pid);
 439     todo_wine
 440     {
 441         ok(hdata != NULL, "Expected non-NULL hdata\n");
 442         ok(res == DDE_FNOTPROCESSED, "Expected DDE_FNOTPROCESSED, got %d\n", res);
 443         ok(ret == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", ret);
 444     }
 445
 446     str = (LPSTR)DdeAccessData(hdata, &size);
 447     todo_wine
 448     {
 449         ok(!lstrcmpA(str, "command executed\r\n"), "Expected 'command executed\\r\\n', got %s\n", str);
 450         ok(size == 21, "Expected 21, got %d\n", size);
 451     }
 452
 453     ret = DdeUnaccessData(hdata);
 454     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 455
 456     /* invalid transactions */
 457
 458     res = 0xdeadbeef;
 459     DdeGetLastError(client_pid);
 460     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_ADVREQ, 500, &res);
 461     ret = DdeGetLastError(client_pid);
 462     ok(op == NULL, "Expected NULL, got %p\n", op);
 463     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 464     todo_wine
 465     {
 466         ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 467     }
 468
 469     res = 0xdeadbeef;
 470     DdeGetLastError(client_pid);
 471     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_CONNECT, 500, &res);
 472     ret = DdeGetLastError(client_pid);
 473     ok(op == NULL, "Expected NULL, got %p\n", op);
 474     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 475     todo_wine
 476     {
 477         ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 478     }
 479
 480     res = 0xdeadbeef;
 481     DdeGetLastError(client_pid);
 482     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_CONNECT_CONFIRM, 500, &res);
 483     ret = DdeGetLastError(client_pid);
 484     ok(op == NULL, "Expected NULL, got %p\n", op);
 485     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 486     todo_wine
 487     {
 488         ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 489     }
 490
 491     res = 0xdeadbeef;
 492     DdeGetLastError(client_pid);
 493     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_DISCONNECT, 500, &res);
 494     ret = DdeGetLastError(client_pid);
 495     ok(op == NULL, "Expected NULL, got %p\n", op);
 496     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 497     todo_wine
 498     {
 499         ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 500     }
 501
 502     res = 0xdeadbeef;
 503     DdeGetLastError(client_pid);
 504     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_ERROR, 500, &res);
 505     ret = DdeGetLastError(client_pid);
 506     ok(op == NULL, "Expected NULL, got %p\n", op);
 507     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 508     todo_wine
 509     {
 510         ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 511     }
 512
 513     res = 0xdeadbeef;
 514     DdeGetLastError(client_pid);
 515     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_MONITOR, 500, &res);
 516     ret = DdeGetLastError(client_pid);
 517     ok(op == NULL, "Expected NULL, got %p\n", op);
 518     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 519     todo_wine
 520     {
 521         ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 522     }
 523
 524     res = 0xdeadbeef;
 525     DdeGetLastError(client_pid);
 526     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_REGISTER, 500, &res);
 527     ret = DdeGetLastError(client_pid);
 528     ok(op == NULL, "Expected NULL, got %p\n", op);
 529     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 530     todo_wine
 531     {
 532         ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 533     }
 534
 535     res = 0xdeadbeef;
 536     DdeGetLastError(client_pid);
 537     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_UNREGISTER, 500, &res);
 538     ret = DdeGetLastError(client_pid);
 539     ok(op == NULL, "Expected NULL, got %p\n", op);
 540     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 541     todo_wine
 542     {
 543         ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 544     }
 545
 546     res = 0xdeadbeef;
 547     DdeGetLastError(client_pid);
 548     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_WILDCONNECT, 500, &res);
 549     ret = DdeGetLastError(client_pid);
 550     ok(op == NULL, "Expected NULL, got %p\n", op);
 551     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 552     todo_wine
 553     {
 554         ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 555     }
 556
 557     res = 0xdeadbeef;
 558     DdeGetLastError(client_pid);
 559     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_XACT_COMPLETE, 500, &res);
 560     ret = DdeGetLastError(client_pid);
 561     ok(op == NULL, "Expected NULL, got %p\n", op);
 562     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 563     todo_wine
 564     {
 565         ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 566     }
 567
 568     DdeFreeStringHandle(client_pid, item);
 569
 570     ret = DdeDisconnect(conversation);
 571     todo_wine
 572     {
 573         ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 574     }
 575
 576     ret = DdeUninitialize(client_pid);
 577     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 578 }
 579
 580 static LRESULT WINAPI hook_dde_client_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
 581 {
 582     UINT_PTR lo, hi;
 583
 584     trace("hook_dde_client_wndproc: %p %04x %08lx %08lx\n", hwnd, msg, wparam, lparam);
 585
 586     switch (msg)
 587     {
 588     case WM_DDE_ACK:
 589         UnpackDDElParam(WM_DDE_ACK, lparam, &lo, &hi);
 590         trace("WM_DDE_ACK: status %04lx hglobal %p\n", lo, (HGLOBAL)hi);
 591         break;
 592
 593     default:
 594         break;
 595     }
 596     return CallWindowProcA(old_dde_client_wndproc, hwnd, msg, wparam, lparam);
 597 }
 598
 599 static LRESULT WINAPI dde_server_wndprocW(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
 600 {
 601     trace("dde_server_wndprocW: %p %04x %08lx %08lx\n", hwnd, msg, wparam, lparam);
 602
 603     switch (msg)
 604     {
 605     case WM_DDE_INITIATE:
 606     {
 607         ATOM aService = GlobalAddAtomW(TEST_DDE_SERVICE);
 608
 609         trace("server: got WM_DDE_INITIATE from %p with %08lx\n", (HWND)wparam, lparam);
 610
 611         if (LOWORD(lparam) == aService)
 612         {
 613             ok(!IsWindowUnicode((HWND)wparam), "client should be an ANSI window\n");
 614             old_dde_client_wndproc = (WNDPROC)SetWindowLongPtrA((HWND)wparam, GWLP_WNDPROC, (ULONG_PTR)hook_dde_client_wndproc);
 615             trace("server: sending WM_DDE_ACK to %p\n", (HWND)wparam);
 616             SendMessageW((HWND)wparam, WM_DDE_ACK, (WPARAM)hwnd, MAKELPARAM(aService, 0));
 617         }
 618         else
 619             GlobalDeleteAtom(aService);
 620         return 0;
 621     }
 622
 623     case WM_DDE_EXECUTE:
 624     {
 625         DDEACK ack;
 626         WORD status;
 627         LPCSTR cmd;
 628         UINT_PTR lo, hi;
 629
 630         trace("server: got WM_DDE_EXECUTE from %p with %08lx\n", (HWND)wparam, lparam);
 631
 632         UnpackDDElParam(WM_DDE_EXECUTE, lparam, &lo, &hi);
 633         trace("%08lx => lo %04lx hi %04lx\n", lparam, lo, hi);
 634
 635         ack.bAppReturnCode = 0;
 636         ack.reserved = 0;
 637         ack.fBusy = 0;
 638
 639         cmd = GlobalLock((HGLOBAL)hi);
 640
 641         if (!cmd || (lstrcmpA(cmd, exec_cmdA) && lstrcmpW((LPCWSTR)cmd, exec_cmdW)))
 642         {
 643             trace("ignoring unknown WM_DDE_EXECUTE command\n");
 644             /* We have to send a negative acknowledge even if we don't
 645              * accept the command, otherwise Windows goes mad and next time
 646              * we send an acknowledge DDEML drops the connection.
 647              * Not sure how to call it: a bug or a feature.
 648              */
 649             ack.fAck = 0;
 650         }
 651         else
 652             ack.fAck = 1;
 653         GlobalUnlock((HGLOBAL)hi);
 654
 655         trace("server: posting %s WM_DDE_ACK to %p\n", ack.fAck ? "POSITIVE" : "NEGATIVE", (HWND)wparam);
 656
 657         status = *((WORD *)&ack);
 658         lparam = ReuseDDElParam(lparam, WM_DDE_EXECUTE, WM_DDE_ACK, status, hi);
 659
 660         PostMessageW((HWND)wparam, WM_DDE_ACK, (WPARAM)hwnd, lparam);
 661         return 0;
 662     }
 663
 664     case WM_DDE_TERMINATE:
 665     {
 666         DDEACK ack;
 667         WORD status;
 668
 669         trace("server: got WM_DDE_TERMINATE from %p with %08lx\n", (HWND)wparam, lparam);
 670
 671         ack.bAppReturnCode = 0;
 672         ack.reserved = 0;
 673         ack.fBusy = 0;
 674         ack.fAck = 1;
 675
 676         trace("server: posting %s WM_DDE_ACK to %p\n", ack.fAck ? "POSITIVE" : "NEGATIVE", (HWND)wparam);
 677
 678         status = *((WORD *)&ack);
 679         lparam = PackDDElParam(WM_DDE_ACK, status, 0);
 680
 681         PostMessageW((HWND)wparam, WM_DDE_ACK, (WPARAM)hwnd, lparam);
 682         return 0;
 683     }
 684
 685     default:
 686         break;
 687     }
 688
 689     return DefWindowProcW(hwnd, msg, wparam, lparam);
 690 }
 691
 692 static LRESULT WINAPI dde_client_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
 693 {
 694     return DefWindowProcA(hwnd, msg, wparam, lparam);
 695 }
 696
 697 static BOOL create_dde_windows(HWND *hwnd_client, HWND *hwnd_server)
 698 {
 699     WNDCLASSA wcA;
 700     WNDCLASSW wcW;
 701     static const WCHAR server_class_name[] = {'d','d','e','_','s','e','r','v','e','r','_','w','i','n','d','o','w',0};
 702     static const char client_class_name[] = "dde_client_window";
 703
 704     memset(&wcW, 0, sizeof(wcW));
 705     wcW.lpfnWndProc = dde_server_wndprocW;
 706     wcW.lpszClassName = server_class_name;
 707     wcW.hInstance = GetModuleHandleA(0);
 708     if (!RegisterClassW(&wcW)) return FALSE;
 709
 710     memset(&wcA, 0, sizeof(wcA));
 711     wcA.lpfnWndProc = dde_client_wndproc;
 712     wcA.lpszClassName = client_class_name;
 713     wcA.hInstance = GetModuleHandleA(0);
 714     assert(RegisterClassA(&wcA));
 715
 716     *hwnd_server = CreateWindowExW(0, server_class_name, NULL,
 717                                    WS_POPUP,
 718                                    100, 100, CW_USEDEFAULT, CW_USEDEFAULT,
 719                                    GetDesktopWindow(), 0,
 720                                    GetModuleHandleA(0), NULL);
 721     assert(*hwnd_server);
 722
 723     *hwnd_client = CreateWindowExA(0, client_class_name, NULL,
 724                                    WS_POPUP,
 725                                    100, 100, CW_USEDEFAULT, CW_USEDEFAULT,
 726                                    GetDesktopWindow(), 0,
 727                                    GetModuleHandleA(0), NULL);
 728     assert(*hwnd_client);
 729
 730     trace("server hwnd %p, client hwnd %p\n", *hwnd_server, *hwnd_client);
 731
 732     ok(IsWindowUnicode(*hwnd_server), "server has to be a unicode window\n");
 733     ok(!IsWindowUnicode(*hwnd_client), "client has to be an ANSI window\n");
 734
 735     return TRUE;
 736 }
 737
 738 static HDDEDATA CALLBACK client_dde_callback(UINT uType, UINT uFmt, HCONV hconv,
 739                                      HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
 740                                      ULONG_PTR dwData1, ULONG_PTR dwData2)
 741 {
 742     static const char * const cmd_type[15] = {
 743         "XTYP_ERROR", "XTYP_ADVDATA", "XTYP_ADVREQ", "XTYP_ADVSTART",
 744         "XTYP_ADVSTOP", "XTYP_EXECUTE", "XTYP_CONNECT", "XTYP_CONNECT_CONFIRM",
 745         "XTYP_XACT_COMPLETE", "XTYP_POKE", "XTYP_REGISTER", "XTYP_REQUEST",
 746         "XTYP_DISCONNECT", "XTYP_UNREGISTER", "XTYP_WILDCONNECT" };
 747     UINT type;
 748     const char *cmd_name;
 749
 750     type = (uType & XTYP_MASK) >> XTYP_SHIFT;
 751     cmd_name = (type >= 0 && type <= 14) ? cmd_type[type] : "unknown";
 752
 753     trace("client_dde_callback: %04x (%s) %d %p %p %p %p %08lx %08lx\n",
 754           uType, cmd_name, uFmt, hconv, hsz1, hsz2, hdata, dwData1, dwData2);
 755     return 0;
 756 }
 757
 758 static void test_dde_aw_transaction(void)
 759 {
 760     HSZ hsz_server;
 761     DWORD dde_inst, ret, err;
 762     HCONV hconv;
 763     HWND hwnd_client, hwnd_server;
 764     CONVINFO info;
 765     HDDEDATA hdata;
 766     static char test_cmd[] = "test dde command";
 767
 768     /* server: unicode, client: ansi */
 769     if (!create_dde_windows(&hwnd_client, &hwnd_server)) return;
 770
 771     dde_inst = 0;
 772     ret = DdeInitializeA(&dde_inst, client_dde_callback, APPCMD_CLIENTONLY, 0);
 773     ok(ret == DMLERR_NO_ERROR, "DdeInitializeW failed with error %04x (%x)\n",
 774        ret, DdeGetLastError(dde_inst));
 775
 776     hsz_server = DdeCreateStringHandleW(dde_inst, TEST_DDE_SERVICE, CP_WINUNICODE);
 777
 778     hconv = DdeConnect(dde_inst, hsz_server, 0, NULL);
 779     ok(hconv != 0, "DdeConnect error %x\n", DdeGetLastError(dde_inst));
 780     err = DdeGetLastError(dde_inst);
 781     ok(err == DMLERR_NO_ERROR, "wrong dde error %x\n", err);
 782
 783     info.cb = sizeof(info);
 784     ret = DdeQueryConvInfo(hconv, QID_SYNC, &info);
 785     ok(ret, "wrong info size %d, DdeQueryConvInfo error %x\n", ret, DdeGetLastError(dde_inst));
 786     /* should be CP_WINANSI since we used DdeInitializeA */
 787     ok(info.ConvCtxt.iCodePage == CP_WINANSI, "wrong iCodePage %d\n", info.ConvCtxt.iCodePage);
 788     ok(!info.hConvPartner, "unexpected info.hConvPartner: %p\n", info.hConvPartner);
 789 todo_wine {
 790     ok((info.wStatus & DDE_FACK), "unexpected info.wStatus: %04x\n", info.wStatus);
 791 }
 792     ok((info.wStatus & (ST_CONNECTED | ST_CLIENT)) == (ST_CONNECTED | ST_CLIENT), "unexpected info.wStatus: %04x\n", info.wStatus);
 793     ok(info.wConvst == XST_CONNECTED, "unexpected info.wConvst: %04x\n", info.wConvst);
 794     ok(info.wType == 0, "unexpected info.wType: %04x\n", info.wType);
 795
 796     trace("hwnd %p, hwndPartner %p\n", info.hwnd, info.hwndPartner);
 797
 798     trace("sending test client transaction command\n");
 799     ret = 0xdeadbeef;
 800     hdata = DdeClientTransaction((LPBYTE)test_cmd, strlen(test_cmd) + 1, hconv, (HSZ)0xdead, 0xbeef, XTYP_EXECUTE, 1000, &ret);
 801     ok(!hdata, "DdeClientTransaction succeeded\n");
 802     ok(ret == DDE_FNOTPROCESSED, "wrong status code %04x\n", ret);
 803     err = DdeGetLastError(dde_inst);
 804     ok(err == DMLERR_NOTPROCESSED, "wrong dde error %x\n", err);
 805
 806     trace("sending ANSI client transaction command\n");
 807     ret = 0xdeadbeef;
 808     hdata = DdeClientTransaction((LPBYTE)exec_cmdA, lstrlenA(exec_cmdA) + 1, hconv, 0, 0, XTYP_EXECUTE, 1000, &ret);
 809     ok(hdata != 0, "DdeClientTransaction returned %p, error %x\n", hdata, DdeGetLastError(dde_inst));
 810     ok(ret == DDE_FACK, "wrong status code %04x\n", ret);
 811
 812     err = DdeGetLastError(dde_inst);
 813     ok(err == DMLERR_NO_ERROR, "wrong dde error %x\n", err);
 814
 815     trace("sending unicode client transaction command\n");
 816     ret = 0xdeadbeef;
 817     hdata = DdeClientTransaction((LPBYTE)exec_cmdW, (lstrlenW(exec_cmdW) + 1) * sizeof(WCHAR), hconv, 0, 0, XTYP_EXECUTE, 1000, &ret);
 818     ok(hdata != 0, "DdeClientTransaction returned %p, error %x\n", hdata, DdeGetLastError(dde_inst));
 819     ok(ret == DDE_FACK, "wrong status code %04x\n", ret);
 820     err = DdeGetLastError(dde_inst);
 821     ok(err == DMLERR_NO_ERROR, "wrong dde error %x\n", err);
 822
 823     ok(DdeDisconnect(hconv), "DdeDisconnect error %x\n", DdeGetLastError(dde_inst));
 824
 825     info.cb = sizeof(info);
 826     ret = DdeQueryConvInfo(hconv, QID_SYNC, &info);
 827     ok(!ret, "DdeQueryConvInfo should fail\n");
 828     err = DdeGetLastError(dde_inst);
 829 todo_wine {
 830     ok(err == DMLERR_INVALIDPARAMETER, "wrong dde error %x\n", err);
 831 }
 832
 833     ok(DdeFreeStringHandle(dde_inst, hsz_server), "DdeFreeStringHandle error %x\n", DdeGetLastError(dde_inst));
 834
 835     /* This call hangs on win2k SP4 and XP SP1.
 836     DdeUninitialize(dde_inst);*/
 837
 838     DestroyWindow(hwnd_client);
 839     DestroyWindow(hwnd_server);
 840 }
 841
 842 static void test_DdeCreateStringHandleW(DWORD dde_inst, int codepage)
 843 {
 844     static const WCHAR dde_string[] = {'D','D','E',' ','S','t','r','i','n','g',0};
 845     HSZ str_handle;
 846     WCHAR bufW[256];
 847     char buf[256];
 848     ATOM atom;
 849     int ret;
 850
 851     str_handle = DdeCreateStringHandleW(dde_inst, dde_string, codepage);
 852     ok(str_handle != 0, "DdeCreateStringHandleW failed with error %08x\n",
 853        DdeGetLastError(dde_inst));
 854
 855     ret = DdeQueryStringW(dde_inst, str_handle, NULL, 0, codepage);
 856     if (codepage == CP_WINANSI)
 857         ok(ret == 1, "DdeQueryStringW returned wrong length %d\n", ret);
 858     else
 859         ok(ret == lstrlenW(dde_string), "DdeQueryStringW returned wrong length %d\n", ret);
 860
 861     ret = DdeQueryStringW(dde_inst, str_handle, bufW, 256, codepage);
 862     if (codepage == CP_WINANSI)
 863     {
 864         ok(ret == 1, "DdeQueryStringW returned wrong length %d\n", ret);
 865         ok(!lstrcmpA("D", (LPCSTR)bufW), "DdeQueryStringW returned wrong string\n");
 866     }
 867     else
 868     {
 869         ok(ret == lstrlenW(dde_string), "DdeQueryStringW returned wrong length %d\n", ret);
 870         ok(!lstrcmpW(dde_string, bufW), "DdeQueryStringW returned wrong string\n");
 871     }
 872
 873     ret = DdeQueryStringA(dde_inst, str_handle, buf, 256, CP_WINANSI);
 874     if (codepage == CP_WINANSI)
 875     {
 876         ok(ret == 1, "DdeQueryStringA returned wrong length %d\n", ret);
 877         ok(!lstrcmpA("D", buf), "DdeQueryStringW returned wrong string\n");
 878     }
 879     else
 880     {
 881         ok(ret == lstrlenA("DDE String"), "DdeQueryStringA returned wrong length %d\n", ret);
 882         ok(!lstrcmpA("DDE String", buf), "DdeQueryStringA returned wrong string %s\n", buf);
 883     }
 884
 885     ret = DdeQueryStringA(dde_inst, str_handle, buf, 256, CP_WINUNICODE);
 886     if (codepage == CP_WINANSI)
 887     {
 888         ok(ret == 1, "DdeQueryStringA returned wrong length %d\n", ret);
 889         ok(!lstrcmpA("D", buf), "DdeQueryStringA returned wrong string %s\n", buf);
 890     }
 891     else
 892     {
 893         ok(ret == lstrlenA("DDE String"), "DdeQueryStringA returned wrong length %d\n", ret);
 894         ok(!lstrcmpW(dde_string, (LPCWSTR)buf), "DdeQueryStringW returned wrong string\n");
 895     }
 896
 897     if (codepage == CP_WINANSI)
 898     {
 899         atom = FindAtomA((LPSTR)dde_string);
 900         ok(atom != 0, "Expected a valid atom\n");
 901
 902         SetLastError(0xdeadbeef);
 903         atom = GlobalFindAtomA((LPSTR)dde_string);
 904         ok(atom == 0, "Expected 0, got %d\n", atom);
 905         ok(GetLastError() == ERROR_FILE_NOT_FOUND,
 906            "Expected ERROR_FILE_NOT_FOUND, got %d\n", GetLastError());
 907     }
 908     else
 909     {
 910         atom = FindAtomW(dde_string);
 911         ok(atom != 0, "Expected a valid atom\n");
 912
 913         SetLastError(0xdeadbeef);
 914         atom = GlobalFindAtomW(dde_string);
 915         ok(atom == 0, "Expected 0, got %d\n", atom);
 916         ok(GetLastError() == ERROR_FILE_NOT_FOUND,
 917            "Expected ERROR_FILE_NOT_FOUND, got %d\n", GetLastError());
 918     }
 919
 920     ok(DdeFreeStringHandle(dde_inst, str_handle), "DdeFreeStringHandle failed\n");
 921 }
 922
 923 static void test_DdeCreateStringHandle(void)
 924 {
 925     DWORD dde_inst, ret;
 926
 927     dde_inst = 0xdeadbeef;
 928     SetLastError(0xdeadbeef);
 929     ret = DdeInitializeW(&dde_inst, client_ddeml_callback, APPCMD_CLIENTONLY, 0);
 930     if (GetLastError() == ERROR_CALL_NOT_IMPLEMENTED)
 931     {
 932         trace("Skipping the DDE test on a Win9x platform\n");
 933         return;
 934     }
 935
 936     ok(ret == DMLERR_INVALIDPARAMETER, "DdeInitializeW should fail, but got %04x instead\n", ret);
 937     ok(DdeGetLastError(dde_inst) == DMLERR_INVALIDPARAMETER, "expected DMLERR_INVALIDPARAMETER\n");
 938
 939     dde_inst = 0;
 940     ret = DdeInitializeW(&dde_inst, client_ddeml_callback, APPCMD_CLIENTONLY, 0);
 941     ok(ret == DMLERR_NO_ERROR, "DdeInitializeW failed with error %04x (%08x)\n",
 942        ret, DdeGetLastError(dde_inst));
 943
 944     test_DdeCreateStringHandleW(dde_inst, 0);
 945     test_DdeCreateStringHandleW(dde_inst, CP_WINUNICODE);
 946     test_DdeCreateStringHandleW(dde_inst, CP_WINANSI);
 947
 948     ok(DdeUninitialize(dde_inst), "DdeUninitialize failed\n");
 949 }
 950
 951 static void test_FreeDDElParam(void)
 952 {
 953     HGLOBAL val, hglobal;
 954     BOOL ret;
 955
 956     ret = FreeDDElParam(WM_DDE_INITIATE, (LPARAM)NULL);
 957     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 958
 959     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
 960     ret = FreeDDElParam(WM_DDE_INITIATE, (LPARAM)hglobal);
 961     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 962     val = GlobalFree(hglobal);
 963     ok(val == NULL, "Expected NULL, got %p\n", val);
 964
 965     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
 966     ret = FreeDDElParam(WM_DDE_ADVISE, (LPARAM)hglobal);
 967     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 968     val = GlobalFree(hglobal);
 969     ok(val == hglobal, "Expected hglobal, got %p\n", val);
 970     ok(GetLastError() == ERROR_INVALID_HANDLE,
 971        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
 972
 973     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
 974     ret = FreeDDElParam(WM_DDE_UNADVISE, (LPARAM)hglobal);
 975     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 976     val = GlobalFree(hglobal);
 977     ok(val == NULL, "Expected NULL, got %p\n", val);
 978
 979     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
 980     ret = FreeDDElParam(WM_DDE_ACK, (LPARAM)hglobal);
 981     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 982     val = GlobalFree(hglobal);
 983     ok(val == hglobal, "Expected hglobal, got %p\n", val);
 984     ok(GetLastError() == ERROR_INVALID_HANDLE,
 985        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
 986
 987     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
 988     ret = FreeDDElParam(WM_DDE_DATA, (LPARAM)hglobal);
 989     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 990     val = GlobalFree(hglobal);
 991     ok(val == hglobal, "Expected hglobal, got %p\n", val);
 992     ok(GetLastError() == ERROR_INVALID_HANDLE,
 993        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
 994
 995     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
 996     ret = FreeDDElParam(WM_DDE_REQUEST, (LPARAM)hglobal);
 997     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 998     val = GlobalFree(hglobal);
 999     ok(val == NULL, "Expected NULL, got %p\n", val);
1000
1001     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
1002     ret = FreeDDElParam(WM_DDE_POKE, (LPARAM)hglobal);
1003     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1004     val = GlobalFree(hglobal);
1005     ok(val == hglobal, "Expected hglobal, got %p\n", val);
1006     ok(GetLastError() == ERROR_INVALID_HANDLE,
1007        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1008
1009     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
1010     ret = FreeDDElParam(WM_DDE_EXECUTE, (LPARAM)hglobal);
1011     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1012     val = GlobalFree(hglobal);
1013     ok(val == NULL, "Expected NULL, got %p\n", val);
1014 }
1015
1016 static void test_PackDDElParam(void)
1017 {
1018     UINT_PTR lo, hi, *ptr;
1019     HGLOBAL hglobal;
1020     LPARAM lparam;
1021     BOOL ret;
1022
1023     lparam = PackDDElParam(WM_DDE_INITIATE, 0xcafe, 0xbeef);
1024     ok(lparam == 0xbeefcafe, "Expected 0xbeefcafe, got %08lx\n", lparam);
1025     ok(GlobalLock((HGLOBAL)lparam) == NULL,
1026        "Expected NULL, got %p\n", GlobalLock((HGLOBAL)lparam));
1027     ok(GetLastError() == ERROR_INVALID_HANDLE,
1028        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1029
1030     lo = hi = 0;
1031     ret = UnpackDDElParam(WM_DDE_INITIATE, lparam, &lo, &hi);
1032     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1033     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1034     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1035
1036     ret = FreeDDElParam(WM_DDE_INITIATE, lparam);
1037     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1038
1039     lparam = PackDDElParam(WM_DDE_TERMINATE, 0xcafe, 0xbeef);
1040     ok(lparam == 0xbeefcafe, "Expected 0xbeefcafe, got %08lx\n", lparam);
1041     ok(GlobalLock((HGLOBAL)lparam) == NULL,
1042        "Expected NULL, got %p\n", GlobalLock((HGLOBAL)lparam));
1043     ok(GetLastError() == ERROR_INVALID_HANDLE,
1044        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1045
1046     lo = hi = 0;
1047     ret = UnpackDDElParam(WM_DDE_TERMINATE, lparam, &lo, &hi);
1048     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1049     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1050     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1051
1052     ret = FreeDDElParam(WM_DDE_TERMINATE, lparam);
1053     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1054
1055     lparam = PackDDElParam(WM_DDE_ADVISE, 0xcafe, 0xbeef);
1056     ptr = GlobalLock((HGLOBAL)lparam);
1057     ok(ptr != NULL, "Expected non-NULL ptr\n");
1058     ok(ptr[0] == 0xcafe, "Expected 0xcafe, got %08lx\n", ptr[0]);
1059     ok(ptr[1] == 0xbeef, "Expected 0xbeef, got %08lx\n", ptr[1]);
1060
1061     ret = GlobalUnlock((HGLOBAL)lparam);
1062     ok(ret == 1, "Expected 1, got %d\n", ret);
1063
1064     lo = hi = 0;
1065     ret = UnpackDDElParam(WM_DDE_ADVISE, lparam, &lo, &hi);
1066     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1067     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1068     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1069
1070     ret = FreeDDElParam(WM_DDE_ADVISE, lparam);
1071     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1072
1073     hglobal = GlobalFree((HGLOBAL)lparam);
1074     ok(hglobal == (HGLOBAL)lparam, "Expected lparam, got %d\n", ret);
1075     ok(GetLastError() == ERROR_INVALID_HANDLE,
1076        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1077
1078     lparam = PackDDElParam(WM_DDE_UNADVISE, 0xcafe, 0xbeef);
1079     ok(lparam == 0xbeefcafe, "Expected 0xbeefcafe, got %08lx\n", lparam);
1080     ok(GlobalLock((HGLOBAL)lparam) == NULL,
1081        "Expected NULL, got %p\n", GlobalLock((HGLOBAL)lparam));
1082     ok(GetLastError() == ERROR_INVALID_HANDLE,
1083        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1084
1085     lo = hi = 0;
1086     ret = UnpackDDElParam(WM_DDE_UNADVISE, lparam, &lo, &hi);
1087     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1088     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1089     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1090
1091     ret = FreeDDElParam(WM_DDE_UNADVISE, lparam);
1092     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1093
1094     lparam = PackDDElParam(WM_DDE_ACK, 0xcafe, 0xbeef);
1095     ptr = GlobalLock((HGLOBAL)lparam);
1096     ok(ptr != NULL, "Expected non-NULL ptr\n");
1097     ok(ptr[0] == 0xcafe, "Expected 0xcafe, got %08lx\n", ptr[0]);
1098     ok(ptr[1] == 0xbeef, "Expected 0xbeef, got %08lx\n", ptr[1]);
1099
1100     ret = GlobalUnlock((HGLOBAL)lparam);
1101     ok(ret == 1, "Expected 1, got %d\n", ret);
1102
1103     lo = hi = 0;
1104     ret = UnpackDDElParam(WM_DDE_ACK, lparam, &lo, &hi);
1105     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1106     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1107     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1108
1109     ret = FreeDDElParam(WM_DDE_ACK, lparam);
1110     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1111
1112     hglobal = GlobalFree((HGLOBAL)lparam);
1113     ok(hglobal == (HGLOBAL)lparam, "Expected lparam, got %d\n", ret);
1114     ok(GetLastError() == ERROR_INVALID_HANDLE,
1115        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1116
1117     lparam = PackDDElParam(WM_DDE_DATA, 0xcafe, 0xbeef);
1118     ptr = GlobalLock((HGLOBAL)lparam);
1119     ok(ptr != NULL, "Expected non-NULL ptr\n");
1120     ok(ptr[0] == 0xcafe, "Expected 0xcafe, got %08lx\n", ptr[0]);
1121     ok(ptr[1] == 0xbeef, "Expected 0xbeef, got %08lx\n", ptr[1]);
1122
1123     ret = GlobalUnlock((HGLOBAL)lparam);
1124     ok(ret == 1, "Expected 1, got %d\n", ret);
1125
1126     lo = hi = 0;
1127     ret = UnpackDDElParam(WM_DDE_DATA, lparam, &lo, &hi);
1128     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1129     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1130     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1131
1132     ret = FreeDDElParam(WM_DDE_DATA, lparam);
1133     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1134
1135     hglobal = GlobalFree((HGLOBAL)lparam);
1136     ok(hglobal == (HGLOBAL)lparam, "Expected lparam, got %d\n", ret);
1137     ok(GetLastError() == ERROR_INVALID_HANDLE,
1138        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1139
1140     lparam = PackDDElParam(WM_DDE_REQUEST, 0xcafe, 0xbeef);
1141     ok(lparam == 0xbeefcafe, "Expected 0xbeefcafe, got %08lx\n", lparam);
1142     ok(GlobalLock((HGLOBAL)lparam) == NULL,
1143        "Expected NULL, got %p\n", GlobalLock((HGLOBAL)lparam));
1144     ok(GetLastError() == ERROR_INVALID_HANDLE,
1145        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1146
1147     lo = hi = 0;
1148     ret = UnpackDDElParam(WM_DDE_REQUEST, lparam, &lo, &hi);
1149     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1150     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1151     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1152
1153     ret = FreeDDElParam(WM_DDE_REQUEST, lparam);
1154     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1155
1156     lparam = PackDDElParam(WM_DDE_POKE, 0xcafe, 0xbeef);
1157     ptr = GlobalLock((HGLOBAL)lparam);
1158     ok(ptr != NULL, "Expected non-NULL ptr\n");
1159     ok(ptr[0] == 0xcafe, "Expected 0xcafe, got %08lx\n", ptr[0]);
1160     ok(ptr[1] == 0xbeef, "Expected 0xbeef, got %08lx\n", ptr[1]);
1161
1162     ret = GlobalUnlock((HGLOBAL)lparam);
1163     ok(ret == 1, "Expected 1, got %d\n", ret);
1164
1165     lo = hi = 0;
1166     ret = UnpackDDElParam(WM_DDE_POKE, lparam, &lo, &hi);
1167     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1168     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1169     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1170
1171     ret = FreeDDElParam(WM_DDE_POKE, lparam);
1172     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1173
1174     hglobal = GlobalFree((HGLOBAL)lparam);
1175     ok(hglobal == (HGLOBAL)lparam, "Expected lparam, got %d\n", ret);
1176     ok(GetLastError() == ERROR_INVALID_HANDLE,
1177        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1178
1179     lparam = PackDDElParam(WM_DDE_EXECUTE, 0xcafe, 0xbeef);
1180     ok(lparam == 0xbeef, "Expected 0xbeef, got %08lx\n", lparam);
1181     ok(GlobalLock((HGLOBAL)lparam) == NULL,
1182        "Expected NULL, got %p\n", GlobalLock((HGLOBAL)lparam));
1183     ok(GetLastError() == ERROR_INVALID_HANDLE,
1184        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1185
1186     lo = hi = 0;
1187     ret = UnpackDDElParam(WM_DDE_EXECUTE, lparam, &lo, &hi);
1188     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1189     ok(lo == 0, "Expected 0, got %08lx\n", lo);
1190     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1191
1192     ret = FreeDDElParam(WM_DDE_EXECUTE, lparam);
1193     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1194 }
1195
1196 static void test_UnpackDDElParam(void)
1197 {
1198     UINT_PTR lo, hi, *ptr;
1199     HGLOBAL hglobal;
1200     BOOL ret;
1201
1202     /* NULL lParam */
1203     lo = 0xdead;
1204     hi = 0xbeef;
1205     ret = UnpackDDElParam(WM_DDE_INITIATE, (LPARAM)NULL, &lo, &hi);
1206     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1207     ok(lo == 0, "Expected 0, got %08lx\n", lo);
1208     ok(hi == 0, "Expected 0, got %08lx\n", hi);
1209
1210     /* NULL lo */
1211     lo = 0xdead;
1212     hi = 0xbeef;
1213     ret = UnpackDDElParam(WM_DDE_INITIATE, 0xcafebabe, NULL, &hi);
1214     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1215     ok(lo == 0xdead, "Expected 0xdead, got %08lx\n", lo);
1216     ok(hi == 0xcafe, "Expected 0xcafe, got %08lx\n", hi);
1217
1218     /* NULL hi */
1219     lo = 0xdead;
1220     hi = 0xbeef;
1221     ret = UnpackDDElParam(WM_DDE_INITIATE, 0xcafebabe, &lo, NULL);
1222     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1223     ok(lo == 0xbabe, "Expected 0xbabe, got %08lx\n", lo);
1224     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1225
1226     lo = 0xdead;
1227     hi = 0xbeef;
1228     ret = UnpackDDElParam(WM_DDE_INITIATE, 0xcafebabe, &lo, &hi);
1229     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1230     ok(lo == 0xbabe, "Expected 0xbabe, got %08lx\n", lo);
1231     ok(hi == 0xcafe, "Expected 0xcafe, got %08lx\n", hi);
1232
1233     lo = 0xdead;
1234     hi = 0xbeef;
1235     ret = UnpackDDElParam(WM_DDE_TERMINATE, 0xcafebabe, &lo, &hi);
1236     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1237     ok(lo == 0xbabe, "Expected 0xbabe, got %08lx\n", lo);
1238     ok(hi == 0xcafe, "Expected 0xcafe, got %08lx\n", hi);
1239
1240     lo = 0xdead;
1241     hi = 0xbeef;
1242     ret = UnpackDDElParam(WM_DDE_ADVISE, (LPARAM)NULL, &lo, &hi);
1243     ok(ret == FALSE, "Expected FALSE, got %d\n", ret);
1244     ok(lo == 0, "Expected 0, got %08lx\n", lo);
1245     ok(hi == 0, "Expected 0, got %08lx\n", hi);
1246
1247     lo = 0xdead;
1248     hi = 0xbeef;
1249     ret = UnpackDDElParam(WM_DDE_ADVISE, 0xcafebabe, &lo, &hi);
1250     ok(ret == FALSE, "Expected FALSE, got %d\n", ret);
1251     ok(lo == 0, "Expected 0, got %08lx\n", lo);
1252     ok(hi == 0, "Expected 0, got %08lx\n", hi);
1253
1254     hglobal = GlobalAlloc(GMEM_DDESHARE, 2);
1255     ptr = GlobalLock(hglobal);
1256     ptr[0] = 0xcafebabe;
1257     ptr[1] = 0xdeadbeef;
1258     GlobalUnlock(hglobal);
1259
1260     lo = 0xdead;
1261     hi = 0xbeef;
1262     ret = UnpackDDElParam(WM_DDE_ADVISE, (LPARAM)hglobal, &lo, &hi);
1263     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1264     ok(lo == 0xcafebabe, "Expected 0xcafebabe, got %08lx\n", lo);
1265     ok(hi == 0xdeadbeef, "Expected 0xdeadbeef, got %08lx\n", hi);
1266
1267     lo = 0xdead;
1268     hi = 0xbeef;
1269     ret = UnpackDDElParam(WM_DDE_UNADVISE, 0xcafebabe, &lo, &hi);
1270     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1271     ok(lo == 0xbabe, "Expected 0xbabe, got %08lx\n", lo);
1272     ok(hi == 0xcafe, "Expected 0xcafe, got %08lx\n", hi);
1273
1274     lo = 0xdead;
1275     hi = 0xbeef;
1276     ret = UnpackDDElParam(WM_DDE_ACK, 0xcafebabe, &lo, &hi);
1277     ok(ret == FALSE, "Expected FALSE, got %d\n", ret);
1278     ok(lo == 0, "Expected 0, got %08lx\n", lo);
1279     ok(hi == 0, "Expected 0, got %08lx\n", hi);
1280
1281     lo = 0xdead;
1282     hi = 0xbeef;
1283     ret = UnpackDDElParam(WM_DDE_ACK, (LPARAM)hglobal, &lo, &hi);
1284     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1285     ok(lo == 0xcafebabe, "Expected 0xcafebabe, got %08lx\n", lo);
1286     ok(hi == 0xdeadbeef, "Expected 0xdeadbeef, got %08lx\n", hi);
1287
1288     lo = 0xdead;
1289     hi = 0xbeef;
1290     ret = UnpackDDElParam(WM_DDE_DATA, 0xcafebabe, &lo, &hi);
1291     ok(ret == FALSE, "Expected FALSE, got %d\n", ret);
1292     ok(lo == 0, "Expected 0, got %08lx\n", lo);
1293     ok(hi == 0, "Expected 0, got %08lx\n", hi);
1294
1295     lo = 0xdead;
1296     hi = 0xbeef;
1297     ret = UnpackDDElParam(WM_DDE_DATA, (LPARAM)hglobal, &lo, &hi);
1298     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1299     ok(lo == 0xcafebabe, "Expected 0xcafebabe, got %08lx\n", lo);
1300     ok(hi == 0xdeadbeef, "Expected 0xdeadbeef, got %08lx\n", hi);
1301
1302     lo = 0xdead;
1303     hi = 0xbeef;
1304     ret = UnpackDDElParam(WM_DDE_REQUEST, 0xcafebabe, &lo, &hi);
1305     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1306     ok(lo == 0xbabe, "Expected 0xbabe, got %08lx\n", lo);
1307     ok(hi == 0xcafe, "Expected 0xcafe, got %08lx\n", hi);
1308
1309     lo = 0xdead;
1310     hi = 0xbeef;
1311     ret = UnpackDDElParam(WM_DDE_POKE, 0xcafebabe, &lo, &hi);
1312     ok(ret == FALSE, "Expected FALSE, got %d\n", ret);
1313     ok(lo == 0, "Expected 0, got %08lx\n", lo);
1314     ok(hi == 0, "Expected 0, got %08lx\n", hi);
1315
1316     lo = 0xdead;
1317     hi = 0xbeef;
1318     ret = UnpackDDElParam(WM_DDE_POKE, (LPARAM)hglobal, &lo, &hi);
1319     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1320     ok(lo == 0xcafebabe, "Expected 0xcafebabe, got %08lx\n", lo);
1321     ok(hi == 0xdeadbeef, "Expected 0xdeadbeef, got %08lx\n", hi);
1322
1323     lo = 0xdead;
1324     hi = 0xbeef;
1325     ret = UnpackDDElParam(WM_DDE_EXECUTE, 0xcafebabe, &lo, &hi);
1326     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1327     ok(lo == 0, "Expected 0, got %08lx\n", lo);
1328     ok(hi == 0xcafebabe, "Expected 0xcafebabe, got %08lx\n", hi);
1329 }
1330
1331 START_TEST(dde)
1332 {
1333     int argc;
1334     char **argv;
1335     char buffer[MAX_PATH];
1336     STARTUPINFO startup;
1337     PROCESS_INFORMATION proc;
1338
1339     argc = winetest_get_mainargs(&argv);
1340     if (argc == 3)
1341     {
1342         if (!lstrcmpA(argv[2], "ddeml"))
1343             test_ddeml_client();
1344
1345         return;
1346     }
1347
1348     ZeroMemory(&startup, sizeof(STARTUPINFO));
1349     sprintf(buffer, "%s dde ddeml", argv[0]);
1350     startup.cb = sizeof(startup);
1351     startup.dwFlags = STARTF_USESHOWWINDOW;
1352     startup.wShowWindow = SW_SHOWNORMAL;
1353
1354     CreateProcessA(NULL, buffer, NULL, NULL, FALSE,
1355                    0, NULL, NULL, &startup, &proc);
1356
1357     test_msg_server(proc.hProcess);
1358
1359     test_dde_aw_transaction();
1360
1361     test_DdeCreateStringHandle();
1362     test_FreeDDElParam();
1363     test_PackDDElParam();
1364     test_UnpackDDElParam();
1365 }