如何取得options菜单中Version info标签下面的FileVersion的值~~~~~

Question

如何取得options菜单中Version info标签下面的FileVersion的值~~~~~

Answer 1

获取文件版本：function GetFileInfo(FileName:string):string;
var
   Size, lpdwHandle, puLen: Cardinal;
   pBlock: Pointer;
   VerValue: PVSFixedFileInfo;
begin
  Size:= GetFileVersionInfoSize(PChar(FileName), lpdwHandle);
  GetMem(pBlock,Size);
  GetFileVersionInfo(PChar(FileName), 0, Size, pBlock);
  VerQueryValue(pBlock, '\', Pointer(VerValue), puLen);
  with VerValue^ do
    begin
      Result:=Format('%d,%d,%d,%d', [
      dwFileVersionMS shr 16,
      dwFileVersionMS and $FFFF,
      dwFileVersionLS shr 16,
      dwFileVersionLS and $FFFF]);
    end;
  FreeMem(pBlock, Size);
end;

Answer 2

有没有简单点的
---------
我知道的就是这个方法，你可以参看SysUtils单元的GetFileVersion函数的源码，或者能找到简单的:)

Answer 3

FileName是文件名？文件路径也要传进去？？？

Answer 4

那个代码是可以获取指定DLL，EXE文件的版本号的。
如果是当前程序，就是Application.ExeName