Delphi获取文件版本号

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

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+FillCharGetFileVersionInfo获取版本信息VerQueryValue 根据第二个参数获取想要的版本信息内容，第二个参数中080403A8为language code page 第三个参数为获取的内容