VC 怎样获得执行文件所在路径

怎样获得执行文件所在路径，用GetModuleFileName()获得是路径加文件名，有什么函数只获得路径呢

TCHAR szPath[MAX_PATH];

::GetModuleFileName(NULL,szPath,MAX_PATH);

CString strPath = szPath;

int index = strPath.ReverseFind(_T( '\\'));

strPath = strPath.Left(index + 1);