Delphi - Wow64EnableWow64FsRedirection 错误 32 位操作系统

Question

我有一个代码示例。

unit Unit1;

interface

uses
...

type
...

function Wow64EnableWow64FsRedirection(Wow64FsEnableRedirection: BOOL): BOOL; stdcall;

var
...

implementation

{$R *.dfm}

uses
...

function Wow64EnableWow64FsRedirection; external kernel32 name 'Wow64EnableWow64FsRedirection';

procedure LaunchOSK;
begin
  Wow64EnableWow64FsRedirection(False);
  try
    ShellExecute(0, 'OPEN', PChar('osk.exe'), nil, nil, SW_SHOWNORMAL);
  finally
    Wow64EnableWow64FsRedirection(True);
  end;
end;

end.

此代码在 64 位操作系统中运行良好。但是，当您尝试在 32 位操作系统 (XP) 中使用它时，自然会收到一条错误消息（过程入口点 Wow64Enable64FsRedirection 无法位于动态链接库 kernel32.dll 中。） .如果您隔离 Wow64EnableWow64FsRedirection 并运行 ShellExecute，它会正常启动。

在过去的 2 天里，我一直在尝试我在 Google 上搜索过的不同的东西，但在安全地启动 32 位和 64 位 OSK 的情况下，我没有一个作品。即使是著名的 Delphi 大师的建议也不起作用。

我不需要关于禁用 Wow64EnableWow64FsRedirection 的讲座。既然是暂时的，就没有伤害没有犯规。

我需要了解如何获取此代码并隔离 Wow64Enable64FsRedirection 接口过程及其随附的实现部分以及例如当应用程序在 XP 上运行时 LaunchOSK 过程的必要部分。这可能吗？？？编译器语句没用，对吧？

如果这是不可能的，那么我将不得不求助于生产 2 个应用程序（一个用于 XP，另一个用于 64 位），这是最后的手段。

提前致谢。

Answer 1

您可以使用dynamic loading 并简单地检查GetProcAddress 函数是否返回有效的函数地址。

或者您可以使用delayed loading 并仅在操作系统版本和位数符合必要要求时调用导入的函数。

Answer 2

您的代码使用加载时间链接。导入的函数必须存在于系统中，否则您的可执行文件将无法启动。

相反，您需要使用运行时链接。使用LoadLibrary 和GetProcAddress 链接到函数。如果GetProcAddress 找不到该函数，则它不可用，当然您不需要调用它，因为您使用的是 32 位操作系统。

不过，正确的做法是生成一个 64 位进程，然后该进程可以启动 OSK 进程。如果您确实需要禁用重定向，请注意告诉您使用Wow64DisableWow64FsRedirection 的文档。

最后，最好使用CreateProcess 来启动进程。涉及 shell 和文件关联没有任何好处。既然可以直接调用CreateProcess，为什么还要让shell调用呢？

好的，这通常是个好建议，但再次强调，OSK 很特别。见Delphi - On Screen Keyboard (osk.exe) works on Win32 but fails on Win64。