怎样读取Resource里面Version的信息？

[pandera]

我想读出version里面FileDescription，
哪位高手来指点一下

[lixiaosan]

http://www.naughter.com/versioninfo.html

[vcmute]

GetFileVersionInfo
+ VerQueryValue

[luxintian]

BOOL CAboutDlg::OnInitDialog()
{
CDialog::OnInitDialog();

// TODO: Add extra initialization here
CString str,str1,str2;
LPTSTR lptstrFileName; //应用程序名称
DWORD dwHandle; //存放句柄
DWORD dwSize; //版本信息缓冲区尺寸
LPVOID lpBuffer; //版本信息缓冲区
UINT nDataSize; //版本值尺寸
LPVOID lpData; //版本值缓冲区
CString strProduct;
CString strCompany;
lptstrFileName="DTest3.exe";
dwHandle=0;
nDataSize=80;
lpData=malloc(nDataSize);
dwSize=GetFileVersionInfoSize(lptstrFileName,&dwHandle);
lpBuffer=malloc(dwSize);
GetFileVersionInfo(lptstrFileName,0,dwSize,lpBuffer);
VerQueryValue(lpBuffer,
TEXT("\\StringFileInfo\\080404b0\\InternalName"),
&lpData,
&nDataSize);
str1=(LPTSTR)lpData;

VerQueryValue(lpBuffer,
TEXT("\\StringFileInfo\\080404b0\\ProductVersion"),
&lpData,
&nDataSize);
str2=(LPTSTR)lpData;
str.Format("%s %s 版",str1,str2);
SetDlgItemText(IDC_STATIC_NAME,str);

VerQueryValue(lpBuffer,
TEXT("\\StringFileInfo\\080404b0\\LegalCopyright"),
&lpData,
&nDataSize);
str=(LPTSTR)lpData;
SetDlgItemText(IDC_STATIC_COPYRIGHT,str);

VerQueryValue(lpBuffer,
TEXT("\\StringFileInfo\\080404b0\\CompanyName"),
&lpData,
&nDataSize);
str=(LPTSTR)lpData;
SetDlgItemText(IDC_STATIC_COMPANY,str);

return TRUE; // return TRUE unless you set the focus to a control
// EXCEPTION: OCX Property Pages should return FALSE
}