delphi内取文件版本信息

最新推荐文章于 2020-03-13 18:49:02 发布

转载最新推荐文章于 2020-03-13 18:49:02 发布 · 103 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/martian6125/archive/2007/07/12/9631495.html

本文介绍了一个用于从指定文件中获取版本信息的 Delphi 单元。该单元通过使用 Windows API 函数实现对文件版本信息的读取，例如产品名称、公司名称等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit UVersionInfo;

interface

uses Windows, SysUtils;

function GetVersionValue(FileName,QueryName:string):String;

implementation

function GetVersionValue(FileName,QueryName:string):String;
var
  InfoSize, Wnd: DWORD;
  VerBuf: Pointer;
  szName: array[0..255] of Char;
  Value: Pointer;
  Len: UINT;
  TransString:string;
begin
  InfoSize := GetFileVersionInfoSize(PChar(FileName), Wnd);
  if InfoSize <> 0 then
  begin
    GetMem(VerBuf, InfoSize);
    try
      if GetFileVersionInfo(PChar(FileName), Wnd, InfoSize, VerBuf) then
      begin
        Value :=nil;
        VerQueryValue(VerBuf, 'VarFileInfoTranslation', Value, Len);
        if Value <> nil then
           TransString := IntToHex(MakeLong(HiWord(Longint(Value^)), LoWord(Longint(Value^))), 8);
        Result := '';
        StrPCopy(szName, 'StringFileInfo'+Transstring+''+QueryName);
        if VerQueryValue(VerBuf, szName, Value, Len) then
           Result := StrPas(PChar(Value));
      end;
    finally
      FreeMem(VerBuf);
    end;
  end;
end;

end.

转载于:https://www.cnblogs.com/martian6125/archive/2007/07/12/9631495.html