文件磁盘相关函数[11]-获取指定文件的版本号 GetFileVersion

代码如下：

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;   //返回一个整数的版本号码