METTRE UN HBITMAP DANS UN RICHEDIT

#define ZERO_FIN    1
/*=========================== Pour insérer une bitmap dans un RichEdit ==========================*/
bool InsererBitmap(HWND RichEdithWnd, HBITMAP hBitmap)
{
    IDataObject * pDataObject;
    IOleObject * pOleObject;
    IStorage * pStorage;
    IOleClientSite * pOleClientSite;
    LPLOCKBYTES LPLockBytes = NULL;
    FORMATETC FormatEtc;
    IRichEditOle * pRichEditOle;
    SCODE SCode;
    REOBJECT ReObject;
    CLSID ClSid;
    char * Texte = "";
    static char Texte2[] = "";
    HGLOBAL hGlobal;

    CoInitialize(NULL);
    if(OpenClipboard(NULL))
    {
        Texte = new char[256 + ZERO_FIN];
        Texte = (CHAR *)GetClipboardData(CF_TEXT);
        sprintf(Texte2, "%s", Texte);
        EmptyClipboard();
        SetClipboardData(CF_BITMAP, hBitmap);
        CloseClipboard();
    }
    else return 0;

    hGlobal = GlobalAlloc(GMEM_DDESHARE, strlen(Texte2) + 1);
    Texte = (CHAR *)GlobalLock(hGlobal);
    sprintf(Texte, "%s", Texte2);
    GlobalUnlock(hGlobal);

    SendMessage(RichEdithWnd, EM_GETOLEINTERFACE, 0, (LPARAM)&pRichEditOle);
    if (pRichEditOle == NULL) return 0;

    OleGetClipboard(&pDataObject);
    if (pDataObject == NULL) return 0;

    FormatEtc.cfFormat = CF_BITMAP;
	FormatEtc.ptd = NULL;
	FormatEtc.dwAspect = DVASPECT_CONTENT;
	FormatEtc.lindex = -1;
	FormatEtc.tymed = TYMED_GDI;

    pRichEditOle->GetClientSite(&pOleClientSite);
    if (pOleClientSite == NULL) return 0;

    SCode = CreateILockBytesOnHGlobal(NULL, true, &LPLockBytes);
    if (LPLockBytes == NULL) return 0;

    SCode = StgCreateDocfileOnILockBytes(LPLockBytes, STGM_SHARE_EXCLUSIVE|STGM_CREATE|STGM_READWRITE, 0, &pStorage);
    if (pStorage == NULL) return 0;

    OleCreateStaticFromData(pDataObject, IID_IOleObject, 2, &FormatEtc, pOleClientSite, pStorage, (void**)&pOleObject);
    if (pOleObject == NULL) return 0;

    OleSetContainedObject(pOleObject, true);

    ZeroMemory(&ReObject, sizeof(REOBJECT));
    ReObject.cbStruct = sizeof(REOBJECT);

    SCode = pOleObject -> GetUserClassID(&ClSid);

    ReObject.clsid = ClSid;
    ReObject.cp = REO_CP_SELECTION;
    ReObject.dvaspect = DVASPECT_CONTENT;
    ReObject.poleobj = pOleObject;
    ReObject.polesite = pOleClientSite;
    ReObject.pstg = pStorage;

    pRichEditOle -> InsertObject(&ReObject);

    if(OpenClipboard(NULL))
    {
        EmptyClipboard();
        SetClipboardData(CF_TEXT, hGlobal);
        CloseClipboard();
    }
    else return 0;

    LPLockBytes -> Release();
    pRichEditOle -> Release();
    pOleObject -> Release();
    pOleClientSite -> Release();
    pStorage -> Release();
    pDataObject -> Release();

    CoUninitialize();

    return 1;
}