开发工具:
文件大小: 179kb
下载次数: 0
上传时间: 2016-04-28
详细说明： function GetFileVersion(FileName : string):string; var buf, p: pChar; sver: ^VS_FIXEDFILEINFO ; i: LongWord; ma, mi, r ,b : integer; begin //2010-08-16 11:43 hst //2010-09-01 15:52 hst //2011-06-25 23:16 hst Result:= '3.0'; ex it; Result := ''; i := GetFileVersionInfoSize(pchar(FileName), i); new(sver); p:= pchar(sver); GetMem(buf, i); ZeroMemory(buf, i); 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 := IntToStr(ma)+'.'+IntToStr(mi)+'.'+IntToStr(r)+'.'+IntToStr(b); end; Dispose(p); FreeMem(buf); Result:= copy(Result, 1, length(Result)-2); end; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
