delphi获取进程版本信息

最新推荐文章于 2025-06-05 09:01:51 发布

原创

最新推荐文章于 2025-06-05 09:01:51 发布 · 511 阅读

标签

#开发语言

收录于

本文介绍了一个Delphi函数GetFileVersionInfomation，用于从给定文件中提取VersionInfo数据，包括CompanyName、FileDescription等关键信息，通过调用VerQueryValueW函数实现对特定版本号的访问。

结构体声明

type
  TFileInfo = packed record
    CommpanyName: widestring;
    FileDescription: widestring;
    FileVersion: widestring;
    InternalName: widestring;
    LegalCopyright: widestring;
    LegalTrademarks: widestring;
    OriginalFileName: widestring;
    ProductName: widestring;
    ProductVersion: widestring;
    Comments: widestring;
    VsFixedFileInfo: VS_FIXEDFILEINFO;
    UserDefineValue: widestring;
  end;

功能函数

function GetFileVersionInfomation(const FileName: string; var info: TFileInfo; UserDefine: string = ''): boolean;
const
  SFInfo = '\StringFileInfo\';
var
  VersionInfo: PChar;
  InfoSize: DWORD;
  InfoPointer: Pointer;
  Translation: Pointer;
  VersionValue: widestring;
  unused: DWORD;
begin
  try
    unused := 0;
    Result := False;
    InfoSize := GetFileVersionInfoSizeW(pwidechar(FileName), unused);
    if InfoSize > 0 then
    begin
      try