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 const DWORD default_timeout = 200;
  43
  44 static void flush_events(void)
  45 {
  46     MSG msg;
  47     int diff = default_timeout;
  48     DWORD time = GetTickCount() + diff;
  49
  50     while (diff > 0)
  51     {
  52         if (MsgWaitForMultipleObjects( 0, NULL, FALSE, min(10,diff), QS_ALLINPUT ) == WAIT_TIMEOUT) break;
  53         while (PeekMessage( &msg, 0, 0, 0, PM_REMOVE )) DispatchMessage( &msg );
  54         diff = time - GetTickCount();
  55     }
  56 }
  57
  58 static void create_dde_window(HWND *hwnd, LPCSTR name, WNDPROC wndproc)
  59 {
  60     WNDCLASSA wcA;
  61
  62     memset(&wcA, 0, sizeof(wcA));
  63     wcA.lpfnWndProc = wndproc;
  64     wcA.lpszClassName = name;
  65     wcA.hInstance = GetModuleHandleA(0);
  66     assert(RegisterClassA(&wcA));
  67
  68     *hwnd = CreateWindowExA(0, name, NULL, WS_POPUP,
  69                             500, 500, CW_USEDEFAULT, CW_USEDEFAULT,
  70                             GetDesktopWindow(), 0, GetModuleHandleA(0), NULL);
  71     assert(*hwnd);
  72 }
  73
  74 static LRESULT WINAPI dde_server_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
  75 {
  76     UINT_PTR lo, hi;
  77     char str[MAX_PATH], *ptr;
  78     HGLOBAL hglobal;
  79     DDEDATA *data;
  80     DDEPOKE *poke;
  81     DWORD size;
  82
  83     static int msg_index = 0;
  84     static HWND client = 0;
  85     static BOOL executed = FALSE;
  86
  87     if (msg < WM_DDE_FIRST || msg > WM_DDE_LAST)
  88         return DefWindowProcA(hwnd, msg, wparam, lparam);
  89
  90     msg_index++;
  91
  92     switch (msg)
  93     {
  94     case WM_DDE_INITIATE:
  95     {
  96         client = (HWND)wparam;
  97         ok(msg_index == 1, "Expected 1, got %d\n", msg_index);
  98
  99         GlobalGetAtomNameA(LOWORD(lparam), str, MAX_PATH);
 100         ok(!lstrcmpA(str, "TestDDEService"), "Expected TestDDEService, got %s\n", str);
 101
 102         GlobalGetAtomNameA(HIWORD(lparam), str, MAX_PATH);
 103         ok(!lstrcmpA(str, "TestDDETopic"), "Expected TestDDETopic, got %s\n", str);
 104
 105         SendMessageA(client, WM_DDE_ACK, (WPARAM)hwnd, lparam);
 106
 107         break;
 108     }
 109
 110     case WM_DDE_REQUEST:
 111     {
 112         ok((msg_index >= 2 && msg_index <= 4) ||
 113            (msg_index >= 7 && msg_index <= 8),
 114            "Expected 2, 3, 4, 7 or 8, got %d\n", msg_index);
 115         ok(wparam == (WPARAM)client, "Expected client hwnd, got %08lx\n", wparam);
 116         ok(LOWORD(lparam) == CF_TEXT, "Expected CF_TEXT, got %d\n", LOWORD(lparam));
 117
 118         GlobalGetAtomNameA(HIWORD(lparam), str, MAX_PATH);
 119         if (msg_index < 8)
 120             ok(!lstrcmpA(str, "request"), "Expected request, got %s\n", str);
 121         else
 122             ok(!lstrcmpA(str, "executed"), "Expected executed, got %s\n", str);
 123
 124         if (msg_index == 8)
 125         {
 126             if (executed)
 127                 lstrcpyA(str, "command executed\r\n");
 128             else
 129                 lstrcpyA(str, "command not executed\r\n");
 130         }
 131         else
 132             lstrcpyA(str, "requested data\r\n");
 133
 134         size = sizeof(DDEDATA) + lstrlenA(str) + 1;
 135         hglobal = GlobalAlloc(GMEM_MOVEABLE, size);
 136         ok(hglobal != NULL, "Expected non-NULL hglobal\n");
 137
 138         data = GlobalLock(hglobal);
 139         ZeroMemory(data, size);
 140
 141         /* setting fResponse to FALSE at this point destroys
 142          * the internal messaging state of native dde
 143          */
 144         data->fResponse = TRUE;
 145
 146         if (msg_index == 2)
 147             data->fRelease = TRUE;
 148         else if (msg_index == 3)
 149             data->fAckReq = TRUE;
 150
 151         data->cfFormat = CF_TEXT;
 152         lstrcpyA((LPSTR)data->Value, str);
 153         GlobalUnlock(hglobal);
 154
 155         lparam = PackDDElParam(WM_DDE_ACK, (UINT)hglobal, HIWORD(lparam));
 156         PostMessageA(client, WM_DDE_DATA, (WPARAM)hwnd, lparam);
 157
 158         break;
 159     }
 160
 161     case WM_DDE_POKE:
 162     {
 163         ok(msg_index == 5 || msg_index == 6, "Expected 5 or 6, got %d\n", msg_index);
 164         ok(wparam == (WPARAM)client, "Expected client hwnd, got %08lx\n", wparam);
 165
 166         UnpackDDElParam(WM_DDE_POKE, lparam, &lo, &hi);
 167
 168         GlobalGetAtomNameA(hi, str, MAX_PATH);
 169         ok(!lstrcmpA(str, "poker"), "Expected poker, got %s\n", str);
 170
 171         poke = GlobalLock((HGLOBAL)lo);
 172         ok(poke != NULL, "Expected non-NULL poke\n");
 173         ok(poke->fReserved == 0, "Expected 0, got %d\n", poke->fReserved);
 174         ok(poke->unused == 0, "Expected 0, got %d\n", poke->unused);
 175         ok(poke->fRelease == TRUE, "Expected TRUE, got %d\n", poke->fRelease);
 176         ok(poke->cfFormat == CF_TEXT, "Expected CF_TEXT, got %d\n", poke->cfFormat);
 177
 178         if (msg_index == 5)
 179             ok(lstrcmpA((LPSTR)poke->Value, "poke data\r\n"),
 180                "Expected 'poke data\\r\\n', got %s\n", poke->Value);
 181         else
 182             ok(!lstrcmpA((LPSTR)poke->Value, "poke data\r\n"),
 183                "Expected 'poke data\\r\\n', got %s\n", poke->Value);
 184
 185         GlobalUnlock((HGLOBAL)lo);
 186
 187         lparam = PackDDElParam(WM_DDE_ACK, DDE_FACK, hi);
 188         PostMessageA(client, WM_DDE_ACK, (WPARAM)hwnd, lparam);
 189
 190         break;
 191     }
 192
 193     case WM_DDE_EXECUTE:
 194     {
 195         ok(msg_index == 7, "Expected 7, got %d\n", msg_index);
 196         ok(wparam == (WPARAM)client, "Expected client hwnd, got %08lx\n", wparam);
 197
 198         ptr = GlobalLock((HGLOBAL)lparam);
 199         ok(!lstrcmpA(ptr, "[Command(Var)]"), "Expected [Command(Var)], got %s\n", ptr);
 200         GlobalUnlock((HGLOBAL)lparam);
 201
 202         executed = TRUE;
 203
 204         lparam = ReuseDDElParam(lparam, WM_DDE_EXECUTE, WM_DDE_ACK, DDE_FACK, HIWORD(lparam));
 205         PostMessageA(client, WM_DDE_ACK, (WPARAM)hwnd, lparam);
 206
 207         break;
 208     }
 209
 210     case WM_DDE_TERMINATE:
 211     {
 212         ok(msg_index == 9, "Expected 9, got %d\n", msg_index);
 213         ok(wparam == (WPARAM)client, "Expected client hwnd, got %08lx\n", wparam);
 214         ok(lparam == 0, "Expected 0, got %08lx\n", lparam);
 215
 216         PostMessageA(client, WM_DDE_TERMINATE, (WPARAM)hwnd, 0);
 217
 218         break;
 219     }
 220
 221     default:
 222         ok(FALSE, "Unhandled msg: %08x\n", msg);
 223     }
 224
 225     return DefWindowProcA(hwnd, msg, wparam, lparam);
 226 }
 227
 228 static void test_msg_server(HANDLE hproc)
 229 {
 230     MSG msg;
 231     HWND hwnd;
 232     DWORD res;
 233
 234     create_dde_window(&hwnd, "dde_server", dde_server_wndproc);
 235
 236     while (MsgWaitForMultipleObjects( 1, &hproc, FALSE, INFINITE, QS_ALLINPUT ) != 0)
 237     {
 238         while (PeekMessage(&msg, 0, 0, 0, PM_REMOVE)) DispatchMessageA(&msg);
 239     }
 240
 241     DestroyWindow(hwnd);
 242     GetExitCodeProcess( hproc, &res );
 243     ok( !res, "client failed with %u error(s)\n", res );
 244 }
 245
 246 static HDDEDATA CALLBACK client_ddeml_callback(UINT uType, UINT uFmt, HCONV hconv,
 247                                                HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
 248                                                ULONG_PTR dwData1, ULONG_PTR dwData2)
 249 {
 250     ok(FALSE, "Unhandled msg: %08x\n", uType);
 251     return 0;
 252 }
 253
 254 static void test_ddeml_client(void)
 255 {
 256     UINT ret;
 257     LPSTR str;
 258     DWORD size, res;
 259     HDDEDATA hdata, op;
 260     HSZ server, topic, item;
 261     DWORD client_pid;
 262     HCONV conversation;
 263
 264     client_pid = 0;
 265     ret = DdeInitializeA(&client_pid, client_ddeml_callback, APPCMD_CLIENTONLY, 0);
 266     ok(ret == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", ret);
 267
 268     /* FIXME: make these atoms global and check them in the server */
 269
 270     server = DdeCreateStringHandleA(client_pid, "TestDDEService", CP_WINANSI);
 271     topic = DdeCreateStringHandleA(client_pid, "TestDDETopic", CP_WINANSI);
 272
 273     DdeGetLastError(client_pid);
 274     conversation = DdeConnect(client_pid, server, topic, NULL);
 275     ok(conversation != NULL, "Expected non-NULL conversation\n");
 276     ret = DdeGetLastError(client_pid);
 277     ok(ret == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", ret);
 278
 279     DdeFreeStringHandle(client_pid, server);
 280
 281     item = DdeCreateStringHandleA(client_pid, "request", CP_WINANSI);
 282
 283     /* XTYP_REQUEST, fRelease = TRUE */
 284     res = 0xdeadbeef;
 285     DdeGetLastError(client_pid);
 286     hdata = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_REQUEST, default_timeout, &res);
 287     ret = DdeGetLastError(client_pid);
 288     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %08x\n", res);
 289     todo_wine
 290     {
 291         ok(hdata == NULL, "Expected NULL hdata, got %p\n", hdata);
 292         ok(ret == DMLERR_DATAACKTIMEOUT, "Expected DMLERR_DATAACKTIMEOUT, got %d\n", ret);
 293     }
 294
 295     /* XTYP_REQUEST, fAckReq = TRUE */
 296     res = 0xdeadbeef;
 297     DdeGetLastError(client_pid);
 298     hdata = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_REQUEST, default_timeout, &res);
 299     ret = DdeGetLastError(client_pid);
 300     ok(hdata != NULL, "Expected non-NULL hdata\n");
 301     todo_wine
 302     {
 303         ok(res == DDE_FNOTPROCESSED, "Expected DDE_FNOTPROCESSED, got %d\n", res);
 304         ok(ret == DMLERR_MEMORY_ERROR, "Expected DMLERR_MEMORY_ERROR, got %d\n", ret);
 305     }
 306
 307     str = (LPSTR)DdeAccessData(hdata, &size);
 308     ok(!lstrcmpA(str, "requested data\r\n"), "Expected 'requested data\\r\\n', got %s\n", str);
 309     ok(size == 19, "Expected 19, got %d\n", size);
 310
 311     ret = DdeUnaccessData(hdata);
 312     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 313
 314     /* XTYP_REQUEST, all params normal */
 315     res = 0xdeadbeef;
 316     DdeGetLastError(client_pid);
 317     hdata = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_REQUEST, default_timeout, &res);
 318     ret = DdeGetLastError(client_pid);
 319     ok(hdata != NULL, "Expected non-NULL hdata\n");
 320     ok(ret == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", ret);
 321     todo_wine
 322     {
 323         ok(res == DDE_FNOTPROCESSED, "Expected DDE_FNOTPROCESSED, got %d\n", res);
 324     }
 325
 326     str = (LPSTR)DdeAccessData(hdata, &size);
 327     ok(!lstrcmpA(str, "requested data\r\n"), "Expected 'requested data\\r\\n', got %s\n", str);
 328     ok(size == 19, "Expected 19, got %d\n", size);
 329
 330     ret = DdeUnaccessData(hdata);
 331     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 332
 333     /* XTYP_REQUEST, no item */
 334     res = 0xdeadbeef;
 335     DdeGetLastError(client_pid);
 336     hdata = DdeClientTransaction(NULL, 0, conversation, 0, CF_TEXT, XTYP_REQUEST, default_timeout, &res);
 337     ret = DdeGetLastError(client_pid);
 338     ok(hdata == NULL, "Expected NULL hdata, got %p\n", hdata);
 339     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %08x\n", res);
 340     ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 341
 342     DdeFreeStringHandle(client_pid, item);
 343
 344     item = DdeCreateStringHandleA(client_pid, "poker", CP_WINANSI);
 345
 346     lstrcpyA(str, "poke data\r\n");
 347     hdata = DdeCreateDataHandle(client_pid, (LPBYTE)str, lstrlenA(str) + 1,
 348                                 0, item, CF_TEXT, 0);
 349     ok(hdata != NULL, "Expected non-NULL hdata\n");
 350
 351     /* XTYP_POKE, no item */
 352     res = 0xdeadbeef;
 353     DdeGetLastError(client_pid);
 354     op = DdeClientTransaction((LPBYTE)hdata, -1, conversation, 0, CF_TEXT, XTYP_POKE, default_timeout, &res);
 355     ret = DdeGetLastError(client_pid);
 356     ok(op == NULL, "Expected NULL, got %p\n", op);
 357     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 358     ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 359
 360     /* XTYP_POKE, no data */
 361     res = 0xdeadbeef;
 362     DdeGetLastError(client_pid);
 363     op = DdeClientTransaction(NULL, 0, conversation, 0, CF_TEXT, XTYP_POKE, default_timeout, &res);
 364     ret = DdeGetLastError(client_pid);
 365     ok(op == NULL, "Expected NULL, got %p\n", op);
 366     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 367     ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 368
 369     /* XTYP_POKE, wrong size */
 370     res = 0xdeadbeef;
 371     DdeGetLastError(client_pid);
 372     op = DdeClientTransaction((LPBYTE)hdata, 0, conversation, item, CF_TEXT, XTYP_POKE, default_timeout, &res);
 373     ret = DdeGetLastError(client_pid);
 374     ok(op == (HDDEDATA)TRUE, "Expected TRUE, got %p\n", op);
 375     ok(res == DDE_FACK, "Expected DDE_FACK, got %d\n", res);
 376     ok(ret == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", ret);
 377
 378     /* XTYP_POKE, correct params */
 379     res = 0xdeadbeef;
 380     DdeGetLastError(client_pid);
 381     op = DdeClientTransaction((LPBYTE)hdata, -1, conversation, item, CF_TEXT, XTYP_POKE, default_timeout, &res);
 382     ret = DdeGetLastError(client_pid);
 383     ok(op == (HDDEDATA)TRUE, "Expected TRUE, got %p\n", op);
 384     ok(res == DDE_FACK, "Expected DDE_FACK, got %d\n", res);
 385     ok(ret == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", ret);
 386
 387     DdeFreeDataHandle(hdata);
 388
 389     lstrcpyA(str, "[Command(Var)]");
 390     hdata = DdeCreateDataHandle(client_pid, (LPBYTE)str, lstrlenA(str) + 1,
 391                                 0, NULL, CF_TEXT, 0);
 392     ok(hdata != NULL, "Expected non-NULL hdata\n");
 393
 394     /* XTYP_EXECUTE, correct params */
 395     res = 0xdeadbeef;
 396     DdeGetLastError(client_pid);
 397     op = DdeClientTransaction((LPBYTE)hdata, -1, conversation, NULL, 0, XTYP_EXECUTE, default_timeout, &res);
 398     ret = DdeGetLastError(client_pid);
 399     ok(ret == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", ret);
 400     todo_wine
 401     {
 402         ok(op == (HDDEDATA)TRUE, "Expected TRUE, got %p\n", op);
 403         ok(res == DDE_FACK, "Expected DDE_FACK, got %d\n", res);
 404     }
 405
 406     /* XTYP_EXECUTE, no data */
 407     res = 0xdeadbeef;
 408     DdeGetLastError(client_pid);
 409     op = DdeClientTransaction(NULL, 0, conversation, NULL, 0, XTYP_EXECUTE, default_timeout, &res);
 410     ret = DdeGetLastError(client_pid);
 411     ok(op == NULL, "Expected NULL, got %p\n", op);
 412     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 413     todo_wine
 414     {
 415         ok(ret == DMLERR_MEMORY_ERROR, "Expected DMLERR_MEMORY_ERROR, got %d\n", ret);
 416     }
 417
 418     /* XTYP_EXECUTE, no data, -1 size */
 419     res = 0xdeadbeef;
 420     DdeGetLastError(client_pid);
 421     op = DdeClientTransaction(NULL, -1, conversation, NULL, 0, XTYP_EXECUTE, default_timeout, &res);
 422     ret = DdeGetLastError(client_pid);
 423     ok(op == NULL, "Expected NULL, got %p\n", op);
 424     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 425     todo_wine
 426     {
 427         ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 428     }
 429
 430     DdeFreeStringHandle(client_pid, topic);
 431     DdeFreeDataHandle(hdata);
 432
 433     item = DdeCreateStringHandleA(client_pid, "executed", CP_WINANSI);
 434
 435     /* verify the execute */
 436     res = 0xdeadbeef;
 437     DdeGetLastError(client_pid);
 438     hdata = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_REQUEST, default_timeout, &res);
 439     ret = DdeGetLastError(client_pid);
 440     ok(hdata != NULL, "Expected non-NULL hdata\n");
 441     ok(ret == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", ret);
 442     todo_wine
 443     {
 444         ok(res == DDE_FNOTPROCESSED, "Expected DDE_FNOTPROCESSED, got %d\n", res);
 445     }
 446
 447     str = (LPSTR)DdeAccessData(hdata, &size);
 448     ok(!lstrcmpA(str, "command executed\r\n"), "Expected 'command executed\\r\\n', got %s\n", str);
 449     ok(size == 21, "Expected 21, got %d\n", size);
 450
 451     ret = DdeUnaccessData(hdata);
 452     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 453
 454     /* invalid transactions */
 455
 456     res = 0xdeadbeef;
 457     DdeGetLastError(client_pid);
 458     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_ADVREQ, default_timeout, &res);
 459     ret = DdeGetLastError(client_pid);
 460     ok(op == NULL, "Expected NULL, got %p\n", op);
 461     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 462     ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 463
 464     res = 0xdeadbeef;
 465     DdeGetLastError(client_pid);
 466     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_CONNECT, default_timeout, &res);
 467     ret = DdeGetLastError(client_pid);
 468     ok(op == NULL, "Expected NULL, got %p\n", op);
 469     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 470     ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 471
 472     res = 0xdeadbeef;
 473     DdeGetLastError(client_pid);
 474     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_CONNECT_CONFIRM, default_timeout, &res);
 475     ret = DdeGetLastError(client_pid);
 476     ok(op == NULL, "Expected NULL, got %p\n", op);
 477     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 478     ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 479
 480     res = 0xdeadbeef;
 481     DdeGetLastError(client_pid);
 482     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_DISCONNECT, default_timeout, &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     ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 487
 488     res = 0xdeadbeef;
 489     DdeGetLastError(client_pid);
 490     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_ERROR, default_timeout, &res);
 491     ret = DdeGetLastError(client_pid);
 492     ok(op == NULL, "Expected NULL, got %p\n", op);
 493     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 494     ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 495
 496     res = 0xdeadbeef;
 497     DdeGetLastError(client_pid);
 498     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_MONITOR, default_timeout, &res);
 499     ret = DdeGetLastError(client_pid);
 500     ok(op == NULL, "Expected NULL, got %p\n", op);
 501     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 502     ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 503
 504     res = 0xdeadbeef;
 505     DdeGetLastError(client_pid);
 506     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_REGISTER, default_timeout, &res);
 507     ret = DdeGetLastError(client_pid);
 508     ok(op == NULL, "Expected NULL, got %p\n", op);
 509     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 510     ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 511
 512     res = 0xdeadbeef;
 513     DdeGetLastError(client_pid);
 514     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_UNREGISTER, default_timeout, &res);
 515     ret = DdeGetLastError(client_pid);
 516     ok(op == NULL, "Expected NULL, got %p\n", op);
 517     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 518     ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 519
 520     res = 0xdeadbeef;
 521     DdeGetLastError(client_pid);
 522     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_WILDCONNECT, default_timeout, &res);
 523     ret = DdeGetLastError(client_pid);
 524     ok(op == NULL, "Expected NULL, got %p\n", op);
 525     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 526     ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 527
 528     res = 0xdeadbeef;
 529     DdeGetLastError(client_pid);
 530     op = DdeClientTransaction(NULL, 0, conversation, item, CF_TEXT, XTYP_XACT_COMPLETE, default_timeout, &res);
 531     ret = DdeGetLastError(client_pid);
 532     ok(op == NULL, "Expected NULL, got %p\n", op);
 533     ok(res == 0xdeadbeef, "Expected 0xdeadbeef, got %d\n", res);
 534     ok(ret == DMLERR_INVALIDPARAMETER, "Expected DMLERR_INVALIDPARAMETER, got %d\n", ret);
 535
 536     DdeFreeStringHandle(client_pid, item);
 537
 538     ret = DdeDisconnect(conversation);
 539     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 540
 541     ret = DdeUninitialize(client_pid);
 542     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 543 }
 544
 545 static DWORD server_pid;
 546
 547 static HDDEDATA CALLBACK server_ddeml_callback(UINT uType, UINT uFmt, HCONV hconv,
 548                                                HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
 549                                                ULONG_PTR dwData1, ULONG_PTR dwData2)
 550 {
 551     char str[MAX_PATH], *ptr;
 552     HDDEDATA ret;
 553     DWORD size;
 554
 555     static int msg_index = 0;
 556     static HCONV conversation = 0;
 557
 558     msg_index++;
 559
 560     switch (uType)
 561     {
 562     case XTYP_REGISTER:
 563     {
 564         ok(msg_index == 1, "Expected 1, got %d\n", msg_index);
 565         ok(uFmt == 0, "Expected 0, got %d\n", uFmt);
 566         ok(hconv == 0, "Expected 0, got %p\n", hconv);
 567         ok(hdata == 0, "Expected 0, got %p\n", hdata);
 568         ok(dwData1 == 0, "Expected 0, got %08lx\n", dwData1);
 569         ok(dwData2 == 0, "Expected 0, got %08lx\n", dwData2);
 570
 571         size = DdeQueryStringA(server_pid, hsz1, str, MAX_PATH, CP_WINANSI);
 572         ok(!lstrcmpA(str, "TestDDEServer"), "Expected TestDDEServer, got %s\n", str);
 573         ok(size == 13, "Expected 13, got %d\n", size);
 574
 575         size = DdeQueryStringA(server_pid, hsz2, str, MAX_PATH, CP_WINANSI);
 576         ok(!strncmp(str, "TestDDEServer(", 14), "Expected TestDDEServer(, got %s\n", str);
 577         ok(str[size - 1] == ')', "Expected ')', got %c\n", str[size - 1]);
 578         ok(size == 25, "Expected 25, got %d\n", size);
 579
 580         return (HDDEDATA)TRUE;
 581     }
 582
 583     case XTYP_CONNECT:
 584     {
 585         ok(msg_index == 2, "Expected 2, got %d\n", msg_index);
 586         ok(uFmt == 0, "Expected 0, got %d\n", uFmt);
 587         ok(hconv == 0, "Expected 0, got %p\n", hconv);
 588         ok(hdata == 0, "Expected 0, got %p\n", hdata);
 589         ok(dwData1 == 0, "Expected 0, got %08lx\n", dwData1);
 590         ok(dwData2 == FALSE, "Expected FALSE, got %08lx\n", dwData2);
 591
 592         size = DdeQueryStringA(server_pid, hsz1, str, MAX_PATH, CP_WINANSI);
 593         ok(!lstrcmpA(str, "TestDDETopic"), "Expected TestDDETopic, got %s\n", str);
 594         ok(size == 12, "Expected 12, got %d\n", size);
 595
 596         size = DdeQueryStringA(server_pid, hsz2, str, MAX_PATH, CP_WINANSI);
 597         ok(!lstrcmpA(str, "TestDDEServer"), "Expected TestDDEServer, got %s\n", str);
 598         ok(size == 13, "Expected 13, got %d\n", size);
 599
 600         return (HDDEDATA)TRUE;
 601     }
 602
 603     case XTYP_CONNECT_CONFIRM:
 604     {
 605         conversation = hconv;
 606
 607         ok(msg_index == 3, "Expected 3, got %d\n", msg_index);
 608         ok(uFmt == 0, "Expected 0, got %d\n", uFmt);
 609         ok(hconv != NULL, "Expected non-NULL hconv\n");
 610         ok(hdata == 0, "Expected 0, got %p\n", hdata);
 611         ok(dwData1 == 0, "Expected 0, got %08lx\n", dwData1);
 612         ok(dwData2 == FALSE, "Expected FALSE, got %08lx\n", dwData2);
 613
 614         size = DdeQueryStringA(server_pid, hsz1, str, MAX_PATH, CP_WINANSI);
 615         ok(!lstrcmpA(str, "TestDDETopic"), "Expected TestDDETopic, got %s\n", str);
 616         ok(size == 12, "Expected 12, got %d\n", size);
 617
 618         size = DdeQueryStringA(server_pid, hsz2, str, MAX_PATH, CP_WINANSI);
 619         ok(!lstrcmpA(str, "TestDDEServer"), "Expected TestDDEServer, got %s\n", str);
 620         ok(size == 13, "Expected 13, got %d\n", size);
 621
 622         return (HDDEDATA)TRUE;
 623     }
 624
 625     case XTYP_REQUEST:
 626     {
 627         ok(msg_index == 4 || msg_index == 5 || msg_index == 6,
 628            "Expected 4, 5 or 6, got %d\n", msg_index);
 629         ok(hconv == conversation, "Expected conversation handle, got %p\n", hconv);
 630         ok(hdata == 0, "Expected 0, got %p\n", hdata);
 631         ok(dwData1 == 0, "Expected 0, got %08lx\n", dwData1);
 632         ok(dwData2 == 0, "Expected 0, got %08lx\n", dwData2);
 633
 634         if (msg_index == 4)
 635             ok(uFmt == 0xbeef, "Expected 0xbeef, got %08x\n", uFmt);
 636         else
 637             ok(uFmt == CF_TEXT, "Expected CF_TEXT, got %08x\n", uFmt);
 638
 639         size = DdeQueryStringA(server_pid, hsz1, str, MAX_PATH, CP_WINANSI);
 640         ok(!lstrcmpA(str, "TestDDETopic"), "Expected TestDDETopic, got %s\n", str);
 641         ok(size == 12, "Expected 12, got %d\n", size);
 642
 643         size = DdeQueryStringA(server_pid, hsz2, str, MAX_PATH, CP_WINANSI);
 644
 645         if (msg_index == 5)
 646         {
 647             todo_wine
 648             {
 649                 ok(!lstrcmpA(str, ""), "Expected empty string, got %s\n", str);
 650                 ok(size == 1, "Expected 1, got %d\n", size);
 651             }
 652         }
 653         else if (msg_index == 6)
 654         {
 655             ok(!lstrcmpA(str, "request"), "Expected request, got %s\n", str);
 656             ok(size == 7, "Expected 7, got %d\n", size);
 657         }
 658
 659         if (msg_index == 6)
 660         {
 661             lstrcpyA(str, "requested data\r\n");
 662             return DdeCreateDataHandle(server_pid, (LPBYTE)str, lstrlenA(str) + 1,
 663                                         0, hsz2, CF_TEXT, 0);
 664         }
 665
 666         return NULL;
 667     }
 668
 669     case XTYP_POKE:
 670     {
 671         ok(msg_index == 7 || msg_index == 8, "Expected 7 or 8, got %d\n", msg_index);
 672         ok(uFmt == CF_TEXT, "Expected CF_TEXT, got %d\n", uFmt);
 673         ok(hconv == conversation, "Expected conversation handle, got %p\n", hconv);
 674         ok(dwData1 == 0, "Expected 0, got %08lx\n", dwData1);
 675         ok(dwData2 == 0, "Expected 0, got %08lx\n", dwData2);
 676
 677         size = DdeQueryStringA(server_pid, hsz1, str, MAX_PATH, CP_WINANSI);
 678         ok(!lstrcmpA(str, "TestDDETopic"), "Expected TestDDETopic, got %s\n", str);
 679         ok(size == 12, "Expected 12, got %d\n", size);
 680
 681         ptr = (LPSTR)DdeAccessData(hdata, &size);
 682         ok(!lstrcmpA(ptr, "poke data\r\n"), "Expected 'poke data\\r\\n', got %s\n", ptr);
 683         todo_wine
 684         {
 685             ok(size == 14, "Expected 14, got %d\n", size);
 686         }
 687         DdeUnaccessData(hdata);
 688
 689         size = DdeQueryStringA(server_pid, hsz2, str, MAX_PATH, CP_WINANSI);
 690         if (msg_index == 7)
 691         {
 692             todo_wine
 693             {
 694                 ok(!lstrcmpA(str, ""), "Expected empty string, got %s\n", str);
 695                 ok(size == 1, "Expected 1, got %d\n", size);
 696             }
 697         }
 698         else
 699         {
 700             ok(!lstrcmpA(str, "poke"), "Expected poke, got %s\n", str);
 701             ok(size == 4, "Expected 4, got %d\n", size);
 702         }
 703
 704         return (HDDEDATA)DDE_FACK;
 705     }
 706
 707     case XTYP_EXECUTE:
 708     {
 709         ok(msg_index == 9 || msg_index == 10, "Expected 9 or 10, got %d\n", msg_index);
 710         ok(uFmt == 0, "Expected 0, got %d\n", uFmt);
 711         ok(hconv == conversation, "Expected conversation handle, got %p\n", hconv);
 712         ok(dwData1 == 0, "Expected 0, got %08lx\n", dwData1);
 713         ok(dwData2 == 0, "Expected 0, got %08lx\n", dwData2);
 714         ok(hsz2 == 0, "Expected 0, got %p\n", hsz2);
 715
 716         size = DdeQueryStringA(server_pid, hsz1, str, MAX_PATH, CP_WINANSI);
 717         ok(!lstrcmpA(str, "TestDDETopic"), "Expected TestDDETopic, got %s\n", str);
 718         ok(size == 12, "Expected 12, got %d\n", size);
 719
 720         ptr = (LPSTR)DdeAccessData(hdata, &size);
 721
 722         if (msg_index == 9)
 723         {
 724             ok(!lstrcmpA(ptr, "[Command(Var)]"), "Expected '[Command(Var)]', got %s\n", ptr);
 725             ok(size == 15, "Expected 15, got %d\n", size);
 726             ret = (HDDEDATA)DDE_FACK;
 727         }
 728         else
 729         {
 730             ok(!lstrcmpA(ptr, "[BadCommand(Var)]"), "Expected '[BadCommand(Var)]', got %s\n", ptr);
 731             ok(size == 18, "Expected 18, got %d\n", size);
 732             ret = (HDDEDATA)DDE_FNOTPROCESSED;
 733         }
 734
 735         DdeUnaccessData(hdata);
 736
 737         return ret;
 738     }
 739
 740     case XTYP_DISCONNECT:
 741     {
 742         ok(msg_index == 11, "Expected 11, got %d\n", msg_index);
 743         ok(uFmt == 0, "Expected 0, got %d\n", uFmt);
 744         ok(hconv == conversation, "Expected conversation handle, got %p\n", hconv);
 745         ok(dwData1 == 0, "Expected 0, got %08lx\n", dwData1);
 746         ok(dwData2 == 0, "Expected 0, got %08lx\n", dwData2);
 747         ok(hsz1 == 0, "Expected 0, got %p\n", hsz2);
 748         ok(hsz2 == 0, "Expected 0, got %p\n", hsz2);
 749
 750         return 0;
 751     }
 752
 753     default:
 754         ok(FALSE, "Unhandled msg: %08x\n", uType);
 755     }
 756
 757     return 0;
 758 }
 759
 760 static void test_ddeml_server(HANDLE hproc)
 761 {
 762     MSG msg;
 763     UINT res;
 764     BOOL ret;
 765     HSZ server;
 766     HDDEDATA hdata;
 767
 768     /* set up DDE server */
 769     server_pid = 0;
 770     res = DdeInitialize(&server_pid, server_ddeml_callback, APPCLASS_STANDARD, 0);
 771     ok(res == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", res);
 772
 773     server = DdeCreateStringHandle(server_pid, "TestDDEServer", CP_WINANSI);
 774     ok(server != NULL, "Expected non-NULL string handle\n");
 775
 776     hdata = DdeNameService(server_pid, server, 0, DNS_REGISTER);
 777     ok(hdata == (HDDEDATA)TRUE, "Expected TRUE, got %p\n", hdata);
 778
 779     while (MsgWaitForMultipleObjects( 1, &hproc, FALSE, INFINITE, QS_ALLINPUT ) != 0)
 780     {
 781         while (PeekMessage(&msg, 0, 0, 0, PM_REMOVE)) DispatchMessageA(&msg);
 782     }
 783     ret = DdeUninitialize(server_pid);
 784     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
 785     GetExitCodeProcess( hproc, &res );
 786     ok( !res, "client failed with %u error(s)\n", res );
 787 }
 788
 789 static HWND client_hwnd, server_hwnd;
 790 static ATOM server, topic, item;
 791 static HGLOBAL execute_hglobal;
 792
 793 static LRESULT WINAPI dde_msg_client_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
 794 {
 795     char str[MAX_PATH];
 796     UINT_PTR lo, hi;
 797     DDEDATA *data;
 798     DDEACK *ack;
 799     DWORD size;
 800     LPSTR ptr;
 801
 802     static int msg_index = 0;
 803
 804     if (msg < WM_DDE_FIRST || msg > WM_DDE_LAST)
 805         return DefWindowProcA(hwnd, msg, wparam, lparam);
 806
 807     msg_index++;
 808
 809     switch (msg)
 810     {
 811     case WM_DDE_INITIATE:
 812     {
 813         ok(msg_index == 1, "Expected 1, got %d\n", msg_index);
 814         ok(wparam == (WPARAM)client_hwnd, "Expected client hwnd, got %08lx\n", wparam);
 815
 816         size = GlobalGetAtomNameA(LOWORD(lparam), str, MAX_PATH);
 817         ok(LOWORD(lparam) == server, "Expected server atom, got %08x\n", LOWORD(lparam));
 818         ok(!lstrcmpA(str, "TestDDEServer"), "Expected TestDDEServer, got %s\n", str);
 819         ok(size == 13, "Expected 13, got %d\n", size);
 820
 821         size = GlobalGetAtomNameA(HIWORD(lparam), str, MAX_PATH);
 822         ok(HIWORD(lparam) == topic, "Expected topic atom, got %08x\n", HIWORD(lparam));
 823         ok(!lstrcmpA(str, "TestDDETopic"), "Expected TestDDETopic, got %s\n", str);
 824         ok(size == 12, "Expected 12, got %d\n", size);
 825
 826         break;
 827     }
 828
 829     case WM_DDE_ACK:
 830     {
 831         ok((msg_index >= 2 && msg_index <= 4) || (msg_index >= 6 && msg_index <= 10),
 832            "Expected 2, 3, 4, 6, 7, 8, 9 or 10, got %d\n", msg_index);
 833
 834         if (msg_index == 2)
 835         {
 836             server_hwnd = (HWND)wparam;
 837             ok(wparam != 0, "Expected non-NULL wparam, got %08lx\n", wparam);
 838
 839             size = GlobalGetAtomNameA(LOWORD(lparam), str, MAX_PATH);
 840             ok(LOWORD(lparam) == server, "Expected server atom, got %08x\n", LOWORD(lparam));
 841             ok(!lstrcmpA(str, "TestDDEServer"), "Expected TestDDEServer, got %s\n", str);
 842             ok(size == 13, "Expected 13, got %d\n", size);
 843
 844             size = GlobalGetAtomNameA(HIWORD(lparam), str, MAX_PATH);
 845             ok(HIWORD(lparam) == topic, "Expected topic atom, got %08x\n", HIWORD(lparam));
 846             ok(!lstrcmpA(str, "TestDDETopic"), "Expected TestDDETopic, got %s\n", str);
 847             ok(size == 12, "Expected 12, got %d\n", size);
 848         }
 849         else if (msg_index == 9 || msg_index == 10)
 850         {
 851             ok(wparam == (WPARAM)server_hwnd, "Expected server hwnd, got %08lx\n", wparam);
 852
 853             UnpackDDElParam(WM_DDE_ACK, lparam, &lo, &hi);
 854
 855             ack = (DDEACK *)&lo;
 856             ok(ack->bAppReturnCode == 0, "Expected 0, got %d\n", ack->bAppReturnCode);
 857             ok(ack->reserved == 0, "Expected 0, got %d\n", ack->reserved);
 858             ok(ack->fBusy == FALSE, "Expected FALSE, got %d\n", ack->fBusy);
 859
 860             ok(hi == (UINT_PTR)execute_hglobal, "Execpted execute hglobal, got %08lx\n", hi);
 861             ptr = GlobalLock((HGLOBAL)hi);
 862
 863             if (msg_index == 9)
 864             {
 865                 ok(ack->fAck == TRUE, "Expected TRUE, got %d\n", ack->fAck);
 866                 ok(!lstrcmpA(ptr, "[Command(Var)]"), "Expected '[Command(Var)]', got %s\n", ptr);
 867             }
 868             else
 869             {
 870                 ok(ack->fAck == FALSE, "Expected FALSE, got %d\n", ack->fAck);
 871                 ok(!lstrcmpA(ptr, "[BadCommand(Var)]"), "Expected '[BadCommand(Var)]', got %s\n", ptr);
 872             }
 873
 874             GlobalUnlock((HGLOBAL)hi);
 875         }
 876         else
 877         {
 878             ok(wparam == (WPARAM)server_hwnd, "Expected server hwnd, got %08lx\n", wparam);
 879
 880             UnpackDDElParam(WM_DDE_ACK, lparam, &lo, &hi);
 881
 882             ack = (DDEACK *)&lo;
 883             ok(ack->bAppReturnCode == 0, "Expected 0, got %d\n", ack->bAppReturnCode);
 884             ok(ack->reserved == 0, "Expected 0, got %d\n", ack->reserved);
 885             ok(ack->fBusy == FALSE, "Expected FALSE, got %d\n", ack->fBusy);
 886
 887             if (msg_index >= 7)
 888                 ok(ack->fAck == TRUE, "Expected TRUE, got %d\n", ack->fAck);
 889             else
 890             {
 891                 if (msg_index == 6) todo_wine
 892                 ok(ack->fAck == FALSE, "Expected FALSE, got %d\n", ack->fAck);
 893             }
 894
 895             size = GlobalGetAtomNameA(hi, str, MAX_PATH);
 896             if (msg_index == 3)
 897             {
 898                 ok(hi == item, "Expected item atom, got %08lx\n", hi);
 899                 ok(!lstrcmpA(str, "request"), "Expected request, got %s\n", str);
 900                 ok(size == 7, "Expected 7, got %d\n", size);
 901             }
 902             else if (msg_index == 4 || msg_index == 7)
 903             {
 904                 ok(hi == 0, "Expected 0, got %08lx\n", hi);
 905                 ok(size == 0, "Expected empty string, got %d\n", size);
 906             }
 907             else
 908             {
 909                 ok(hi == item, "Expected item atom, got %08lx\n", hi);
 910                 if (msg_index == 6) todo_wine
 911                 {
 912                     ok(!lstrcmpA(str, "poke"), "Expected poke, got %s\n", str);
 913                     ok(size == 4, "Expected 4, got %d\n", size);
 914                 }
 915             }
 916         }
 917
 918         break;
 919     }
 920
 921     case WM_DDE_DATA:
 922     {
 923         ok(msg_index == 5, "Expected 5, got %d\n", msg_index);
 924         ok(wparam == (WPARAM)server_hwnd, "Expected server hwnd, got %08lx\n", wparam);
 925
 926         UnpackDDElParam(WM_DDE_DATA, lparam, &lo, &hi);
 927
 928         data = GlobalLock((HGLOBAL)lo);
 929         ok(data->unused == 0, "Expected 0, got %d\n", data->unused);
 930         ok(data->fResponse == TRUE, "Expected TRUE, got %d\n", data->fResponse);
 931         todo_wine
 932         {
 933             ok(data->fRelease == TRUE, "Expected TRUE, got %d\n", data->fRelease);
 934         }
 935         ok(data->fAckReq == 0, "Expected 0, got %d\n", data->fAckReq);
 936         ok(data->cfFormat == CF_TEXT, "Expected CF_TEXT, got %d\n", data->cfFormat);
 937         ok(!lstrcmpA((LPSTR)data->Value, "requested data\r\n"),
 938            "Expeted 'requested data\\r\\n', got %s\n", data->Value);
 939         GlobalUnlock((HGLOBAL)lo);
 940
 941         size = GlobalGetAtomNameA(hi, str, MAX_PATH);
 942         ok(hi == item, "Expected item atom, got %08x\n", HIWORD(lparam));
 943         ok(!lstrcmpA(str, "request"), "Expected request, got %s\n", str);
 944         ok(size == 7, "Expected 7, got %d\n", size);
 945
 946         GlobalFree((HGLOBAL)lo);
 947         GlobalDeleteAtom(hi);
 948
 949         break;
 950     }
 951
 952     default:
 953         ok(FALSE, "Unhandled msg: %08x\n", msg);
 954     }
 955
 956     return DefWindowProcA(hwnd, msg, wparam, lparam);
 957 }
 958
 959 static HGLOBAL create_poke()
 960 {
 961     HGLOBAL hglobal;
 962     DDEPOKE *poke;
 963     DWORD size;
 964
 965     size = sizeof(DDEPOKE) + lstrlenA("poke data\r\n") + 1;
 966     hglobal = GlobalAlloc(GMEM_DDESHARE, size);
 967     ok(hglobal != 0, "Expected non-NULL hglobal\n");
 968
 969     poke = GlobalLock(hglobal);
 970     poke->unused = 0;
 971     poke->fRelease = TRUE;
 972     poke->fReserved = TRUE;
 973     poke->cfFormat = CF_TEXT;
 974     lstrcpyA((LPSTR)poke->Value, "poke data\r\n");
 975     GlobalUnlock(hglobal);
 976
 977     return hglobal;
 978 }
 979
 980 static HGLOBAL create_execute(LPCSTR command)
 981 {
 982     HGLOBAL hglobal;
 983     LPSTR ptr;
 984
 985     hglobal = GlobalAlloc(GMEM_DDESHARE, lstrlenA(command) + 1);
 986     ok(hglobal != 0, "Expected non-NULL hglobal\n");
 987
 988     ptr = GlobalLock(hglobal);
 989     lstrcpyA(ptr, command);
 990     GlobalUnlock(hglobal);
 991
 992     return hglobal;
 993 }
 994
 995 static void test_msg_client()
 996 {
 997     HGLOBAL hglobal;
 998     LPARAM lparam;
 999
1000     create_dde_window(&client_hwnd, "dde_client", dde_msg_client_wndproc);
1001
1002     server = GlobalAddAtomA("TestDDEServer");
1003     ok(server != 0, "Expected non-NULL server\n");
1004
1005     topic = GlobalAddAtomA("TestDDETopic");
1006     ok(topic != 0, "Expected non-NULL topic\n");
1007
1008     SendMessageA(HWND_BROADCAST, WM_DDE_INITIATE, (WPARAM)client_hwnd, MAKELONG(server, topic));
1009
1010     GlobalDeleteAtom(server);
1011     GlobalDeleteAtom(topic);
1012
1013     flush_events();
1014
1015     item = GlobalAddAtom("request");
1016     ok(item != 0, "Expected non-NULL item\n");
1017
1018     /* WM_DDE_REQUEST, bad clipboard format */
1019     lparam = PackDDElParam(WM_DDE_REQUEST, 0xdeadbeef, item);
1020     PostMessageA(server_hwnd, WM_DDE_REQUEST, (WPARAM)client_hwnd, lparam);
1021
1022     flush_events();
1023
1024     /* WM_DDE_REQUEST, no item */
1025     lparam = PackDDElParam(WM_DDE_REQUEST, CF_TEXT, 0);
1026     PostMessageA(server_hwnd, WM_DDE_REQUEST, (WPARAM)client_hwnd, lparam);
1027
1028     flush_events();
1029
1030     /* WM_DDE_REQUEST, no client hwnd */
1031     lparam = PackDDElParam(WM_DDE_REQUEST, CF_TEXT, item);
1032     PostMessageA(server_hwnd, WM_DDE_REQUEST, 0, lparam);
1033
1034     flush_events();
1035
1036     /* WM_DDE_REQUEST, correct params */
1037     lparam = PackDDElParam(WM_DDE_REQUEST, CF_TEXT, item);
1038     PostMessageA(server_hwnd, WM_DDE_REQUEST, (WPARAM)client_hwnd, lparam);
1039
1040     flush_events();
1041
1042     GlobalDeleteAtom(item);
1043     item = GlobalAddAtomA("poke");
1044     ok(item != 0, "Expected non-NULL item\n");
1045
1046     hglobal = create_poke();
1047
1048     /* WM_DDE_POKE, no ddepoke */
1049     lparam = PackDDElParam(WM_DDE_POKE, 0, item);
1050     PostMessageA(server_hwnd, WM_DDE_POKE, (WPARAM)client_hwnd, lparam);
1051
1052     flush_events();
1053
1054     /* WM_DDE_POKE, no item */
1055     lparam = PackDDElParam(WM_DDE_POKE, (UINT_PTR)hglobal, 0);
1056     PostMessageA(server_hwnd, WM_DDE_POKE, (WPARAM)client_hwnd, lparam);
1057
1058     flush_events();
1059
1060     hglobal = create_poke();
1061
1062     /* WM_DDE_POKE, no client hwnd */
1063     lparam = PackDDElParam(WM_DDE_POKE, (UINT_PTR)hglobal, item);
1064     PostMessageA(server_hwnd, WM_DDE_POKE, 0, lparam);
1065
1066     flush_events();
1067
1068     /* WM_DDE_POKE, all params correct */
1069     lparam = PackDDElParam(WM_DDE_POKE, (UINT_PTR)hglobal, item);
1070     PostMessageA(server_hwnd, WM_DDE_POKE, (WPARAM)client_hwnd, lparam);
1071
1072     flush_events();
1073
1074     execute_hglobal = create_execute("[Command(Var)]");
1075
1076     /* WM_DDE_EXECUTE, no lparam */
1077     PostMessageA(server_hwnd, WM_DDE_EXECUTE, (WPARAM)client_hwnd, 0);
1078
1079     flush_events();
1080
1081     /* WM_DDE_EXECUTE, no hglobal */
1082     lparam = PackDDElParam(WM_DDE_EXECUTE, 0, 0);
1083     PostMessageA(server_hwnd, WM_DDE_EXECUTE, (WPARAM)client_hwnd, lparam);
1084
1085     flush_events();
1086
1087     /* WM_DDE_EXECUTE, no client hwnd */
1088     lparam = PackDDElParam(WM_DDE_EXECUTE, 0, (UINT_PTR)execute_hglobal);
1089     PostMessageA(server_hwnd, WM_DDE_EXECUTE, 0, lparam);
1090
1091     flush_events();
1092
1093     /* WM_DDE_EXECUTE, all params correct */
1094     lparam = PackDDElParam(WM_DDE_EXECUTE, 0, (UINT_PTR)execute_hglobal);
1095     PostMessageA(server_hwnd, WM_DDE_EXECUTE, (WPARAM)client_hwnd, lparam);
1096
1097     flush_events();
1098
1099     GlobalFree(execute_hglobal);
1100     execute_hglobal = create_execute("[BadCommand(Var)]");
1101
1102     /* WM_DDE_EXECUTE that will get rejected */
1103     lparam = PackDDElParam(WM_DDE_EXECUTE, 0, (UINT_PTR)execute_hglobal);
1104     PostMessageA(server_hwnd, WM_DDE_EXECUTE, (WPARAM)client_hwnd, lparam);
1105
1106     flush_events();
1107
1108     DestroyWindow(client_hwnd);
1109 }
1110
1111 static LRESULT WINAPI hook_dde_client_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
1112 {
1113     UINT_PTR lo, hi;
1114
1115     trace("hook_dde_client_wndproc: %p %04x %08lx %08lx\n", hwnd, msg, wparam, lparam);
1116
1117     switch (msg)
1118     {
1119     case WM_DDE_ACK:
1120         UnpackDDElParam(WM_DDE_ACK, lparam, &lo, &hi);
1121         trace("WM_DDE_ACK: status %04lx hglobal %p\n", lo, (HGLOBAL)hi);
1122         break;
1123
1124     default:
1125         break;
1126     }
1127     return CallWindowProcA(old_dde_client_wndproc, hwnd, msg, wparam, lparam);
1128 }
1129
1130 static LRESULT WINAPI dde_server_wndprocW(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
1131 {
1132     trace("dde_server_wndprocW: %p %04x %08lx %08lx\n", hwnd, msg, wparam, lparam);
1133
1134     switch (msg)
1135     {
1136     case WM_DDE_INITIATE:
1137     {
1138         ATOM aService = GlobalAddAtomW(TEST_DDE_SERVICE);
1139
1140         trace("server: got WM_DDE_INITIATE from %p with %08lx\n", (HWND)wparam, lparam);
1141
1142         if (LOWORD(lparam) == aService)
1143         {
1144             ok(!IsWindowUnicode((HWND)wparam), "client should be an ANSI window\n");
1145             old_dde_client_wndproc = (WNDPROC)SetWindowLongPtrA((HWND)wparam, GWLP_WNDPROC, (ULONG_PTR)hook_dde_client_wndproc);
1146             trace("server: sending WM_DDE_ACK to %p\n", (HWND)wparam);
1147             SendMessageW((HWND)wparam, WM_DDE_ACK, (WPARAM)hwnd, MAKELPARAM(aService, 0));
1148         }
1149         else
1150             GlobalDeleteAtom(aService);
1151         return 0;
1152     }
1153
1154     case WM_DDE_EXECUTE:
1155     {
1156         DDEACK ack;
1157         WORD status;
1158         LPCSTR cmd;
1159         UINT_PTR lo, hi;
1160
1161         trace("server: got WM_DDE_EXECUTE from %p with %08lx\n", (HWND)wparam, lparam);
1162
1163         UnpackDDElParam(WM_DDE_EXECUTE, lparam, &lo, &hi);
1164         trace("%08lx => lo %04lx hi %04lx\n", lparam, lo, hi);
1165
1166         ack.bAppReturnCode = 0;
1167         ack.reserved = 0;
1168         ack.fBusy = 0;
1169
1170         cmd = GlobalLock((HGLOBAL)hi);
1171
1172         if (!cmd || (lstrcmpA(cmd, exec_cmdA) && lstrcmpW((LPCWSTR)cmd, exec_cmdW)))
1173         {
1174             trace("ignoring unknown WM_DDE_EXECUTE command\n");
1175             /* We have to send a negative acknowledge even if we don't
1176              * accept the command, otherwise Windows goes mad and next time
1177              * we send an acknowledge DDEML drops the connection.
1178              * Not sure how to call it: a bug or a feature.
1179              */
1180             ack.fAck = 0;
1181         }
1182         else
1183             ack.fAck = 1;
1184         GlobalUnlock((HGLOBAL)hi);
1185
1186         trace("server: posting %s WM_DDE_ACK to %p\n", ack.fAck ? "POSITIVE" : "NEGATIVE", (HWND)wparam);
1187
1188         status = *((WORD *)&ack);
1189         lparam = ReuseDDElParam(lparam, WM_DDE_EXECUTE, WM_DDE_ACK, status, hi);
1190
1191         PostMessageW((HWND)wparam, WM_DDE_ACK, (WPARAM)hwnd, lparam);
1192         return 0;
1193     }
1194
1195     case WM_DDE_TERMINATE:
1196     {
1197         DDEACK ack;
1198         WORD status;
1199
1200         trace("server: got WM_DDE_TERMINATE from %p with %08lx\n", (HWND)wparam, lparam);
1201
1202         ack.bAppReturnCode = 0;
1203         ack.reserved = 0;
1204         ack.fBusy = 0;
1205         ack.fAck = 1;
1206
1207         trace("server: posting %s WM_DDE_ACK to %p\n", ack.fAck ? "POSITIVE" : "NEGATIVE", (HWND)wparam);
1208
1209         status = *((WORD *)&ack);
1210         lparam = PackDDElParam(WM_DDE_ACK, status, 0);
1211
1212         PostMessageW((HWND)wparam, WM_DDE_ACK, (WPARAM)hwnd, lparam);
1213         return 0;
1214     }
1215
1216     default:
1217         break;
1218     }
1219
1220     return DefWindowProcW(hwnd, msg, wparam, lparam);
1221 }
1222
1223 static LRESULT WINAPI dde_client_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
1224 {
1225     return DefWindowProcA(hwnd, msg, wparam, lparam);
1226 }
1227
1228 static BOOL create_dde_windows(HWND *client, HWND *server)
1229 {
1230     WNDCLASSA wcA;
1231     WNDCLASSW wcW;
1232     static const WCHAR server_class_name[] = {'d','d','e','_','s','e','r','v','e','r','_','w','i','n','d','o','w',0};
1233     static const char client_class_name[] = "dde_client_window";
1234
1235     memset(&wcW, 0, sizeof(wcW));
1236     wcW.lpfnWndProc = dde_server_wndprocW;
1237     wcW.lpszClassName = server_class_name;
1238     wcW.hInstance = GetModuleHandleA(0);
1239     if (!RegisterClassW(&wcW)) return FALSE;
1240
1241     memset(&wcA, 0, sizeof(wcA));
1242     wcA.lpfnWndProc = dde_client_wndproc;
1243     wcA.lpszClassName = client_class_name;
1244     wcA.hInstance = GetModuleHandleA(0);
1245     assert(RegisterClassA(&wcA));
1246
1247     *server = CreateWindowExW(0, server_class_name, NULL,
1248                               WS_POPUP,
1249                               100, 100, CW_USEDEFAULT, CW_USEDEFAULT,
1250                               GetDesktopWindow(), 0,
1251                               GetModuleHandleA(0), NULL);
1252     assert(*server);
1253
1254     *client = CreateWindowExA(0, client_class_name, NULL,
1255                               WS_POPUP,
1256                               100, 100, CW_USEDEFAULT, CW_USEDEFAULT,
1257                               GetDesktopWindow(), 0,
1258                               GetModuleHandleA(0), NULL);
1259     assert(*client);
1260
1261     trace("server hwnd %p, client hwnd %p\n", *server, *client);
1262
1263     ok(IsWindowUnicode(*server), "server has to be a unicode window\n");
1264     ok(!IsWindowUnicode(*client), "client has to be an ANSI window\n");
1265
1266     return TRUE;
1267 }
1268
1269 static HDDEDATA CALLBACK client_dde_callback(UINT uType, UINT uFmt, HCONV hconv,
1270                                      HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
1271                                      ULONG_PTR dwData1, ULONG_PTR dwData2)
1272 {
1273     static const char * const cmd_type[15] = {
1274         "XTYP_ERROR", "XTYP_ADVDATA", "XTYP_ADVREQ", "XTYP_ADVSTART",
1275         "XTYP_ADVSTOP", "XTYP_EXECUTE", "XTYP_CONNECT", "XTYP_CONNECT_CONFIRM",
1276         "XTYP_XACT_COMPLETE", "XTYP_POKE", "XTYP_REGISTER", "XTYP_REQUEST",
1277         "XTYP_DISCONNECT", "XTYP_UNREGISTER", "XTYP_WILDCONNECT" };
1278     UINT type;
1279     const char *cmd_name;
1280
1281     type = (uType & XTYP_MASK) >> XTYP_SHIFT;
1282     cmd_name = (type >= 0 && type <= 14) ? cmd_type[type] : "unknown";
1283
1284     trace("client_dde_callback: %04x (%s) %d %p %p %p %p %08lx %08lx\n",
1285           uType, cmd_name, uFmt, hconv, hsz1, hsz2, hdata, dwData1, dwData2);
1286     return 0;
1287 }
1288
1289 static void test_dde_aw_transaction(void)
1290 {
1291     HSZ hsz_server;
1292     DWORD dde_inst, ret, err;
1293     HCONV hconv;
1294     HWND hwnd_client, hwnd_server;
1295     CONVINFO info;
1296     HDDEDATA hdata;
1297     static char test_cmd[] = "test dde command";
1298
1299     /* server: unicode, client: ansi */
1300     if (!create_dde_windows(&hwnd_client, &hwnd_server)) return;
1301
1302     dde_inst = 0;
1303     ret = DdeInitializeA(&dde_inst, client_dde_callback, APPCMD_CLIENTONLY, 0);
1304     ok(ret == DMLERR_NO_ERROR, "DdeInitializeW failed with error %04x (%x)\n",
1305        ret, DdeGetLastError(dde_inst));
1306
1307     hsz_server = DdeCreateStringHandleW(dde_inst, TEST_DDE_SERVICE, CP_WINUNICODE);
1308
1309     hconv = DdeConnect(dde_inst, hsz_server, 0, NULL);
1310     ok(hconv != 0, "DdeConnect error %x\n", DdeGetLastError(dde_inst));
1311     err = DdeGetLastError(dde_inst);
1312     ok(err == DMLERR_NO_ERROR, "wrong dde error %x\n", err);
1313
1314     info.cb = sizeof(info);
1315     ret = DdeQueryConvInfo(hconv, QID_SYNC, &info);
1316     ok(ret, "wrong info size %d, DdeQueryConvInfo error %x\n", ret, DdeGetLastError(dde_inst));
1317     /* should be CP_WINANSI since we used DdeInitializeA */
1318     ok(info.ConvCtxt.iCodePage == CP_WINANSI, "wrong iCodePage %d\n", info.ConvCtxt.iCodePage);
1319     ok(!info.hConvPartner, "unexpected info.hConvPartner: %p\n", info.hConvPartner);
1320 todo_wine {
1321     ok((info.wStatus & DDE_FACK), "unexpected info.wStatus: %04x\n", info.wStatus);
1322 }
1323     ok((info.wStatus & (ST_CONNECTED | ST_CLIENT)) == (ST_CONNECTED | ST_CLIENT), "unexpected info.wStatus: %04x\n", info.wStatus);
1324     ok(info.wConvst == XST_CONNECTED, "unexpected info.wConvst: %04x\n", info.wConvst);
1325     ok(info.wType == 0, "unexpected info.wType: %04x\n", info.wType);
1326
1327     trace("hwnd %p, hwndPartner %p\n", info.hwnd, info.hwndPartner);
1328
1329     trace("sending test client transaction command\n");
1330     ret = 0xdeadbeef;
1331     hdata = DdeClientTransaction((LPBYTE)test_cmd, strlen(test_cmd) + 1, hconv, (HSZ)0xdead, 0xbeef, XTYP_EXECUTE, 1000, &ret);
1332     ok(!hdata, "DdeClientTransaction succeeded\n");
1333     ok(ret == DDE_FNOTPROCESSED, "wrong status code %04x\n", ret);
1334     err = DdeGetLastError(dde_inst);
1335     ok(err == DMLERR_NOTPROCESSED, "wrong dde error %x\n", err);
1336
1337     trace("sending ANSI client transaction command\n");
1338     ret = 0xdeadbeef;
1339     hdata = DdeClientTransaction((LPBYTE)exec_cmdA, lstrlenA(exec_cmdA) + 1, hconv, 0, 0, XTYP_EXECUTE, 1000, &ret);
1340     ok(hdata != 0, "DdeClientTransaction returned %p, error %x\n", hdata, DdeGetLastError(dde_inst));
1341     ok(ret == DDE_FACK, "wrong status code %04x\n", ret);
1342
1343     err = DdeGetLastError(dde_inst);
1344     ok(err == DMLERR_NO_ERROR, "wrong dde error %x\n", err);
1345
1346     trace("sending unicode client transaction command\n");
1347     ret = 0xdeadbeef;
1348     hdata = DdeClientTransaction((LPBYTE)exec_cmdW, (lstrlenW(exec_cmdW) + 1) * sizeof(WCHAR), hconv, 0, 0, XTYP_EXECUTE, 1000, &ret);
1349     ok(hdata != 0, "DdeClientTransaction returned %p, error %x\n", hdata, DdeGetLastError(dde_inst));
1350     ok(ret == DDE_FACK, "wrong status code %04x\n", ret);
1351     err = DdeGetLastError(dde_inst);
1352     ok(err == DMLERR_NO_ERROR, "wrong dde error %x\n", err);
1353
1354     ok(DdeDisconnect(hconv), "DdeDisconnect error %x\n", DdeGetLastError(dde_inst));
1355
1356     info.cb = sizeof(info);
1357     ret = DdeQueryConvInfo(hconv, QID_SYNC, &info);
1358     ok(!ret, "DdeQueryConvInfo should fail\n");
1359     err = DdeGetLastError(dde_inst);
1360 todo_wine {
1361     ok(err == DMLERR_INVALIDPARAMETER, "wrong dde error %x\n", err);
1362 }
1363
1364     ok(DdeFreeStringHandle(dde_inst, hsz_server), "DdeFreeStringHandle error %x\n", DdeGetLastError(dde_inst));
1365
1366     /* This call hangs on win2k SP4 and XP SP1.
1367     DdeUninitialize(dde_inst);*/
1368
1369     DestroyWindow(hwnd_client);
1370     DestroyWindow(hwnd_server);
1371 }
1372
1373 static void test_DdeCreateStringHandleW(DWORD dde_inst, int codepage)
1374 {
1375     static const WCHAR dde_string[] = {'D','D','E',' ','S','t','r','i','n','g',0};
1376     HSZ str_handle;
1377     WCHAR bufW[256];
1378     char buf[256];
1379     ATOM atom;
1380     int ret;
1381
1382     str_handle = DdeCreateStringHandleW(dde_inst, dde_string, codepage);
1383     ok(str_handle != 0, "DdeCreateStringHandleW failed with error %08x\n",
1384        DdeGetLastError(dde_inst));
1385
1386     ret = DdeQueryStringW(dde_inst, str_handle, NULL, 0, codepage);
1387     if (codepage == CP_WINANSI)
1388         ok(ret == 1, "DdeQueryStringW returned wrong length %d\n", ret);
1389     else
1390         ok(ret == lstrlenW(dde_string), "DdeQueryStringW returned wrong length %d\n", ret);
1391
1392     ret = DdeQueryStringW(dde_inst, str_handle, bufW, 256, codepage);
1393     if (codepage == CP_WINANSI)
1394     {
1395         ok(ret == 1, "DdeQueryStringW returned wrong length %d\n", ret);
1396         ok(!lstrcmpA("D", (LPCSTR)bufW), "DdeQueryStringW returned wrong string\n");
1397     }
1398     else
1399     {
1400         ok(ret == lstrlenW(dde_string), "DdeQueryStringW returned wrong length %d\n", ret);
1401         ok(!lstrcmpW(dde_string, bufW), "DdeQueryStringW returned wrong string\n");
1402     }
1403
1404     ret = DdeQueryStringA(dde_inst, str_handle, buf, 256, CP_WINANSI);
1405     if (codepage == CP_WINANSI)
1406     {
1407         ok(ret == 1, "DdeQueryStringA returned wrong length %d\n", ret);
1408         ok(!lstrcmpA("D", buf), "DdeQueryStringW returned wrong string\n");
1409     }
1410     else
1411     {
1412         ok(ret == lstrlenA("DDE String"), "DdeQueryStringA returned wrong length %d\n", ret);
1413         ok(!lstrcmpA("DDE String", buf), "DdeQueryStringA returned wrong string %s\n", buf);
1414     }
1415
1416     ret = DdeQueryStringA(dde_inst, str_handle, buf, 256, CP_WINUNICODE);
1417     if (codepage == CP_WINANSI)
1418     {
1419         ok(ret == 1, "DdeQueryStringA returned wrong length %d\n", ret);
1420         ok(!lstrcmpA("D", buf), "DdeQueryStringA returned wrong string %s\n", buf);
1421     }
1422     else
1423     {
1424         ok(ret == lstrlenA("DDE String"), "DdeQueryStringA returned wrong length %d\n", ret);
1425         ok(!lstrcmpW(dde_string, (LPCWSTR)buf), "DdeQueryStringW returned wrong string\n");
1426     }
1427
1428     if (codepage == CP_WINANSI)
1429     {
1430         atom = FindAtomA((LPSTR)dde_string);
1431         ok(atom != 0, "Expected a valid atom\n");
1432
1433         SetLastError(0xdeadbeef);
1434         atom = GlobalFindAtomA((LPSTR)dde_string);
1435         ok(atom == 0, "Expected 0, got %d\n", atom);
1436         ok(GetLastError() == ERROR_FILE_NOT_FOUND,
1437            "Expected ERROR_FILE_NOT_FOUND, got %d\n", GetLastError());
1438     }
1439     else
1440     {
1441         atom = FindAtomW(dde_string);
1442         ok(atom != 0, "Expected a valid atom\n");
1443
1444         SetLastError(0xdeadbeef);
1445         atom = GlobalFindAtomW(dde_string);
1446         ok(atom == 0, "Expected 0, got %d\n", atom);
1447         ok(GetLastError() == ERROR_FILE_NOT_FOUND,
1448            "Expected ERROR_FILE_NOT_FOUND, got %d\n", GetLastError());
1449     }
1450
1451     ok(DdeFreeStringHandle(dde_inst, str_handle), "DdeFreeStringHandle failed\n");
1452 }
1453
1454 static void test_DdeCreateDataHandle(void)
1455 {
1456     HDDEDATA hdata;
1457     DWORD dde_inst;
1458     DWORD size;
1459     UINT res, err;
1460     BOOL ret;
1461     HSZ item;
1462     LPBYTE ptr;
1463
1464     dde_inst = 0;
1465     res = DdeInitializeA(&dde_inst, client_ddeml_callback, APPCMD_CLIENTONLY, 0);
1466     ok(res == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", res);
1467
1468     item = DdeCreateStringHandleA(dde_inst, "item", CP_WINANSI);
1469     ok(item != NULL, "Expected non-NULL hsz\n");
1470
1471     /* invalid instance id */
1472     DdeGetLastError(dde_inst);
1473     hdata = DdeCreateDataHandle(0xdeadbeef, (LPBYTE)"data", MAX_PATH, 0, item, CF_TEXT, 0);
1474     err = DdeGetLastError(dde_inst);
1475     todo_wine
1476     {
1477         ok(hdata == NULL, "Expected NULL, got %p\n", hdata);
1478         ok(err == DMLERR_INVALIDPARAMETER,
1479            "Expected DMLERR_INVALIDPARAMETER, got %d\n", err);
1480     }
1481
1482     /* 0 instance id */
1483     DdeGetLastError(dde_inst);
1484     hdata = DdeCreateDataHandle(0, (LPBYTE)"data", MAX_PATH, 0, item, CF_TEXT, 0);
1485     err = DdeGetLastError(dde_inst);
1486     todo_wine
1487     {
1488         ok(hdata == NULL, "Expected NULL, got %p\n", hdata);
1489         ok(err == DMLERR_INVALIDPARAMETER,
1490            "Expected DMLERR_INVALIDPARAMETER, got %d\n", err);
1491     }
1492
1493     /* NULL pSrc */
1494     DdeGetLastError(dde_inst);
1495     hdata = DdeCreateDataHandle(dde_inst, NULL, MAX_PATH, 0, item, CF_TEXT, 0);
1496     err = DdeGetLastError(dde_inst);
1497     ok(hdata != NULL, "Expected non-NULL hdata\n");
1498     ok(err == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", err);
1499
1500     ptr = GlobalLock(hdata);
1501     todo_wine
1502     {
1503         ok(ptr == NULL, "Expected NULL, got %p\n", ptr);
1504     }
1505
1506     ptr = DdeAccessData(hdata, &size);
1507     ok(ptr != NULL, "Expected non-NULL ptr\n");
1508     ok(lstrlenA((LPSTR)ptr) == 0, "Expected 0, got %d\n", lstrlenA((LPSTR)ptr));
1509     ok(size == 260, "Expected 260, got %d\n", size);
1510
1511     ret = DdeUnaccessData(hdata);
1512     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1513
1514     ret = DdeFreeDataHandle(hdata);
1515     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1516
1517     /* cb is zero */
1518     DdeGetLastError(dde_inst);
1519     hdata = DdeCreateDataHandle(dde_inst, (LPBYTE)"data", 0, 0, item, CF_TEXT, 0);
1520     err = DdeGetLastError(dde_inst);
1521     ok(hdata != NULL, "Expected non-NULL hdata\n");
1522     ok(err == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", err);
1523
1524     ptr = GlobalLock(hdata);
1525     todo_wine
1526     {
1527         ok(ptr == NULL, "Expected NULL, got %p\n", ptr);
1528     }
1529
1530     ptr = DdeAccessData(hdata, &size);
1531     ok(ptr != NULL, "Expected non-NULL ptr\n");
1532     ok(lstrlenA((LPSTR)ptr) != 0, "Expected non-empty string\n");
1533     ok(lstrcmpA((LPSTR)ptr, "data"), "Did not expect data\n");
1534     ok(size == 0, "Expected 0, got %d\n", size);
1535
1536     ret = DdeUnaccessData(hdata);
1537     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1538
1539     ret = DdeFreeDataHandle(hdata);
1540     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1541
1542     /* cbOff is non-zero */
1543     DdeGetLastError(dde_inst);
1544     hdata = DdeCreateDataHandle(dde_inst, (LPBYTE)"data", MAX_PATH, 2, item, CF_TEXT, 0);
1545     err = DdeGetLastError(dde_inst);
1546     ok(hdata != NULL, "Expected non-NULL hdata\n");
1547     ok(err == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", err);
1548
1549     ptr = GlobalLock(hdata);
1550     todo_wine
1551     {
1552         ok(ptr == NULL, "Expected NULL, got %p\n", ptr);
1553     }
1554
1555     ptr = DdeAccessData(hdata, &size);
1556     ok(ptr != NULL, "Expected non-NULL ptr\n");
1557     ok(size == 262, "Expected 262, got %d\n", size);
1558     todo_wine
1559     {
1560         ok(lstrlenA((LPSTR)ptr) == 0, "Expected 0, got %d\n", lstrlenA((LPSTR)ptr));
1561     }
1562
1563     ret = DdeUnaccessData(hdata);
1564     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1565
1566     ret = DdeFreeDataHandle(hdata);
1567     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1568
1569     /* NULL item */
1570     DdeGetLastError(dde_inst);
1571     hdata = DdeCreateDataHandle(dde_inst, (LPBYTE)"data", MAX_PATH, 0, 0, CF_TEXT, 0);
1572     err = DdeGetLastError(dde_inst);
1573     ok(hdata != NULL, "Expected non-NULL hdata\n");
1574     ok(err == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", err);
1575
1576     ptr = GlobalLock(hdata);
1577     todo_wine
1578     {
1579         ok(ptr == NULL, "Expected NULL, got %p\n", ptr);
1580     }
1581
1582     ptr = DdeAccessData(hdata, &size);
1583     ok(ptr != NULL, "Expected non-NULL ptr\n");
1584     ok(!lstrcmpA((LPSTR)ptr, "data"), "Expected data, got %s\n", ptr);
1585     ok(size == 260, "Expected 260, got %d\n", size);
1586
1587     ret = DdeUnaccessData(hdata);
1588     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1589
1590     ret = DdeFreeDataHandle(hdata);
1591     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1592
1593     /* NULL item */
1594     DdeGetLastError(dde_inst);
1595     hdata = DdeCreateDataHandle(dde_inst, (LPBYTE)"data", MAX_PATH, 0, (HSZ)0xdeadbeef, CF_TEXT, 0);
1596     err = DdeGetLastError(dde_inst);
1597     ok(hdata != NULL, "Expected non-NULL hdata\n");
1598     ok(err == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", err);
1599
1600     ptr = GlobalLock(hdata);
1601     todo_wine
1602     {
1603         ok(ptr == NULL, "Expected NULL, got %p\n", ptr);
1604     }
1605
1606     ptr = DdeAccessData(hdata, &size);
1607     ok(ptr != NULL, "Expected non-NULL ptr\n");
1608     ok(!lstrcmpA((LPSTR)ptr, "data"), "Expected data, got %s\n", ptr);
1609     ok(size == 260, "Expected 260, got %d\n", size);
1610
1611     ret = DdeUnaccessData(hdata);
1612     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1613
1614     ret = DdeFreeDataHandle(hdata);
1615     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1616
1617     /* invalid clipboard format */
1618     DdeGetLastError(dde_inst);
1619     hdata = DdeCreateDataHandle(dde_inst, (LPBYTE)"data", MAX_PATH, 0, item, 0xdeadbeef, 0);
1620     err = DdeGetLastError(dde_inst);
1621     ok(hdata != NULL, "Expected non-NULL hdata\n");
1622     ok(err == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", err);
1623
1624     ptr = GlobalLock(hdata);
1625     todo_wine
1626     {
1627         ok(ptr == NULL, "Expected NULL, got %p\n", ptr);
1628     }
1629
1630     ptr = DdeAccessData(hdata, &size);
1631     ok(ptr != NULL, "Expected non-NULL ptr\n");
1632     ok(!lstrcmpA((LPSTR)ptr, "data"), "Expected data, got %s\n", ptr);
1633     ok(size == 260, "Expected 260, got %d\n", size);
1634
1635     ret = DdeUnaccessData(hdata);
1636     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1637
1638     ret = DdeFreeDataHandle(hdata);
1639     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1640
1641     ret = DdeUninitialize(dde_inst);
1642     ok(res == DMLERR_NO_ERROR, "Expected DMLERR_NO_ERROR, got %d\n", res);
1643 }
1644
1645 static void test_DdeCreateStringHandle(void)
1646 {
1647     DWORD dde_inst, ret;
1648
1649     dde_inst = 0xdeadbeef;
1650     SetLastError(0xdeadbeef);
1651     ret = DdeInitializeW(&dde_inst, client_ddeml_callback, APPCMD_CLIENTONLY, 0);
1652     if (GetLastError() == ERROR_CALL_NOT_IMPLEMENTED)
1653     {
1654         trace("Skipping the DDE test on a Win9x platform\n");
1655         return;
1656     }
1657
1658     ok(ret == DMLERR_INVALIDPARAMETER, "DdeInitializeW should fail, but got %04x instead\n", ret);
1659     ok(DdeGetLastError(dde_inst) == DMLERR_INVALIDPARAMETER, "expected DMLERR_INVALIDPARAMETER\n");
1660
1661     dde_inst = 0;
1662     ret = DdeInitializeW(&dde_inst, client_ddeml_callback, APPCMD_CLIENTONLY, 0);
1663     ok(ret == DMLERR_NO_ERROR, "DdeInitializeW failed with error %04x (%08x)\n",
1664        ret, DdeGetLastError(dde_inst));
1665
1666     test_DdeCreateStringHandleW(dde_inst, 0);
1667     test_DdeCreateStringHandleW(dde_inst, CP_WINUNICODE);
1668     test_DdeCreateStringHandleW(dde_inst, CP_WINANSI);
1669
1670     ok(DdeUninitialize(dde_inst), "DdeUninitialize failed\n");
1671 }
1672
1673 static void test_FreeDDElParam(void)
1674 {
1675     HGLOBAL val, hglobal;
1676     BOOL ret;
1677
1678     ret = FreeDDElParam(WM_DDE_INITIATE, (LPARAM)NULL);
1679     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1680
1681     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
1682     ret = FreeDDElParam(WM_DDE_INITIATE, (LPARAM)hglobal);
1683     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1684     val = GlobalFree(hglobal);
1685     ok(val == NULL, "Expected NULL, got %p\n", val);
1686
1687     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
1688     ret = FreeDDElParam(WM_DDE_ADVISE, (LPARAM)hglobal);
1689     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1690     val = GlobalFree(hglobal);
1691     ok(val == hglobal, "Expected hglobal, got %p\n", val);
1692     ok(GetLastError() == ERROR_INVALID_HANDLE,
1693        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1694
1695     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
1696     ret = FreeDDElParam(WM_DDE_UNADVISE, (LPARAM)hglobal);
1697     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1698     val = GlobalFree(hglobal);
1699     ok(val == NULL, "Expected NULL, got %p\n", val);
1700
1701     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
1702     ret = FreeDDElParam(WM_DDE_ACK, (LPARAM)hglobal);
1703     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1704     val = GlobalFree(hglobal);
1705     ok(val == hglobal, "Expected hglobal, got %p\n", val);
1706     ok(GetLastError() == ERROR_INVALID_HANDLE,
1707        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1708
1709     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
1710     ret = FreeDDElParam(WM_DDE_DATA, (LPARAM)hglobal);
1711     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1712     val = GlobalFree(hglobal);
1713     ok(val == hglobal, "Expected hglobal, got %p\n", val);
1714     ok(GetLastError() == ERROR_INVALID_HANDLE,
1715        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1716
1717     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
1718     ret = FreeDDElParam(WM_DDE_REQUEST, (LPARAM)hglobal);
1719     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1720     val = GlobalFree(hglobal);
1721     ok(val == NULL, "Expected NULL, got %p\n", val);
1722
1723     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
1724     ret = FreeDDElParam(WM_DDE_POKE, (LPARAM)hglobal);
1725     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1726     val = GlobalFree(hglobal);
1727     ok(val == hglobal, "Expected hglobal, got %p\n", val);
1728     ok(GetLastError() == ERROR_INVALID_HANDLE,
1729        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1730
1731     hglobal = GlobalAlloc(GMEM_DDESHARE, 100);
1732     ret = FreeDDElParam(WM_DDE_EXECUTE, (LPARAM)hglobal);
1733     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1734     val = GlobalFree(hglobal);
1735     ok(val == NULL, "Expected NULL, got %p\n", val);
1736 }
1737
1738 static void test_PackDDElParam(void)
1739 {
1740     UINT_PTR lo, hi, *ptr;
1741     HGLOBAL hglobal;
1742     LPARAM lparam;
1743     BOOL ret;
1744
1745     lparam = PackDDElParam(WM_DDE_INITIATE, 0xcafe, 0xbeef);
1746     ok(lparam == 0xbeefcafe, "Expected 0xbeefcafe, got %08lx\n", lparam);
1747     ok(GlobalLock((HGLOBAL)lparam) == NULL,
1748        "Expected NULL, got %p\n", GlobalLock((HGLOBAL)lparam));
1749     ok(GetLastError() == ERROR_INVALID_HANDLE,
1750        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1751
1752     lo = hi = 0;
1753     ret = UnpackDDElParam(WM_DDE_INITIATE, lparam, &lo, &hi);
1754     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1755     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1756     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1757
1758     ret = FreeDDElParam(WM_DDE_INITIATE, lparam);
1759     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1760
1761     lparam = PackDDElParam(WM_DDE_TERMINATE, 0xcafe, 0xbeef);
1762     ok(lparam == 0xbeefcafe, "Expected 0xbeefcafe, got %08lx\n", lparam);
1763     ok(GlobalLock((HGLOBAL)lparam) == NULL,
1764        "Expected NULL, got %p\n", GlobalLock((HGLOBAL)lparam));
1765     ok(GetLastError() == ERROR_INVALID_HANDLE,
1766        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1767
1768     lo = hi = 0;
1769     ret = UnpackDDElParam(WM_DDE_TERMINATE, lparam, &lo, &hi);
1770     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1771     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1772     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1773
1774     ret = FreeDDElParam(WM_DDE_TERMINATE, lparam);
1775     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1776
1777     lparam = PackDDElParam(WM_DDE_ADVISE, 0xcafe, 0xbeef);
1778     ptr = GlobalLock((HGLOBAL)lparam);
1779     ok(ptr != NULL, "Expected non-NULL ptr\n");
1780     ok(ptr[0] == 0xcafe, "Expected 0xcafe, got %08lx\n", ptr[0]);
1781     ok(ptr[1] == 0xbeef, "Expected 0xbeef, got %08lx\n", ptr[1]);
1782
1783     ret = GlobalUnlock((HGLOBAL)lparam);
1784     ok(ret == 1, "Expected 1, got %d\n", ret);
1785
1786     lo = hi = 0;
1787     ret = UnpackDDElParam(WM_DDE_ADVISE, lparam, &lo, &hi);
1788     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1789     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1790     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1791
1792     ret = FreeDDElParam(WM_DDE_ADVISE, lparam);
1793     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1794
1795     hglobal = GlobalFree((HGLOBAL)lparam);
1796     ok(hglobal == (HGLOBAL)lparam, "Expected lparam, got %d\n", ret);
1797     ok(GetLastError() == ERROR_INVALID_HANDLE,
1798        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1799
1800     lparam = PackDDElParam(WM_DDE_UNADVISE, 0xcafe, 0xbeef);
1801     ok(lparam == 0xbeefcafe, "Expected 0xbeefcafe, got %08lx\n", lparam);
1802     ok(GlobalLock((HGLOBAL)lparam) == NULL,
1803        "Expected NULL, got %p\n", GlobalLock((HGLOBAL)lparam));
1804     ok(GetLastError() == ERROR_INVALID_HANDLE,
1805        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1806
1807     lo = hi = 0;
1808     ret = UnpackDDElParam(WM_DDE_UNADVISE, lparam, &lo, &hi);
1809     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1810     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1811     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1812
1813     ret = FreeDDElParam(WM_DDE_UNADVISE, lparam);
1814     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1815
1816     lparam = PackDDElParam(WM_DDE_ACK, 0xcafe, 0xbeef);
1817     ptr = GlobalLock((HGLOBAL)lparam);
1818     ok(ptr != NULL, "Expected non-NULL ptr\n");
1819     ok(ptr[0] == 0xcafe, "Expected 0xcafe, got %08lx\n", ptr[0]);
1820     ok(ptr[1] == 0xbeef, "Expected 0xbeef, got %08lx\n", ptr[1]);
1821
1822     ret = GlobalUnlock((HGLOBAL)lparam);
1823     ok(ret == 1, "Expected 1, got %d\n", ret);
1824
1825     lo = hi = 0;
1826     ret = UnpackDDElParam(WM_DDE_ACK, lparam, &lo, &hi);
1827     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1828     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1829     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1830
1831     ret = FreeDDElParam(WM_DDE_ACK, lparam);
1832     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1833
1834     hglobal = GlobalFree((HGLOBAL)lparam);
1835     ok(hglobal == (HGLOBAL)lparam, "Expected lparam, got %d\n", ret);
1836     ok(GetLastError() == ERROR_INVALID_HANDLE,
1837        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1838
1839     lparam = PackDDElParam(WM_DDE_DATA, 0xcafe, 0xbeef);
1840     ptr = GlobalLock((HGLOBAL)lparam);
1841     ok(ptr != NULL, "Expected non-NULL ptr\n");
1842     ok(ptr[0] == 0xcafe, "Expected 0xcafe, got %08lx\n", ptr[0]);
1843     ok(ptr[1] == 0xbeef, "Expected 0xbeef, got %08lx\n", ptr[1]);
1844
1845     ret = GlobalUnlock((HGLOBAL)lparam);
1846     ok(ret == 1, "Expected 1, got %d\n", ret);
1847
1848     lo = hi = 0;
1849     ret = UnpackDDElParam(WM_DDE_DATA, lparam, &lo, &hi);
1850     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1851     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1852     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1853
1854     ret = FreeDDElParam(WM_DDE_DATA, lparam);
1855     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1856
1857     hglobal = GlobalFree((HGLOBAL)lparam);
1858     ok(hglobal == (HGLOBAL)lparam, "Expected lparam, got %d\n", ret);
1859     ok(GetLastError() == ERROR_INVALID_HANDLE,
1860        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1861
1862     lparam = PackDDElParam(WM_DDE_REQUEST, 0xcafe, 0xbeef);
1863     ok(lparam == 0xbeefcafe, "Expected 0xbeefcafe, got %08lx\n", lparam);
1864     ok(GlobalLock((HGLOBAL)lparam) == NULL,
1865        "Expected NULL, got %p\n", GlobalLock((HGLOBAL)lparam));
1866     ok(GetLastError() == ERROR_INVALID_HANDLE,
1867        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1868
1869     lo = hi = 0;
1870     ret = UnpackDDElParam(WM_DDE_REQUEST, lparam, &lo, &hi);
1871     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1872     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1873     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1874
1875     ret = FreeDDElParam(WM_DDE_REQUEST, lparam);
1876     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1877
1878     lparam = PackDDElParam(WM_DDE_POKE, 0xcafe, 0xbeef);
1879     ptr = GlobalLock((HGLOBAL)lparam);
1880     ok(ptr != NULL, "Expected non-NULL ptr\n");
1881     ok(ptr[0] == 0xcafe, "Expected 0xcafe, got %08lx\n", ptr[0]);
1882     ok(ptr[1] == 0xbeef, "Expected 0xbeef, got %08lx\n", ptr[1]);
1883
1884     ret = GlobalUnlock((HGLOBAL)lparam);
1885     ok(ret == 1, "Expected 1, got %d\n", ret);
1886
1887     lo = hi = 0;
1888     ret = UnpackDDElParam(WM_DDE_POKE, lparam, &lo, &hi);
1889     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1890     ok(lo == 0xcafe, "Expected 0xcafe, got %08lx\n", lo);
1891     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1892
1893     ret = FreeDDElParam(WM_DDE_POKE, lparam);
1894     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1895
1896     hglobal = GlobalFree((HGLOBAL)lparam);
1897     ok(hglobal == (HGLOBAL)lparam, "Expected lparam, got %d\n", ret);
1898     ok(GetLastError() == ERROR_INVALID_HANDLE,
1899        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1900
1901     lparam = PackDDElParam(WM_DDE_EXECUTE, 0xcafe, 0xbeef);
1902     ok(lparam == 0xbeef, "Expected 0xbeef, got %08lx\n", lparam);
1903     ok(GlobalLock((HGLOBAL)lparam) == NULL,
1904        "Expected NULL, got %p\n", GlobalLock((HGLOBAL)lparam));
1905     ok(GetLastError() == ERROR_INVALID_HANDLE,
1906        "Expected ERROR_INVALID_HANDLE, got %d\n", GetLastError());
1907
1908     lo = hi = 0;
1909     ret = UnpackDDElParam(WM_DDE_EXECUTE, lparam, &lo, &hi);
1910     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1911     ok(lo == 0, "Expected 0, got %08lx\n", lo);
1912     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1913
1914     ret = FreeDDElParam(WM_DDE_EXECUTE, lparam);
1915     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1916 }
1917
1918 static void test_UnpackDDElParam(void)
1919 {
1920     UINT_PTR lo, hi, *ptr;
1921     HGLOBAL hglobal;
1922     BOOL ret;
1923
1924     /* NULL lParam */
1925     lo = 0xdead;
1926     hi = 0xbeef;
1927     ret = UnpackDDElParam(WM_DDE_INITIATE, (LPARAM)NULL, &lo, &hi);
1928     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1929     ok(lo == 0, "Expected 0, got %08lx\n", lo);
1930     ok(hi == 0, "Expected 0, got %08lx\n", hi);
1931
1932     /* NULL lo */
1933     lo = 0xdead;
1934     hi = 0xbeef;
1935     ret = UnpackDDElParam(WM_DDE_INITIATE, 0xcafebabe, NULL, &hi);
1936     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1937     ok(lo == 0xdead, "Expected 0xdead, got %08lx\n", lo);
1938     ok(hi == 0xcafe, "Expected 0xcafe, got %08lx\n", hi);
1939
1940     /* NULL hi */
1941     lo = 0xdead;
1942     hi = 0xbeef;
1943     ret = UnpackDDElParam(WM_DDE_INITIATE, 0xcafebabe, &lo, NULL);
1944     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1945     ok(lo == 0xbabe, "Expected 0xbabe, got %08lx\n", lo);
1946     ok(hi == 0xbeef, "Expected 0xbeef, got %08lx\n", hi);
1947
1948     lo = 0xdead;
1949     hi = 0xbeef;
1950     ret = UnpackDDElParam(WM_DDE_INITIATE, 0xcafebabe, &lo, &hi);
1951     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1952     ok(lo == 0xbabe, "Expected 0xbabe, got %08lx\n", lo);
1953     ok(hi == 0xcafe, "Expected 0xcafe, got %08lx\n", hi);
1954
1955     lo = 0xdead;
1956     hi = 0xbeef;
1957     ret = UnpackDDElParam(WM_DDE_TERMINATE, 0xcafebabe, &lo, &hi);
1958     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1959     ok(lo == 0xbabe, "Expected 0xbabe, got %08lx\n", lo);
1960     ok(hi == 0xcafe, "Expected 0xcafe, got %08lx\n", hi);
1961
1962     lo = 0xdead;
1963     hi = 0xbeef;
1964     ret = UnpackDDElParam(WM_DDE_ADVISE, (LPARAM)NULL, &lo, &hi);
1965     ok(ret == FALSE, "Expected FALSE, got %d\n", ret);
1966     ok(lo == 0, "Expected 0, got %08lx\n", lo);
1967     ok(hi == 0, "Expected 0, got %08lx\n", hi);
1968
1969     lo = 0xdead;
1970     hi = 0xbeef;
1971     ret = UnpackDDElParam(WM_DDE_ADVISE, 0xcafebabe, &lo, &hi);
1972     ok(ret == FALSE, "Expected FALSE, got %d\n", ret);
1973     ok(lo == 0, "Expected 0, got %08lx\n", lo);
1974     ok(hi == 0, "Expected 0, got %08lx\n", hi);
1975
1976     hglobal = GlobalAlloc(GMEM_DDESHARE, 2);
1977     ptr = GlobalLock(hglobal);
1978     ptr[0] = 0xcafebabe;
1979     ptr[1] = 0xdeadbeef;
1980     GlobalUnlock(hglobal);
1981
1982     lo = 0xdead;
1983     hi = 0xbeef;
1984     ret = UnpackDDElParam(WM_DDE_ADVISE, (LPARAM)hglobal, &lo, &hi);
1985     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1986     ok(lo == 0xcafebabe, "Expected 0xcafebabe, got %08lx\n", lo);
1987     ok(hi == 0xdeadbeef, "Expected 0xdeadbeef, got %08lx\n", hi);
1988
1989     lo = 0xdead;
1990     hi = 0xbeef;
1991     ret = UnpackDDElParam(WM_DDE_UNADVISE, 0xcafebabe, &lo, &hi);
1992     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
1993     ok(lo == 0xbabe, "Expected 0xbabe, got %08lx\n", lo);
1994     ok(hi == 0xcafe, "Expected 0xcafe, got %08lx\n", hi);
1995
1996     lo = 0xdead;
1997     hi = 0xbeef;
1998     ret = UnpackDDElParam(WM_DDE_ACK, 0xcafebabe, &lo, &hi);
1999     ok(ret == FALSE, "Expected FALSE, got %d\n", ret);
2000     ok(lo == 0, "Expected 0, got %08lx\n", lo);
2001     ok(hi == 0, "Expected 0, got %08lx\n", hi);
2002
2003     lo = 0xdead;
2004     hi = 0xbeef;
2005     ret = UnpackDDElParam(WM_DDE_ACK, (LPARAM)hglobal, &lo, &hi);
2006     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
2007     ok(lo == 0xcafebabe, "Expected 0xcafebabe, got %08lx\n", lo);
2008     ok(hi == 0xdeadbeef, "Expected 0xdeadbeef, got %08lx\n", hi);
2009
2010     lo = 0xdead;
2011     hi = 0xbeef;
2012     ret = UnpackDDElParam(WM_DDE_DATA, 0xcafebabe, &lo, &hi);
2013     ok(ret == FALSE, "Expected FALSE, got %d\n", ret);
2014     ok(lo == 0, "Expected 0, got %08lx\n", lo);
2015     ok(hi == 0, "Expected 0, got %08lx\n", hi);
2016
2017     lo = 0xdead;
2018     hi = 0xbeef;
2019     ret = UnpackDDElParam(WM_DDE_DATA, (LPARAM)hglobal, &lo, &hi);
2020     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
2021     ok(lo == 0xcafebabe, "Expected 0xcafebabe, got %08lx\n", lo);
2022     ok(hi == 0xdeadbeef, "Expected 0xdeadbeef, got %08lx\n", hi);
2023
2024     lo = 0xdead;
2025     hi = 0xbeef;
2026     ret = UnpackDDElParam(WM_DDE_REQUEST, 0xcafebabe, &lo, &hi);
2027     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
2028     ok(lo == 0xbabe, "Expected 0xbabe, got %08lx\n", lo);
2029     ok(hi == 0xcafe, "Expected 0xcafe, got %08lx\n", hi);
2030
2031     lo = 0xdead;
2032     hi = 0xbeef;
2033     ret = UnpackDDElParam(WM_DDE_POKE, 0xcafebabe, &lo, &hi);
2034     ok(ret == FALSE, "Expected FALSE, got %d\n", ret);
2035     ok(lo == 0, "Expected 0, got %08lx\n", lo);
2036     ok(hi == 0, "Expected 0, got %08lx\n", hi);
2037
2038     lo = 0xdead;
2039     hi = 0xbeef;
2040     ret = UnpackDDElParam(WM_DDE_POKE, (LPARAM)hglobal, &lo, &hi);
2041     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
2042     ok(lo == 0xcafebabe, "Expected 0xcafebabe, got %08lx\n", lo);
2043     ok(hi == 0xdeadbeef, "Expected 0xdeadbeef, got %08lx\n", hi);
2044
2045     lo = 0xdead;
2046     hi = 0xbeef;
2047     ret = UnpackDDElParam(WM_DDE_EXECUTE, 0xcafebabe, &lo, &hi);
2048     ok(ret == TRUE, "Expected TRUE, got %d\n", ret);
2049     ok(lo == 0, "Expected 0, got %08lx\n", lo);
2050     ok(hi == 0xcafebabe, "Expected 0xcafebabe, got %08lx\n", hi);
2051 }
2052
2053 START_TEST(dde)
2054 {
2055     int argc;
2056     char **argv;
2057     char buffer[MAX_PATH];
2058     STARTUPINFO startup;
2059     PROCESS_INFORMATION proc;
2060
2061     argc = winetest_get_mainargs(&argv);
2062     if (argc == 3)
2063     {
2064         if (!lstrcmpA(argv[2], "ddeml"))
2065             test_ddeml_client();
2066         else if (!lstrcmpA(argv[2], "msg"))
2067             test_msg_client();
2068
2069         return;
2070     }
2071
2072     ZeroMemory(&startup, sizeof(STARTUPINFO));
2073     sprintf(buffer, "%s dde ddeml", argv[0]);
2074     startup.cb = sizeof(startup);
2075     startup.dwFlags = STARTF_USESHOWWINDOW;
2076     startup.wShowWindow = SW_SHOWNORMAL;
2077
2078     CreateProcessA(NULL, buffer, NULL, NULL, FALSE,
2079                    0, NULL, NULL, &startup, &proc);
2080
2081     test_msg_server(proc.hProcess);
2082
2083     sprintf(buffer, "%s dde msg", argv[0]);
2084     CreateProcessA(NULL, buffer, NULL, NULL, FALSE,
2085                    0, NULL, NULL, &startup, &proc);
2086
2087     test_ddeml_server(proc.hProcess);
2088
2089     test_dde_aw_transaction();
2090
2091     test_DdeCreateDataHandle();
2092     test_DdeCreateStringHandle();
2093     test_FreeDDElParam();
2094     test_PackDDElParam();
2095     test_UnpackDDElParam();
2096 }