[VC]取得程序的版本号信息

CStringA CInPiaoPosApp::GetFileVersion()
{ 
 char* lpFilename = new char[256];
 GetModuleFileNameA(NULL, lpFilename, 256);

 int   iVerInfoSize;
 char   *pBuf;
 CStringA asVer;
 VS_FIXEDFILEINFO   *pVsInfo;
 unsigned int iFileInfoSize = sizeof(VS_FIXEDFILEINFO);
  
 iVerInfoSize = GetFileVersionInfoSizeA(lpFilename, NULL);
  
 if(iVerInfoSize!= 0)
 { 
  pBuf = new char[iVerInfoSize];
  if(GetFileVersionInfoA(lpFilename, 0, iVerInfoSize, pBuf)) 
  { 
   if(VerQueryValueA(pBuf, "\\", (void**)&pVsInfo, &iFileInfoSize)) 
   { 
    asVer.Format("%d.%d.%d.%d",HIWORD(pVsInfo->dwFileVersionMS),LOWORD(pVsInfo->dwFileVersionMS),HIWORD(pVsInfo->dwFileVersionLS),LOWORD(pVsInfo->dwFileVersionLS));
   } 
  } 
  delete pBuf; 
 } 
 delete lpFilename;
 lpFilename = NULL;

 return asVer; 
}