Delphi获取文件版本号

1、打开Delphi7集成开发环境，在默认工程的Form1窗体放一个Opendialog1控件

2、在默认工程的Form1窗体放一个Edit1控件和两个Button控件，并分别设置其Capition属性为：打开和获取版本号。

3、双击打开按钮，进入OnClick事件方法，代码如下：procedure TForm1.Button1Click(Sender: TObje艘早祓胂ct);begin Opendialog1.Execute; Edit1.Text:=Opendialog1.filename;end;

4、双击获取版本号按钮，进入OnClick事件方法，代码如下:procedure TForm1.Button2Click(Sender: TObject);var si,lh:DWORD; bu熠硒勘唏ffer,Value:PChar;begin si:=GetFileVersionInfoSize(PChar(Edit1.Text),si); buffer:=AllocMem(si); GetFileVersionInfo(PChar(Edit1.Text),0,si,buffer); VerQueryValue(buffer,PChar('StringFileInfo\080403A8\FileVersion'),Pointer(Value),lh); ShowMessage(Value); FreeMem(buffer);end;解释一下：GetFileVersionInfoSize获取版本信息长度，第一个参数为文件目录，第二DWORD类型，暂时没有用AllocMem为字符指针分配版本信息长度大小的空间，相当于GetMem+FillCharGetFileVersionInfo获取版本信息VerQueryValue 根据第二个参数获取想要的版本信息内容，第二个参数中080403A8为language code page 第三个参数为获取的内容

5、打开Project--Options，弹出Project Options for Project1.exe在Version Info页签，勾选Include Version infomation for project,默认版本号1.0.0.0

6、F9运行程序，点击打开选择到我们的Project1.exe文件，点击获取版本号，弹出对话框，内容为‘1.0.0.0’，是我们设置的版本号。