#include "precomp.h"

START_TEST(CreateIconFromResourceEx)
{
    HCURSOR hcur1, hcur2;
    HMODULE hMod;
    HRSRC hResource;    // handle to FindResource  
    HRSRC hMem;         // handle to LoadResource 
    BYTE *lpResource;   // pointer to resource data
    DWORD err;
    int wResId;
    
    hMod = GetModuleHandle(NULL);
    ok(hMod != NULL, "\n");
    /* Create a shared cursor */
    hcur1 = LoadCursor(hMod, "TESTCURSOR");
    ok(hcur1 != NULL, "\n");
    
    /* Create it manually using CreateIconFromResourceEx */
    hResource = FindResourceA(hMod, 
                            "TESTCURSOR", 
                            RT_GROUP_CURSOR);
    ok(hResource != NULL, "\n");
    
    hMem = LoadResource(hMod, hResource); 
    ok(hMem != NULL, "\n");
 
    lpResource = LockResource(hMem); 
    ok(lpResource != NULL, "\n");
    
    /* MSDN states that LR_SHARED permits to not load twice the same cursor again.
     * But CreateIconFromResourceEx still returns two different handles */
    hcur2 = CreateIconFromResourceEx(lpResource, SizeofResource(hMod, hResource), FALSE, 0x00030000, 0, 0, LR_SHARED);
    ok(hcur2 != NULL, "\n");
    ok(hcur2 != hcur1, "\n");
    hcur1 = CreateIconFromResourceEx(lpResource, SizeofResource(hMod, hResource), FALSE, 0x00030000, 0, 0, LR_SHARED);
    ok(hcur1 != NULL, "\n");
    ok(hcur2 != hcur1, "\n");
    
    /* Try to destroy them multiple times (see DestroyCursor test) */
    ok(DestroyCursor(hcur1), "\n");
    ok(DestroyCursor(hcur1), "\n");
    ok(DestroyCursor(hcur2), "\n");
    ok(DestroyCursor(hcur2), "\n");

    /* See what happens if we ask for an icon on a cursor resource (directory) */
    SetLastError(0x0badf00d);
    hcur1 = CreateIconFromResourceEx(lpResource, SizeofResource(hMod, hResource), TRUE, 0x00030000, 0, 0, 0);
    ok(hcur1 == NULL, "\n");
    err = GetLastError();
    ok(err == 0x0badf00d, "err: %lu\n", err);

    /* Same tests, but for cursor resource (not directory) */
    wResId = LookupIconIdFromDirectoryEx(lpResource, FALSE, 0, 0, 0);
    ok(wResId != 0, "\n");
    FreeResource(hResource);

    hResource = FindResourceA(hMod, MAKEINTRESOURCEA(wResId), RT_CURSOR);
    ok(hResource != NULL, "\n");

    hMem = LoadResource(hMod, hResource); 
    ok(hMem != NULL, "\n");
 
    lpResource = LockResource(hMem); 
    ok(lpResource != NULL, "\n");
    
    /* MSDN states that LR_SHARED permits to not load twice the same cursor again.
     * But CreateIconFromResourceEx still returns two different handles */
    hcur2 = CreateIconFromResourceEx(lpResource, SizeofResource(hMod, hResource), FALSE, 0x00030000, 0, 0, LR_SHARED);
    ok(hcur2 != NULL, "\n");
    ok(hcur2 != hcur1, "\n");
    hcur1 = CreateIconFromResourceEx(lpResource, SizeofResource(hMod, hResource), FALSE, 0x00030000, 0, 0, LR_SHARED);
    ok(hcur1 != NULL, "\n");
    ok(hcur2 != hcur1, "\n");
    
    /* Try to destroy them multiple times (see DestroyCursor test) */
    ok(DestroyCursor(hcur1), "\n");
    ok(DestroyCursor(hcur1), "\n");
    ok(DestroyCursor(hcur2), "\n");
    ok(DestroyCursor(hcur2), "\n");

    /* See what happens if we ask for an icon on a cursor resource (no directory) */
    SetLastError(0x0badf00d);
    hcur1 = CreateIconFromResourceEx(lpResource, SizeofResource(hMod, hResource), TRUE, 0x00030000, 0, 0, 0);
    ok(hcur1 == NULL, "\n");
    err = GetLastError();
    ok(err == 0x0badf00d, "err: %lu\n", err);
}