本文整理自网络,侵删。
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);beginshowmessage(GetFileVersion('D:\防色墙\fangseqiang.exe'));end;
相关阅读 >>
Delphi 资源文件管理 resources and images
Delphi gettempdirectory 获取临时文件夹路径
Delphi firedac 下的 sqlite [7] - 备份、优化、事务(transaction)
更多相关阅读请进入《Delphi》频道 >>