我想要一段C++使用GetTypeFromProgID调用COM组件的代码

好的，以下是一段使用GetTypeFromProgID调用COM组件的C代码示例：

#include <Windows.h>
#include <tchar.h>
#include <comdef.h>

int main(int argc, char* argv[])
{
    HRESULT hr = CoInitialize(NULL);
    if (SUCCEEDED(hr))
    {
        CLSID clsid;
        hr = CLSIDFromProgID(_T("Excel.Application"), &clsid); //获取Excel.Application的CLSID
        if (SUCCEEDED(hr))
        {
            IDispatch* pExcel = NULL;
            hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void**)&pExcel); //创建Excel应用程序实例
            if (SUCCEEDED(hr))
            {
                //调用Excel应用程序的Visible属性，使其可见
                DISPID dispid;
                LPOLESTR lpOleStr = L"Visible";
                hr = pExcel->GetIDsOfNames(IID_NULL, &lpOleStr, 1, LOCALE_USER_DEFAULT, &dispid);
                if (SUCCEEDED(hr))
                {
                    VARIANT var;
                    VariantInit(&var);
                    var.vt = VT_BOOL;
                    var.boolVal = TRUE;
                    DISPPARAMS dispparams = { NULL, NULL, 0, 0 };
                    hr = pExcel->Invoke(dispid, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYPUT, &dispparams, &var, NULL, NULL);
                    if (SUCCEEDED(hr))
                    {
                        //...
                    }
                    VariantClear(&var); //清除VARIANT变量
                }
                pExcel->Release(); //释放IDispatch对象
            }
        }
        CoUninitialize(); //释放COM库
    }
    return 0;
}

这段代码的作用是打开Excel应用程序，并将其设置为可见状态。其中，CLSIDFromProgID函数用于获取Excel应用程序的CLSID，CoCreateInstance函数用于创建Excel应用程序实例，GetIDsOfNames函数用于获取Excel应用程序的Visible属性的DISPID，Invoke函数用于设置Excel应用程序的Visible属性为TRUE。