從Delphi PC應用程序獲取壓縮框架exe的版本號

Question

我有一個爲Compact Framework編譯的應用程序，我需要找到使用Delphi 2006的版本號。我使用下面的代碼。

function VersionNumber(ExeFile: string): string; 
var 
    Size: Longint; 
    Dummy: Cardinal; 
    Buffer: Pointer; 
    FileInfo: Pointer; 
begin 
    Size := GetFileVersionInfoSize(PChar(ExeFile), Dummy); 
    GetMem(Buffer, Size); 
    if (GetFileVersionInfo(PChar(ExeFile), Dummy, Size, Buffer)) then begin 
    //VerQueryValue(Buffer, '\\', FileInfo, Dummy); 
    //with PVSFixedFileInfo(FileInfo)^ do 
     //Result := IntToStr(dwFileVersionMS div $10000) + '.' + 
     // IntToStr(dwFileVersionMS mod $10000) + '.' + 
     // IntToStr(dwFileVersionLS div $10000) + ' (' + 
     // IntToStr(dwFileVersionLS mod $10000) + ')'; 
    end 
    else begin 
    Result := 'No version info available.'; 
    end; 
    FreeMem(Buffer, Size); 
end; 

如果我認爲使用Windows 7，我不能看到版本號有兩種，所以這並不奇怪，我不能從德爾福得到它的文件的詳細信息。

就在有人知道獲取版本號的方法時，我們將不勝感激。

UPDATE

此代碼是由一名前工作人員寫了那麼十年前。到目前爲止，它運行良好，但從未嘗試過爲Compact Framework編譯的可執行文件。

The GetFileVersionInfo函數返回false，所以我得到'No version info available。'。結果。

Answer 1

CF不會將C/C++ FileVersionInfo放入exe或DLL文件中。 AssemblyInfo與您使用代碼示例查找的FileVersionInfo資源有所不同。

ctacke在http://blog.opennetcf.com/2014/01/03/howto-add-the-win32-file-version-to-your-net-compact-framework-assemblies/有一個有用的文章，可以通過Version information missing from .NET assembly (Compact Framework 3.5/VS2008)找到，什麼graymatter已經發布。