代码如下:
procedure TForm1.N16Click(Sender: TObject); //获取指定文件的版本号 GetFileVersion var s: string; i: Integer; dt: TDate; begin s := 'C:\WINDOWS\notepad.exe'; i := GetFileVersion(s); //如果没有版本号返回 -1 ShowMessage(IntToStr(i)); //327681 这是当前记事本的版本号(还应该再转换一下) end;
关于获取文件版本信息其实只这一个函数是不够的,以后我再深入学习它
下面进行函数分析:
function GetFileVersion(const AFileName: string //文件路径+文件名的字符串 ): Cardinal; //返回一个整数的版本号码