注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

通过delphi得到exe程序的版本号  

2014-09-29 19:42:24|  分类: delphixe7 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
1:下面是具体代码
function GetFileVersion(FileName: string; var ma, mi, r,
  b: integer): boolean;
var
  buf, p: pChar;
  sver: ^VS_FIXEDFILEINFO;
  i: LongWord;
begin
  i := GetFileVersionInfoSize(pchar(FileName), i);
  new(sver);
  p := pchar(sver);
  GetMem(buf, i);
  ZeroMemory(buf, i);
  result := false;
  if GetFileVersionInfo(pchar(FileName), 0, 4096, pointer(buf)) then
    if VerQueryValue(buf, '\', pointer(sver), i) then
    begin
      ma := sVer^.dwFileVersionMS shr 16;
      mi := sver^.dwFileVersionMS and $0000FFFF;
      r := sver^.dwFileVersionLS shr 16;
      b := sver^.dwFileVersionLS and $0000FFFF;
      result := true;
    end;
  Dispose(p);
  FreeMem(buf);
end;


function GetFileVersionStr(FileName: string): string;
var
  ma, mi, r, b: Integer;
begin
  Result := '';
  if GetFileVersion(FileName, ma, mi, r,
    b) then
    Result := IntToStr(ma) + '.' + IntToStr(mi) + '.' +
      IntToStr(r) + '.' + IntToStr(b);
end;

2:调用方法举例
showmessage(GetFileVersionStr('c:\a.exe'))
  评论这张
 
阅读(314)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017