如何获取程序版本号？？？

nkym0626 2011-01-13 05:45:18

???

...全文

74 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

yjkn 2011-09-13

打赏
举报

呵呵看看

cntigercat 2011-01-13

打赏
举报



//获取指定文件的版本号

function getBRVersion(aFileName: string; var aVersion: string): BOOL;

var

  lpdwHandel: Cardinal;

  verInfoSize: DWORD;

  pVerData: Pointer;

  verInfo: PVSFixedFileInfo;

  wV1, wV2, wV3, wV4: Word;

begin

  Result := False;

  verInfoSize := GetFileVersionInfoSize(PChar(aFileName), lpdwHandel);

  if verInfoSize <> 0 then

  begin

    GetMem(pVerData, verInfoSize);

    try 

      if GetFileVersionInfo(PChar(aFileName), lpdwHandel, verInfoSize, pVerData) then

      begin

        if VerQueryValue(pVerData, '\', Pointer(verInfo), verInfoSize) then

        begin

          wV1 := HiWord(verInfo.dwFileVersionMS);

          wV2 := verInfo.dwFileVersionMS;

          wV3 := HiWord(verInfo.dwFileVersionLS);

          wV4 := verInfo.dwFileVersionLS;

          aVersion := Format('%d.%d.%d.%d', [wV1, wV2, wV3, wV4]);

          Result := True;

        end;

      end;

    finally

      FreeMem(pVerData);

    end;

  end;

end;