如何取得程序本身版本号

String __fastcall TForm1::GetFileVersion(String FileName)

{

int iVerInfoSize;

char *pBuf;

AnsiString asVer="";

VS_FIXEDFILEINFO *pVsInfo;

unsigned int iFileInfoSize = sizeof( VS_FIXEDFILEINFO );

iVerInfoSize = GetFileVersionInfoSize(FileName.c_str(), NULL);

if(iVerInfoSize!= 0)

{

pBuf = new char[iVerInfoSize];

if(GetFileVersionInfo(FileName.c_str(),0, iVerInfoSize, pBuf ) )

{

if(VerQueryValue(pBuf, "\\",(void **)&pVsInfo,&iFileInfoSize))

{

asVer = IntToStr( HIWord(pVsInfo->dwFileVersionMS) )+".";

asVer += IntToStr( LOWORD(pVsInfo->dwFileVersionMS) )+".";

asVer += IntToStr( HIWORD(pVsInfo->dwFileVersionLS) )+".";

asVer += IntToStr( LOWORD(pVsInfo->dwFileVersionLS) );

}

}

delete pBuf;

}

return asVer;

}