Исходный код

//---------------------------------------------------------
// Показывает диалог удаления объекта.
//---------------------------------------------------------

// выбрать объект
MessageBox(NULL, "Укажите удаляемый объект", "TDMS Example", MB_OK | MB_ICONINFORMATION);
CComPtr<ITDMSObject> pObject;
if (SelectObject(&pObject, pApp, NULL)) 
{
    MessageBox(NULL, "Укажите объект из состава которого нужно удалить", "TDMS Example", MB_OK | MB_ICONINFORMATION);
    CComPtr<ITDMSObject> pUplink;
    CComPtr<ITDMSObjects> pUplinks;
    CheckError(pObject->get_Uplinks(&pUplinks));
    SelectObject(&pUplink, pApp, pUplinks);

    // показать диалог удаления объекта
    CComPtr<ITDMSDialogs> pDialogs;
    CheckError(pApp->get_Dialogs(&pDialogs));
    CComPtr<ITDMSRemoveObjectDlg> pRemoveObjectDlg;
    CheckError(pDialogs->get_RemoveObjectDlg(&pRemoveObjectDlg));
    CheckError(pRemoveObjectDlg->put_Object(pObject));
    if (pUplink != NULL)
        CheckError(pRemoveObjectDlg->put_ParentObject(pUplink));
    VARIANT_BOOL bResult;
    CheckError(pRemoveObjectDlg->Show(&bResult));
}