AutoCAD二次开发程序的自动安装处理

DWORD dwWrite=0;
BRet=WriteFile(hfile, szBuf, Lstrlen(szBuf), &dwWrite, NULL);
If (!bRet) Printerror();
}
CloseHandle(hfile);
}

上述操作中用CreateFile函数打开文件，SetFilePointer函数将指针移至文件末尾，字符串数组szBuf中装有欲添加的内容，以WriteFile函数写入，PrintError为自编的错误处理函数。

以同样的方法可以找到acad2000doc.lsp文件并添入内容。

以下操作将创建一个名为“C:\hkcam”的子目录，并将事先准备好的本程序所在目录下的所有文件拷贝进去：

Cstring nam1, nam2;
BOOL bCreate=CreateDirectory("C:\\hkcam", NULL);//创建子目录
CfileFind finder; ／／创建类对象
BOOL b Working=finder.FindFile("*.*");//利用类函数搜索所有文件
While(b Working)//循环搜索及文件拷贝
{
b Working=finder.FindNextFile();
nam1= finder.GetFileName();//获得文件名
nam2= " c:\\hkcam\\";
nam2=nam2+nam1;//组成全路径
BOOL bCopy=CopyFile(nam1, nam2, FALSE);//文件拷贝
}

所有操作成功后，以信息框告知：

MessageBox( NULL，“安装成功，请按OK钮继续”，“安装结果”，MB＿OK)；

整个程序以MFC静态链接库创建。上述所有内容可以写入一个源文件内，这里称其为Append.cpp。为使最终执行文件尽可能小，应删去程序框架中所有不需要的内容。为此，源文件中只保留Append.cpp，Append.rc，及StdAfx.cpp几项；而头文件中只有Append.h， Resource.h，及StdAfx.h几项。所定义的唯一派生类为class CappendApp：public CwinApp，置于Append.h之内。

三、结束语

在VC++环境下利用有关WINDOWS系统注册表操作函数获得AutoCAD系统的安装路径，从而找出并改写AutoCAD有关文件；创建子目录并拷入各种二次开发形成文件，由此实现了AutoCAD二次开发程序与AutoCAD系统的自动衔接与嵌入。文中程序已由实践验证，完全可用于AutoCAD二次开发程序的自动安装。