IRunningObjectTable* pTable = NULL; 
    GetRunningObjectTable(0, &pTable);
    if(pTable)
    {
        IEnumMoniker* pEnum = NULL;
        pTable->EnumRunning(&pEnum);
        if(pEnum)
        {
            HRESULT hRes = S_OK;
            pEnum->Reset();
            
            while(hRes == S_OK)
            {
                ULONG iFetch;
                IMoniker* pMoniker = NULL;
                hRes = pEnum->Next(1, &pMoniker, &iFetch);
                if(hRes == S_OK) 
                {
                    if(pMoniker)
                    {                        
                        IUnknown* pUnk = NULL;
                        pTable->GetObject(pMoniker, &pUnk);
                        if(pUnk)
                        {
                            ITDMSApplication* ppTDMSApp;
                            
                            pUnk->QueryInterface(IID_ITDMSApplication, (void**)&ppTDMSApp);
                            if(ppTDMSApp)
                            {
                                ppTDMSApp->Release();
                            }
                            pUnk->Release();
                        }
                        pMoniker->Release();
                    }
                }
            }
        }

        pTable->Release();
    }