确定EXE中包含了哪个STRINGTABLE

Question

我的Delphi应用程序使用(rc.exe)编译字符串列表( .rc文件中的文本格式)，如下所示：

Language LANG_KOREAN, SUBLANG_KOREAN
STRINGTABLE
BEGIN
    cszLanguageName "Korean"
    <etc>
END

转换成一个.res文件。所有表都包含相同的ID(如cszLanguageName)。我维护两个独立的资源字符串文件。其中一种主要是欧洲语言(英语、捷克语等)，我称之为"Standard.rc“。另一种被称为"Alternate.rc“，包含所有其他语言，如韩语、泰语等。

编译时开关确定哪个文件链接到EXE：

{$IFDEF ALT_LANG}
    {$R 'source\Alternate.res'}
{$ELSE}
    {$R 'source\Standard.res'}
{$ENDIF}

这是背景，现在是问题的背景！

给定EXE的路径并使用类似于Windows的GetFileVersionInfo方法，是否可以确定EXE中有哪些STRINGTABLE资源？如果有可能确定：

Language LANG_KOREAN, SUBLANG_KOREAN

或

Language LANG_CZECH, SUBLANG_DEFAULT

则EXE可识别为“标准”或“替代”。

目前，没有实际执行EXE，唯一的区别是字节大小，这是一个不可靠的启发。C++或C#都可以。我可以适应Delphi或者编写一个独立的实用程序，这个实用程序是从Delphi中调用的。

更新

基于LU的注释，我创建了以下Version.rc文件：

// Version information resource file
VS_VERSION_INFO VERSIONINFO
BEGIN
    BLOCK "StringFileInfo"
    BEGIN
        BLOCK "080904b0"
        BEGIN
        VALUE "InternalName", "Standard"
        END
    END
END

然后(与一起)编译到Version.res中，并使用{$R 'source\Version.res'}链接到应用程序。这将像预期的那样编译，但是当我尝试从EXE读取InternalName字段时，它是空的。如果我在项目属性中手动将InternalName设置为"Test"，则将其设置为"Test“。我做错了什么，如何覆盖已在项目属性中手动输入的内容？

Answer 1

注:这不是对如何确定最终EXE中是否包含特定STRINGTABLE资源的问题的回答，而是解决所提出问题的另一种方法。

这个问题部分是基于这个answer。

步骤1:输入项目属性和Version Info选项卡。如果已设置版本信息(如版本号或CompanyName)，请复制所有相关信息。现在关掉Include version information in project。

步骤2:创建一个Version.rc和Version_Alt.rc文件。您的确切版本可能不同，但这是一个很好的开始模板：

// Version information resource file
#include "windows.h"
#include "VersionCommon.txt"

1 VERSIONINFO
FILEVERSION VER_NUM_MAJOR, VER_NUM_MINOR, VER_NUM_RELEASE, VER_NUM_BUILD
FILEOS VER_FILEOS
FILETYPE VFT_APP
{
    BLOCK "VarFileInfo"
    {
        VALUE "Translation", TRANSLATION_LANG_ID, TRANSLATION_CHARSET
    }

    BLOCK "StringFileInfo"
    {
        // Note: The block address is a concatenation of the locale ID and code page. This would be "040904E4" for English (US).
        BLOCK "080904E4"
        {
            VALUE "CompanyName",        STRING_COMPANY_NAME
            VALUE "FileDescription",    STRING_FILE_DESCRIPTION
            VALUE "InternalName",       STRING_INTERNAL_NAME_STD
            VALUE "LegalCopyright",     STRING_LEGAL_COPYRIGHT
            VALUE "LegalTrademarks",    STRING_LEGAL_TRADEMARKS
            VALUE "ProductName",        STRING_PRODUCT_NAME
            VALUE "ProductVersion",     STRING_PRODUCT_VERSION
            VALUE "Comments",           STRING_COMMENTS
            VALUE "Homepage",           STRING_HOME_PAGE
        }
    }
}

这是用于Version.rc文件的。InternalName将是Version_Alt.rc的STRING_INTERNAL_NAME_ALT，否则其他一切都是一样的。

步骤3:创建VersionCommon.txt，它可能如下所示：

// Common version information (between standard and alternate language)

// Version info
#define VER_NUM_MAJOR       1
#define VER_NUM_MINOR       2
#define VER_NUM_RELEASE     3
#define VER_NUM_BUILD       4
#define VER_FILEOS          0x00000004L     // 32-bit Windows

// Translation info
#define TRANSLATION_LANG_ID     0x0809      // Locale: English (UK)
#define TRANSLATION_CHARSET     0x04E4      // Code Page: 1252

// String file info
#define STRING_COMPANY_NAME         "YOUR-COMPANY\0"
#define STRING_FILE_DESCRIPTION     "Software to do amazing things\0"
#define STRING_INTERNAL_NAME_STD    "Standard\0"    // ALT_LANG not defined
#define STRING_INTERNAL_NAME_ALT    "Alternate\0"   // ALT_LANG is defined
#define STRING_LEGAL_COPYRIGHT      "Copyright (C) YOUR-COMPANY\0"
#define STRING_LEGAL_TRADEMARKS     "LEGALISE STATEMENT?\0"
#define STRING_PRODUCT_NAME         "Groovy\0"
#define STRING_PRODUCT_VERSION      "SOME-VERSION-INFO\0"
#define STRING_COMMENTS             "SOME-COMMENTS\0"
#define STRING_HOME_PAGE            "OPTIONAL-YOUR-WEBSITE\0"

步骤4:编写一个编译资源脚本的批处理文件。请注意，可以配置Delphi的后期版本来为您编译资源。批处理文件可能如下所示：

@echo off
rem Version.rc and Version_Alt.rc are used to create version information that is linked into
rem the main Delphi application. "InternalName" is used to indicate whether ALT_LANG is defined.

echo Setting the program path (change this if your path is different)
set SOURCE_PATH=<PATH-TO-FOLDER-CONTAINING-RC-FILES>

echo .
echo Use Visual Studio tools to generate the version .RES files
@echo on
cd <PATH-TO-VISUAL-STUDIO-BIN-FOLDER-CONTAINING-RC.EXE>
call vcvars32
rc /r %SOURCE_PATH%\Version.rc
rc /r %SOURCE_PATH%\Version_Alt.rc
echo .
@echo off
echo .

rem pause <- uncomment this to debug errors
exit

步骤5:在文本编辑器中打开(.dpr)，并将这些.RES文件链接到最终的EXE：

{$IFDEF ALT_LANG}
    {$R 'source\Strings_Alt.res'}
    {$R 'source\Version\Version_Alt.res'}
{$ELSE}
    {$R 'source\Strings.res'}
    {$R 'source\Version\Version.res'}
{$ENDIF}

步骤6:您现在已经获得了包含在文件中的版本信息，只需读取InternalName (这将是“标准”或“备用”)。这样做的办法如下：

strLanguage := GetSpecificFileVersionInfo('YOUR-EXE.exe', 'InternalName');

GetSpecificFileVersionInfo的代码是：

function GetSpecificFileVersionInfo(szFile: PChar; strInfo: String) : String;
var
    pstrBuffer: PChar;
    dwSize, dwLength: DWORD;
    pVersion: pointer;
    strKey: String;
begin
    // Return the specified file version information
    // Adapted from: http://www.swissdelphicenter.com/en/showcode.php?id=1047

    // Typical values in the VERSIONINFO resource of the application include:
    // * CompanyName
    // * FileDescription
    // * InternalName
    // * LegalCopyright
    // * LegalTrademarks
    // * ProductName
    // * ProductVersion
    // * Comments

    // Additional fields may be available if the version information has been updated
    Result := '';
    dwSize := GetFileVersionInfoSize(szFile, dwSize);
    if (dwSize > 0) then
        begin
        pstrBuffer := AllocMem(dwSize);
        try
            if (    (GetFileVersionInfo(szFile, 0, dwSize, pstrBuffer)) and
                    (VerQueryValue(pstrBuffer, '\VarFileInfo\Translation', pVersion, dwLength))) then
                begin
                strKey := Format('\StringFileInfo\%.4x%.4x\%s', [
                    LoWord(Integer(pVersion^)),
                    HiWord(Integer(pVersion^)), strInfo]);
                if (VerQueryValue(pstrBuffer, PChar(strKey), pVersion, dwLength)) then
                    Result := StrPas(pVersion);
                end;
        finally
            FreeMem(pstrBuffer, dwSize);
        end;
        end;
end;

工作完成了。现在你解决了两个问题。第一个是您的原始版本，它是用来识别EXE是如何编译的(而没有实际运行EXE)。第二个是您可能没有意识到的是，您手动输入的版本信息很容易出错……现在您已经包含了更多的自动化版本信息。