如何取得程序本身版本号

　　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 **)