获得可执行程序的版本

AnsiString __fastcall GetAppVersion(AnsiString ExeName)
{
VS_FIXEDFILEINFO *VInfo;
unsigned int i;
char *buf;
int ma,mj,r,b;
AnsiString sReturn = "";
i = GetFileVersionInfoSize(ExeName.c_str(), 0);
buf = new char[i];
try
{
if(GetFileVersionInfo(ExeName.c_str(), 0, i, buf) != 0)
{
if(VerQueryValue(buf,"//",&((void*)VInfo),&i))
{
ma= VInfo->dwFileVersionMS >> 16;
mj= VInfo->dwFileVersionMS & 0x00ff;
r= VInfo->dwFileVersionLS >> 16;
b= VInfo->dwFileVersionLS & 0x00ff;
sReturn = AnsiString(ma) + "." + AnsiString(mj) + "."
+ AnsiString(r) + "." + AnsiString(b);
}
}
}
__finally
{
delete [] buf;
}
return sReturn;
}