怎样得到本程序的版本号？

Question

就是在关于里动态显示版本，编译后自动更新版本。

Answer 1

参考下面：
function GetBuildInfo: string;
var VerInfoSize: DWORD;
    VerInfo:pointer;
    VerValueSize: DWORD;
    VerValue: PVSFixedFileInfo;
    Dummy: DWORD;
    V1, V2, V3, V4: Word;
begin
   VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
   if VerInfoSize = 0 then
    begin
     Dummy := GetLastError;
     Result := '0';
    end;   GetMem(VerInfo, VerInfoSize);   GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
   VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
    with VerValue^ do begin
     V1 := dwFileVersionMS shr 16;
     V2 := dwFileVersionMS and $FFFF;
     V3 := dwFileVersionLS shr 16;
     V4 := dwFileVersionLS and $FFFF;
    end;
  Result := IntToStr(V4);
  FreeMem(VerInfo, VerInfoSize);
end;

Answer 2

上面我的程序只是返回了xx.xx.xx.xx中的最后一个xx

Answer 3

lxlzq(石头)的是正确的,不知那位知道怎样获得ftp或者别的机子上文件的版本号