Delphi获取文件版本号

 

{取应用程式的版本号程式，如有版本号，返回值为版本号的值，否则返回值为空
返回值的格式为如1.0.0.0 }

   function GetFileVersion(FileName: string): string;
   type
     PVerInfo = ^TVS_FIXEDFILEINFO;
     TVS_FIXEDFILEINFO = record
       dwSignature: longint;
       dwStrucVersion: longint;
       dwFileVersionMS: longint;
       dwFileVersionLS: longint;
       dwFileFlagsMask: longint;
       dwFileFlags: longint;
       dwFileOS: longint;
       dwFileType: longint;
       dwFileSubtype: longint;
       dwFileDateMS: longint;
       dwFileDateLS: longint;
     end;
   var
     ExeNames: array[0..255] of char;
     zKeyPath: array[0..255] of Char;
     VerInfo: PVerInfo;
     Buf: pointer;
     Sz: word;
     L, Len: Cardinal;
   begin
     StrPCopy(ExeNames, FileName);
     Sz := GetFileVersionInfoSize(ExeNames, L);
     if Sz=0 then
     begin
       Result:='';
       Exit;
     end;

     try
       GetMem(Buf, Sz);
       try
         GetFileVersionInfo(ExeNames, 0, Sz, Buf);
         if VerQueryValue(Buf, '\', Pointer(VerInfo), Len) then
         begin
           Result := IntToStr(HIWORD(VerInfo.dwFileVersionMS)) + '.' +
                     IntToStr(LOWORD(VerInfo.dwFileVersionMS)) + '.' +
                     IntToStr(HIWORD(VerInfo.dwFileVersionLS)) + '.' +
                     IntToStr(LOWORD(VerInfo.dwFileVersionLS));

         end;
       finally
         FreeMem(Buf);
       end;
     except
       Result := '-1';
     end;
   end;

// ***********************上例在环境中测试过***********************************************/

 

以下程序在DELPHI7 W2003测试通过：

function GetFileVersion(AFileName: string): string;
var
n, Len: DWORD;
Buf : PChar;
Value: Pointer;
szName: array [0..255] of Char;
Transstring: string;
begin
Len := GetFileVersionInfoSize(PChar(AFileName), n);
if Len > 0 then
begin
    Buf := AllocMem(Len);
    if GetFileVersionInfo(Pchar(AFileName), n, Len, Buf) then
    begin
      Value := nil;
      VerQueryValue(Buf, '\VarFileInfo\Translation', Value, Len);
      if Value <> nil then
        Transstring := IntToHex(MakeLong(HiWord(LongInt(Value^)),
          LoWord(LongInt(Value^))),8);
      StrPCopy(szName, '\stringFileInfo\' + Transstring + '\FileVersion');
      if VerQueryValue(Buf, szName, Value, Len) then
        Result := StrPas(Pchar(Value));
    end;
    FreeMem(Buf, n);
end;
end;

如何用Delphi编程读出一个DLL文件的版本号,请给示例  

好，给几个函数还不行，那就给段代码吧：

procedure TForm1.Button1Click(Sender: TObject);
var
dwVerInfoSize, dwVerHnd: DWORD;
hMem: THandle;
lpvMem, lszVer: Pointer;
szGetName: array[0..255] of Char;
cchVer: UINT;
fRet: Boolean;
vsffi: VS_FIXEDFILEINFO;
begin
dwVerInfoSize := GetFileVersionInfoSize('Shell32.dll', dwVerHnd);
if Boolean(dwVerInfoSize) then
begin
hMem := GlobalAlloc(GMEM_MOVEABLE, dwVerInfoSize);
lpvMem := GlobalLock(hMem);
GetFileVersionInfo('Shell32.dll', dwVerHnd, dwVerInfoSize, lpvMem);
StrCopy(szGetName, '\');
lszVer := nil;
fRet := VerQueryValue(lpvMem, szGetName, lszVer, cchVer);
if fRet and Boolean(cchVer) and Boolean(lszVer) then
begin
vsffi := VS_FIXEDFILEINFO(lszVer^);
ShowMessage('文件版本: ' +
IntToStr(HIWORD(vsffi.dwFileVersionMS)) + '.' +
IntToStr(LOWORD(vsffi.dwFileVersionMS)) + '.' +
IntToStr(HIWORD(vsffi.dwFileVersionLS)) + '.' +
IntToStr(LOWORD(vsffi.dwFileVersionLS)));
end;
GlobalUnlock(hMem);
GlobalFree(hMem);
end;
end;


如何获取一个可执行文件的版本号?

function GetFileVersion(fn: string; var ma, mi, r ,b: integer):boolean;//得到本程序的版本号
var
buf, p: pChar;
sver: ^VS_FIXEDFILEINFO ;
i: LongWord;
begin
i:= GetFileVersionInfoSize(pchar(fn), i);
new(sver);
p:= pchar(sver);
GetMem(buf, i);
ZeroMemory(buf, i);
result:= false;
if GetFileVersionInfo(pchar(fn), 0, 4096, pointer(buf)) then
if VerQueryValue(buf, '\', pointer(sver), i) then begin
ma:= sVer^.dwFileVersionMS shr 16;
mi:= sver^.dwFileVersionMS and $0000ffff;
r:= sver^.dwFileVersionLS shr 16;
b:= sver^.dwFileVersionLS and $0000ffff;
result:= true;
end;
Dispose(p);
FreeMem(buf);
end;