代码如下:

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;   //返回一个整数的版本号码
posted on 2010-11-03 18:00  巅枫  阅读(292)  评论(0)    收藏  举报