Получить версию любого .exe файла

AnsiString __fastcall GetVer(AnsiString FileName);

AnsiString __fastcall TMainForm::GetVer(AnsiString FileName)
{
        AnsiString Version;
        DWORD h;
        DWORD Size = GetFileVersionInfoSize(FileName.c_str(), &h);
        if(Size == 0)
        {
                Version = "íåèçâåñòíî";
                return Version;
        }
        char *buf;
        buf = (char *)GlobalAlloc(GMEM_FIXED, Size);
        if(GetFileVersionInfo(FileName.c_str(), h, Size, buf)!=0)
        {
                char *ValueBuf; UINT Len; VerQueryValue(buf, "\\VarFileInfo\\Translation", &(void *)ValueBuf,&Len);
                if(Len>=4)
                {
                        AnsiString CharSet=IntToHex((int )MAKELONG(*(int *)(ValueBuf + 2), *(int *)ValueBuf), 8);
                        if(VerQueryValue(buf, AnsiString("\\StringFileInfo\\"+CharSet+"\\FileVersion").c_str(), &(void *)ValueBuf, &Len) != 0)
                                Version = ValueBuf;
                }
        }
GlobalFree(buf);
return Version;
}

Label1->Caption=GetVer("proga.exe");