delphi GetFileVersion 获取文件版本


本文整理自网络,侵删。

 
uses
  ShellApi, ShlObj,
  ComObj,
  ActiveX;


function GetFileVersion(const FileName: string): string;
var
  FSO  : OleVariant;
begin
  FSO    := CreateOleObject('Scripting.FileSystemObject');
  Result := FSO.GetFileVersion(FileName);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(GetFileVersion('D:\防色墙\fangseqiang.exe'));
end;

相关阅读 >>

Delphi 资源文件管理 resources and images

Delphi gettempdirectory 获取临时文件夹路径

cnvcl 组件包

Delphi 反转内存的函数

Delphi取cpu利用率

Delphi复制粘贴操作

Delphi 调用js字符串编码

Delphi firedac 下的 sqlite [7] - 备份、优化、事务(transaction)

Delphi滚动标题栏文字

Delphi thttpclient posturl

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...