Delphi 取得文件版本

本文整理自网络，侵删。

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

相关阅读 >>

Delphi中updown组件的使用方法

Delphi 获取jpg文件宽度高度的方法

tidtcpclient控件中文指南

Delphi webbrowser ie 窗口选择中，选中的文字内容

Delphi获取android上的imei

Delphi 利用tmemorystream对象存取缓存

Delphi 资源管理器套件

Delphi在字符串中删除指定字符串

如何为Delphi程序添加事件和事件处理器

Delphi 链接转换为本地文件路径

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 取得文件版本