VC获取当前应用程序路径(转)

1. CString GetSystemDir()  
2. {  
3.     static bool bAlreadyGet = false;  
4.     static CString strDir;  
5.     TCHAR strSystemDir[MAX_PATH];  
6.   
7.     if(!bAlreadyGet)  
8.     {  
9.         memset(strSystemDir, 0, MAX_PATH*sizeof(TCHAR));  
10.         GetModuleFileName(NULL,strSystemDir,MAX_PATH-1);  
11.   
12.         strDir=strSystemDir;  
13.         strDir=strDir.Left(strDir.ReverseFind('\\'));  
14.         bAlreadyGet = true;  
15.     }  
16.   
17.     return strDir;  
18. }