delphi – 如何获取正在运行的可执行文件的版本？

How to determine Delphi Application Version

我已经知道如何确定一个应用程序版本,但@StijnSanders提出了“更好”的方式,正是因为我正在打击的原因：

I most strongly recommend not to use GetFileVersion when you want to know the version of the executable that is currently running! I have two pretty good reasons to do this:

• The executable may be unaccessible (disconnected drive/share),or changed (.exe renamed to .bak and replaced by a new .exe without the running process being stopped).
• The version data you’re trying to read has actually already been loaded into memory,and is available to you by loading this resource,which is always better than to perform extra (relatively slow) disk operations.

我改编成：

function GetModuleVersion(Instance: THandle; out iMajor,iMinor,iRelease,iBuild: Integer): Boolean;
var
    fileInformation: PVSFIXEDFILEINFO;
    verlen: Cardinal;
    rs: TResourceStream;
    m: TMemoryStream;
    resource: HRSRC;
begin
    //You said zero,but you mean "us"
    if Instance = 0 then
        Instance := HInstance;

    //UPDATE: Workaround bug in Delphi if resource doesn't exist    
    resource := FindResource(Instance,1,RT_VERSION);
    if (resource = 0) 
    begin
       iMajor := 0;
       iMinor := 0;
       iRelease := 0;
       iBuild := 0;
       Result := False;
       Exit;
    end;

    m := TMemoryStream.Create;
    try
        rs := TResourceStream.CreateFromID(Instance,RT_VERSION);
        try
            m.CopyFrom(rs,rs.Size);
        finally
            rs.Free;
        end;

        m.Position:=0;
        if not VerQueryValue(m.Memory,'',/*var*/Pointer(fileInformation),/*var*/verlen) then
        begin
        iMajor := 0;
            iMinor := 0;
            iRelease := 0;
            iBuild := 0;
                    Exit;
        end;

        iMajor := fileInformation.dwFileVersionMS shr 16;
            iMinor := fileInformation.dwFileVersionMS and $FFFF;
            iRelease := fileInformation.dwFileVersionLS shr 16;
            iBuild := fileInformation.dwFileVersionLS and $FFFF;
    finally
        m.Free;
    end;

    Result := True;
end;

警告：由于Delphi中的错误,上面的代码有时会崩溃：

rs := TResourceStream.CreateFromID(Instance,RT_VERSION);

如果没有版本信息,Delphi会尝试引发异常：

procedure TResourceStream.Initialize(Instance: THandle; Name,ResType: PChar);
   procedure Error;
   begin
      raise EResNotFound.CreateFmt(SResNotFound,[Name]);
   end;
begin
   HResInfo := FindResource(Instance,Name,ResType);
   if HResInfo = 0 then Error;
   ...
end;

当然,错误是PChar并不总是指向ansi char的指针.对于非命名资源,它们是整数常量,强制转换为PChar.在这种情况下：

Name: PChar = PChar(1);

当Delphi尝试构建异常字符串,并取消引用指针0x00000001时,它会触发并访问违规.

修复是首先手动调用FindResource(Instance,RT_VERSION)：

var
    ...
    resource: HRSRC;
begin
    ...
    resource := FindResource(Instance,RT_VERSION);
    if (resource = 0) 
    begin
       iMajor := 0;
       iMinor := 0;
       iRelease := 0;
       iBuild := 0;
       Result := False;
       Exit;
    end;

    m := TMemoryStream.Create;
    ...

Note: Any code is released into the public domain. No attribution required.