获取本程序路径的函数

CString CXXXApp::GetAppPath( BOOL IsFullPathName)
{
 TCHAR sFilename[_MAX_PATH];
 TCHAR sDrive[_MAX_DRIVE];
 TCHAR sDir[_MAX_DIR];
 TCHAR sFname[_MAX_FNAME];
 TCHAR sExt[_MAX_EXT];
 
 GetModuleFileName(AfxGetInstanceHandle(), sFilename, _MAX_PATH);
 
 if(IsFullPathName)
  return sFilename;
 
 _tsplitpath(sFilename, sDrive, sDir, sFname, sExt);
 
 CString rVal(CString(sDrive) + CString(sDir));
 int nLen = rVal.GetLength();
 
 if (rVal.GetAt(nLen-1) != _T('//'))
  rVal += _T("//");
 
 return rVal;
}