OLE(Object Linking and Embedding)?

//Задание типов указателей на функции 
typedef void* (*PFNALLOC)(ULONG);
typedef void* (*PFNREALLOC)(void*, ULONG);
typedef void* (*PFNFREE)(void*);
typedef void* (*PFNGERSIZE)(void*);
typedef void* (*PFNDIDALLOC)(void*);
typedef void* (*PFNHEAPMINIMIZE)(void);
 
//Определение структуры с указателями на функции.
typedef struct tagALLOCATOR
{
    PFNALLOC          Alloc;
    PFNREALLOC        Realloc;
    PFNFREE           Free;
    PFNGETSIZE        GetSize;
    PFNDIDALLOC       DidAlloc;
    PFNHEAPMINIMIZE   HeapMinimize;
} ALLOCATOR;
 
ALLOCATOR imalloc = { Alloc, Realloc, Free, GetSize, DidAlloc, 
                      HeapMinimize };
                      
ALLOCATOR* FetchAllocator()
{
    return &imalloc;
}

typedef struct IMallocVtbl
    {
        BEGIN_INTERFACE
        
        HRESULT ( STDMETHODCALLTYPE *QueryInterface )( 
            IMalloc * This,
            /* [in] */ REFIID riid,
            /* [annotation][iid_is][out] */ 
            _COM_Outptr_  void **ppvObject);
        //.....
        END_INTERFACE
    } IMallocVtbl;
 
    interface IMalloc
    {
        CONST_VTBL struct IMallocVtbl *lpVtbl;
    };

void* DAlloc(ULONG cb)
{
    return HeapAlloc(hHeap, HEAP_ZERO_MEMORY, cb);
}
 
 
void* DRealloc(void* pv, ULONG cb)
{
    return HeapReAlloc(hHeap, HEAP_ZERO_MEMORY, pv, cb);
}
 
BOOL DFree(void* pv)
{
    return HeapFree(hHeap, HEAP_ZERO_MEMORY, pv);
}
 
SIZE_T DGetSize(LPCVOID pv)
{
    return HeapSize(hHeap, HEAP_ZERO_MEMORY, pv);
}
 
BOOL DDidAlloc(LPCVOID pv)
{
    PROCESS_HEAP_ENTRY phe = {0};
    while(HeapWalk(hHeap, &phe))
    {
        if(phe.lpData == pv)
            return TRUE;
    }
    
    return FALSE;
}
 
SIZE_T DHeapMinimize(VOID)
{
    return HeapCompact(hHeap, HEAP_ZERO_MEMORY);
}
 
 
//Задание типов указателей на функции 
typedef void* (*PFNALLOC)(ULONG);
typedef void* (*PFNREALLOC)(void*, ULONG);
typedef BOOL (*PFNFREE)(void*);
typedef SIZE_T (*PFNGETSIZE)(void*);
typedef BOOL (*PFNDIDALLOC)(void*);
typedef SIZE_T (*PFNHEAPMINIMIZE)(void);
 
//Определение структуры с указателями на функции.
typedef struct tagALLOCATOR
{
    PFNALLOC          Alloc = DAlloc;
    PFNREALLOC        Realloc = DRealloc;
    PFNFREE           Free = DFree;
    PFNGETSIZE        GetSize = DGetSize;
    PFNDIDALLOC       DidAlloc = DDidAlloc;
    PFNHEAPMINIMIZE   HeapMinimize = DHeapMinimize;
} ALLOCATOR;
 
    
 
ALLOCATOR imalloc = { Alloc, Realloc, Free, GetSize, DidAlloc, 
                      HeapMinimize };
                      
ALLOCATOR* FetchAllocator()
{
    return &imalloc;
}
 
/* структура которая будет реализовывать интерфейс */
struct ExampleClass {
    /* так выглядит наследование в си */
    IMallocVtbl *lpVtbl;
    
    /* если нужно унаследоваться от других интерфейсов, добавляем ещё ссылки на Vtable других интерфейсов */
    /* поля */
    /* счётчик ссылок */
    ULONG RefCount;
    /* добавить любые данные которые нужны */
 
};
 
 
 
ExampleClass* pEx = (ExampleClass*)malloc(sizeof(ExampleClass));
pEx.lpVtbl = (IMallocVtbl*)FetchAllocator();
 
//...
free(pFn);

/* структура которая будет реализовывать интерфейс */
struct ExampleClass {
    /* так выглядит наследование в си */
    IMallocVtbl *lpVtbl;
    
    /* если нужно унаследоваться от других интерфейсов, добавляем ещё ссылки на Vtable других интерфейсов */
    /* поля */
    /* счётчик ссылок */
    ULONG RefCount;
    /* добавить любые данные которые нужны */
 
};
 
ULONG DAddRef(ExampleClass* this)
{
    return this->RefCount++;
}
 
ULONG DRelease(ExampleClass* this)
{
    if(0 != --this->RefCount)
        return this->RefCount;
    
    free(this);
    
    return 0;
}
 
HRESULT DQueryInterface(ExampleClass* this, const REFIID riid, (void**)&ppvObj)
{
    *ppvObj = NULL;
    
    if(riid == IID_IUNKNOWN)
        *ppvObj = static_cast<LPUNKNOWN>(this);
    if(riid == IID_IMALLOC)
        *ppvObj = static_cast<LPMALLOC>(this);
    if(*ppvObj == NULL)
    {
        //Interface not supported 
        return E_NOINTERFACE;
    }   
    else 
    {
        //Interface supported, so increment reference count
        ((LPUNKNOWN)*ppvObj)->AddRef();
        return S_OK;
    }
}
 
 
void* DAlloc(ExampleClass* this, SIZE_T cb)
{
    return HeapAlloc(this->hHeap, HEAP_ZERO_MEMORY, cb);
}
 
 
void* DRealloc(ExampleClass* this, void* pv, SIZE_T cb)
{
    return HeapReAlloc(this->hHeap, HEAP_ZERO_MEMORY, pv, cb);
}
 
BOOL DFree(ExampleClass* this, void* pv)
{
    return HeapFree(this->hHeap, HEAP_ZERO_MEMORY, pv);
}
 
SIZE_T DGetSize(ExampleClass* this, LPCVOID pv)
{
    return HeapSize(this->hHeap, HEAP_ZERO_MEMORY, pv);
}
 
BOOL DDidAlloc(ExampleClass* this, LPCVOID pv)
{
    PROCESS_HEAP_ENTRY phe = {0};
    while(HeapWalk(this->hHeap, &phe))
    {
        if(phe.lpData == pv)
            return TRUE;
    }
    
    return FALSE;
}
 
SIZE_T DHeapMinimize(ExampleClass* this, VOID)
{
    return HeapCompact(this->hHeap, HEAP_ZERO_MEMORY);
}
 
 
//Задание типов указателей на функции 
typedef ULONG (*PFNADDREF(ExampleClass*);
typedef ULONG (*PFNRELEASE(ExampleClass*);
typedef HRESULT (*PFNQUERYINTERFACE(ExampleClass*, const REFIID, void**);
typedef void* (*PFNALLOC)(ULONG);
typedef void* (*PFNREALLOC)(void*, ULONG);
typedef BOOL (*PFNFREE)(void*);
typedef SIZE_T (*PFNGETSIZE)(void*);
typedef BOOL (*PFNDIDALLOC)(void*);
typedef SIZE_T (*PFNHEAPMINIMIZE)(void);
 
//Определение структуры с указателями на функции.
typedef struct tagALLOCATOR
{
    //IUnknown Interface 
    PFNADDREF         AddRef = DAddRef;
    PFNRELEASE        Release = DRelease;
    PFNQUERYINTERFACE QueryInterface = DQueryInterface;
    
    
    //IMalloc Interface
    PFNALLOC          Alloc = DAlloc;
    PFNREALLOC        Realloc = DRealloc;
    PFNFREE           Free = DFree;
    PFNGETSIZE        GetSize = DGetSize;
    PFNDIDALLOC       DidAlloc = DDidAlloc;
    PFNHEAPMINIMIZE   HeapMinimize = DHeapMinimize;
} ALLOCATOR;
 
    
 
ALLOCATOR imalloc = { AddRef, Release, QueryInterface, Alloc, 
                      Realloc, Free, GetSize, DidAlloc, HeapMinimize };
                      
ALLOCATOR* FetchAllocator()
{
    return &imalloc;
}
 
ExampleClass* pEx = (ExampleClass*)malloc(sizeof(ExampleClass));
pEx->lpVtbl = (IMallocVtbl*)FetchAllocator();
 
//...
free(pFn);

//{308D0430-1090-11CF-B92A-00AA006238F8}
DEFINE_GUID(CLSID_ALLOCATOR, 0x308D0430, 0x1090, 0x11cf, 0xb9,
                             0x2a, 0x0, 0xaa, 0x0, 0x38, 0xf8);
HRESULT hr =
                CoCreateInstance(CLSID_ALLOCATOR,
                    NULL,
                    CLSCTX_INPROC_SERVER,
                    IID_IMalloc,
                    (void**)&pMalloc);

case IDM_CREATE:
        {
            HRESULT hr =
                CoCreateInstance(&CLSID_ALLOCATOR,
                    NULL,
                    CLSCTX_INPROC_SERVER,
                    &IID_IMalloc,
                    (void**)&pMalloc);
 
            if (FAILED(hr))
            {
                MessageBox(hwnd, TEXT("Error: No allocator"),
                    szAppName, MB_OK);
                return 0;
            }
 
            InvalidateRect(hwnd, NULL, TRUE);
            return 0;
        }