[求助]：怎样判定AutoCAD已经安装？

JackeyLee

我做的一个软件需要配合AutoCAD使用，请问，在做安装程序的时候，怎么判定AutoCAD已经安装了呢？
我用的是InstalShield 10。

横刀立马

IAcadApplication IAcadApp;
        HRESULT hr = NOERROR;
        CLSID clsid;
        LPUNKNOWN pUnk = NULL;
        LPDISPATCH pDisp = NULL;
        CoInitialize(NULL);
        hr = ::CLSIDFromProgID(L"AutoCAD.Application", &clsid);
       
        if (SUCCEEDED(hr))
        {
                if(::GetActiveObject(clsid, NULL, &pUnk) == S_OK)
                {  // Already opened Acad Session...attach ourselves
                        VERIFY(pUnk->QueryInterface(IID_IDispatch, (LPVOID*)
                                &pDisp) == S_OK);
                        IAcadApp.AttachDispatch(pDisp);
                        pUnk->Release();
                }
                else  // We must invoke our instance of AutoCAD...
                        VERIFY(IAcadApp.CreateDispatch(clsid) == TRUE);
               
                IAcadApp.SetVisible(TRUE);               
        }
        else       
        {
                AfxMessageBox("没有正确安装AutoCAD,\r\n请核对后运行",MB_ICONERROR | MB_OK);
                exit(0);
        }