得到ARX程序当前的路径

admin

1. BOOL GetArxPath(CString &path)
2. {
3.     CString ArxPath;
4.     ACHAR modulePath[512];//取应用程序路径
5.     //CString FileName = acedGetAppName(); //功能与下个函数重复,可能为空,不可靠
6.     HMODULE hModule = NULL;
7.     MEMORY采用BASIC采用INFORMATION mbi;  
9.     if(::VirtualQuery(GetArxPath, &mbi, sizeof(mbi)) != 0)
10.     {
11.         hModule = (HMODULE) mbi.AllocationBase;
12.     }
13.     DWORD pathLength = GetModuleFileName(hModule, modulePath, 512);
14.     if (pathLength)
15.     {
16.         ArxPath=modulePath;
17.         int rs=ArxPath.ReverseFind('//');   //查找最后一个'//'的位置
18.         path = ArxPath.Left(rs);            //去掉文件名
19.         return TRUE;
20.     }
21.     return FALSE;
22. }

复制代码