Delphi：如何本地化菜单快捷方式的描述？

Question

有没有办法获得像 Ctrl+Z 这样的快捷方式的本地化描述，以便我得到“Ctrl+Z”，如果应用程序在英语系统上运行，而“Strg+Z”在德语系统上运行？

VCL 函数 ShortCutToText 未国际化。 API 函数 GetKeyNameText 稍好一些，但仍然不完美：如果将德语 XP 的区域设置切换为英语（美国），它仍然会生成德语文本。此外，结果都是大写的，这很难看。

说明：我知道如何用自定义版本替换 ShortCutToText 或 Smkc* 资源字符串。但要使用它，我需要翻译后的字符串。我想从操作系统（或类似的）获取这些。

更新：看起来 Microsoft 希望开发人员自行进行翻译 - 请参阅 将菜单项与加速键关联。引用：

例如，要将 CTRL+O 分配给“文件”菜单上的“打开”命令， 您修改菜单项的标题，使其看起来像这样：

打开\tCtrl+O

菜单编辑器中的菜单项已更新以反映新的标题 当您输入时。

请注意，快捷方式是手动附加到标题的。

Answer 1

ShortCutToText 使用 MenuKeyCaps 数组。这不能直接修改（因为它是在菜单单元的实现中），但是该数组填充了可以使用各种翻译工具进行翻译的资源字符串。

您需要翻译 SmkcCtrl 资源字符串常量，该常量位于 consts.pas 中（取决于您的 Delphi 版本）。

[edit]

或者你可以下载 BigProcHook.pas，我也创建了钩子函数并用你自己的替换它们。然后，您可以编写一个重写，调用常规 ShortCutToText 函数，并将文本“Ctrl”替换为“Strg”（反之亦然），而菜单甚至不知道这一点。
但我只会将此作为最后的手段，因为我认为最好只翻译资源。如果您想使用该挂钩，请下载并包含该单元，然后在任何单元中添加以下代码（如果您愿意，可以添加一个单独的新单元）。

uses
  BigProcHook, Menus;

var
  FHook: TBigProcHook;

// The replacement function
function MyShortCutToText(ShortCut: TShortCut): string;
begin
  FHook.Hooked := False;
  try
    Result := ShortCutToText(ShortCut);
    Result := StringReplace(Result, 'Ctrl', 'Whatever', []);
  finally
    FHook.Hooked := True;
  end;
end;

initialization
  FHook := TBigProcHook.Create(@ShortCutToText, @MyShortCutToText);
finalization
  FHook.Hooked := False;
  FHook.Free;
end.

它将用您喜欢的任何文本替换快捷方式文本中的 Ctrl，而无需更改任何其他代码。

Answer 2

我将回答我自己的问题，以便我有一些可以接受的东西：看起来微软希望开发人员自己进行翻译 - 请参阅 将菜单项与加速键关联。引用：

例如，要将 CTRL+O 分配给“文件”菜单上的“打开”命令，
您修改菜单项的标题，使其看起来像这样：

打开\tCtrl+O

菜单编辑器中的菜单项已更新以反映新的标题
当您输入时。

请注意，快捷方式是手动附加到标题的。