delphi 怎么获取工程版本号
2016-02-04 20:30
555 查看
function GetApplicationVersion:String; // Added 取得程序版本号 var FileName:String; InfoSize,Wnd:DWORD; VerBuf:Pointer; VerInfo:^VS_FIXEDFILEINFO; begin Result:='0.0.0.0'; FileName:=Application.ExeName; InfoSize:=GetFileVersionInfoSize(PChar(FileName),Wnd); if InfoSize<>0 then begin GetMem(VerBuf,InfoSize); try if GetFileVersionInfo(PChar(FileName),Wnd,InfoSize,VerBuf) then begin VerInfo:=nil; VerQueryValue(VerBuf,'\',Pointer(VerInfo),Wnd); if VerInfo<>nil then Result:=Format('%d.%d.%d.%d',[VerInfo^.dwFileVersionMS shr 16, VerInfo^.dwFileVersionMS and $0000ffff,VerInfo^.dwFileVersionLS shr 16, VerInfo^.dwFileVersionLS and $0000ffff]); end; finally FreeMem(VerBuf,InfoSize); end; end; end;
相关文章推荐
- Delphi 10 Seattle不支持intel atom?
- 不是什么时候都可以用栈来声明对象并使用(自动释放)——Delphi里到处都是编译器魔法,并且自动帮助实例化界面元素指针
- Delphi XE7下如何创建一个Android模拟器调试
- DelphiXE Android的所有权限按照分类总结说明
- DelphiXE8怎么使用调试模式(朱建强)
- delphi使用ado连接Excel
- 与java兼容的delphi xe实现des算法单元
- DelphiXE8怎么使用调试模式
- java delphi aes 加密与解密文件兼容算法
- DelphiXE8新建AVD
- Android问题-DelphiXE8新建AVD出现“no system images installed for this target”
- delphi不同版本字符串类型的演化
- 将delphi7代码移植到delphi10环境下出现的问题
- Delphi 如何计算字符串表达式呢?
- Delphi对Excel的所有操作
- delphi 更改DBGrid 颜色技巧
- delphi 10 seattle "Automatic Reference Counting"问题
- Delphi,WebBrowser模拟点击按钮
- Delphi中webbrowser的document 对象的属性方法事件
- Delphi中始终用WebBrowser打开网页