[求助]：vc怎么检测autocad是否在运行？

zsl_007

如果我要让autocad只能运行一次怎么办？望高手赐教！

indal

1. 
   
2.   [FONT=courier new]
   
3. void CExcelaDlg::OnAutocadtest()
   
4. {
   
5.         // TODO: Add your control notification handler code here
   
6.         IAcadApplication m_autocad;
   
7.         IAcadDocuments m_acaddocs;
   
8.         IAcadDocument  m_acaddoc;
   
9.         IAcadModelSpace m_acadmodel;
   
10. 
    
11.         LPDISPATCH pDisp;
    
12.         LPUNKNOWN pUnk;
    
13.         CLSID clsid;
    
14.         BeginWaitCursor();
    
15.         ::CLSIDFromProgID(L"AutoCAD.Application",&clsid);
    
16.         if(::GetActiveObject(clsid,NULL,&pUnk)==S_OK)
    
17.         {
    
18.                 VERIFY(pUnk->QueryInterface(IID_IDispatch,(void**) &pDisp)==S_OK);
    
19.                 m_autocad.AttachDispatch(pDisp);
    
20.                 pUnk->Release();
    
21.         }
    
22.         else
    
23.         {
    
24.                 if(!m_autocad.CreateDispatch("AutoCAD.Application"))
    
25.                 {
    
26.                         AfxMessageBox("Autocad program not found\n");
    
27.                         exit(1);
    
28.                 }
    
29.         }
    
30.         m_autocad.SetVisible(true);
    
31.         m_acaddocs.AttachDispatch(m_autocad.GetDocuments(),true);
    
32.         m_acaddoc.AttachDispatch(m_acaddocs.Add(vtMissing),true);
    
33.         m_acadmodel.AttachDispatch(m_acaddoc.GetModelSpace(),true);
    
34.         m_acadmodel.AddCircle(pVal,100);
    
35.        
    
36.         m_acadmodel.ReleaseDispatch();
    
37.         m_acaddoc.ReleaseDispatch();
    
38.         m_acaddocs.ReleaseDispatch();
    
39.         m_autocad.ReleaseDispatch();
    
40. 
    
41. 
    
42.   [/FONT]
    

复制代码

rave

最初由 zsl_007 发布
[B]如果我要让autocad只能运行一次怎么办？望高手赐教！ [/B]

有几个办法：
1.致信Autodesk，要求autocad自身只能运行一个实例
2.自己写个 Windows 外壳(Shell), 监控，只允许运行一个实例
3.拦截WinExec()

DARCY

"1.致信Autodesk，要求autocad自身只能运行一个实例"?
这个方法行的通吗?  若以个人的名义致信Autodesk呢?
请赐教.

zsl_007

indal,你用的是com调用吧，可不可以稍微解释一下，有好多东东我不知道是怎么来的！
我用等待线程的方式也实现了，给大家看看！
        AfxGetMainWnd()->BeginWaitCursor();//设置等待光标
        long errorflag;
        //从注册表获得autocad的路径
        errorflag=RegOpenKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\\autodesk\\autocad\\r15.0\\acad-1:804",0,KEY_ALL_ACCESS,&hkey);
        if (errorflag!=ERROR_SUCCESS)
        {
                //AfxMessageBox("AutoCad2000未安装，请先安装AutoCad2000！");
                return;
        }
        errorflag=RegQueryValueEx(hkey,"acadlocation",NULL,&dwtype, (LPBYTE)KeyValue,&Len);
        if (errorflag!=ERROR_SUCCESS)
        {
                //AfxMessageBox("AutoCad2000未安装，请先安装AutoCad2000！");
                return;
        }
        AppPath="acad.exe";
        //创建进程，执行AutoCAD并在启动时执行绘图程序
        flag=CreateProcess((LPCSTR)AppPath,NULL,NULL,NULL,FALSE,NORMAL_PRIORITY_CLASS,NULL,GetAppPath(),&StartupInfo,&ProcessInformation);
        if (flag)
        {
                AfxGetMainWnd()->ShowWindow(SW_HIDE);//隐藏主窗口
                WaitForSingleObject(ProcessInformation.hProcess,INFINITE);//等待AutoCAD执行完毕
                AfxGetMainWnd()->ShowWindow(SW_SHOW);//显示主窗口
                AfxGetMainWnd()->SetFocus();//恢复主窗口的焦点
        }

        AfxGetMainWnd()->EndWaitCursor();//结束等待光标

liron

我有一方法，自己开发一ARX程序，该程序检测内存中是否有autocad在运行，如有就马上向当前autoca运行实例发退出命令，用注册表方法加载该ARX程序，OK！

检测进程实例是否存在，用到VC的知识，到www.vccode.com
和www.vckbase.com
两个站点找这方面的例程很多。

binbin

如果获得autocad的路径会不会有多种情况?R14 R2000 R2000i R2002的Key值是否一样?各语言版本的Key值是否一样?请指教!

reader

好像不一样吧，比如中文和英文ACAD2K在注册表中的curVer值就不一样。
使用中我是先读curVer的键值，然后再找相应的项去读Path的，虽然没错，
但也老觉得不保险。

COM的GetPath()方法得到的一定是正确的。

netbee

在程序中不用COM方法能判断AutoCAD进程是否存在吗？

RedCAD

我用VB去驱动AutoCAD,用VB做程序启动界面比较容易，而且也很稳定。

Hellow

实际上这个问题说得比较泛，有以下几点要澄清：
1、是否只允许特定版本的CAD在本地只有一个实例
2、是否只允许特定客户程序启动CAD一次
如果全部按照泛指，即只允许本地机器上只有一个CAD实例在运行，并且不论他的启动方式如何，那最好的办法是采用函数钩子法来处理：Windows系统范围内对CreateProcessA(W)、CreateProcessAsUserA(W)设置钩子，监视所有进程创建与销毁。简化实现为CBT钩子，但对于OLE方式的CAD启动好像检测不到。

peaked

正在找这个