Delphi获取文件版本号
1、打开Delphi7集成开发环境，在默认工程的Form1窗体放一个Opendialog1控件
2、在默认工程的Form1窗体放一个Edit1控件和两个Button控件，并分别设置其Capition属性为：打开和获取版本号。
3、双击打开按钮，进入OnClick事件方法，代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
Opendialog1.Execute;
Edit1.Text:=Opendialog1.filename;
end;
4、双击获取版本号按钮，进入OnClick事件方法，代码如下:
procedure TForm1.Button2Click(Sender: TObject);
var
si,lh:DWORD;
buffer,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+FillChar
GetFileVersionInfo获取版本信息
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’，是我们设置的版本号。
