急!!!!!再线等待

lqf78 2003-10-15 08:40:36
使用VerQueryValue函数得到文件的版本号,得到的结果不正确,这是为什么,我使用的方法是:
InfoSize := GetFileVersionInfoSize(PChar('C:\WINNT\system32\a3d.dll'), Wnd);

if InfoSize <> 0 then
begin
GetMem(VerBuf, InfoSize);
try
if GetFileVersionInfo(PChar('C:\WINNT\system32\a3d.dll'), Wnd, InfoSize, VerBuf) then
if VerQueryValue(VerBuf, '', Pointer(FI), VerSize) then
www := FI.dwFileVersionlS;
finally
FreeMem(VerBuf);
end;
end;
...全文
29 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
aiirii 2003-10-15
  • 打赏
  • 举报
回复
有些文件是不帶版本號的, 當然讀不出來!!!

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧