Question

我正在使用LoadKeyboardLayout函数以这种方式加载和激活键盘布局：

procedure TfrmMain.eSearchEnter(Sender: TObject);
begin
  LoadKeyboardLayout('00000429', KLF_ACTIVATE);
end;

它完美无缺，但它会将活动表格冻结1-2秒，因为此更改需要一些时间。为了防止这种情况，我将此代码移动到这样的后台线程：

type
  FLangChangeThread = class(TThread)
  private
    FLang: string;
  protected
    procedure Execute; override;
  public
    property Lang: string read FLang write FLang;
  end;

implementation

procedure FLangChangeThread.Execute;
begin
  if FLang = 'EN' then
    LoadKeyboardLayout('00000409', KLF_ACTIVATE)
  else
  if FLang = 'FA' then
    LoadKeyboardLayout('00000429', KLF_ACTIVATE);
end;

这个后台线程我正以这种方式运行：

procedure TfrmMain.ChangeWritingLanguage(ALang: string);
begin
  with FLangChangeThread.Create(True) do
  begin
    FreeOnTerminate := True;
    Lang := ALang;
    Resume;
  end;
end;

procedure TfrmMain.eSearchEnter(Sender: TObject);
begin
  ChangeWritingLanguage('FA');
end;

问题是，它没有按预期更改键盘布局。我调试了代码并且所有行都被执行了;只是LoadKeyboardLayout函数没有成功。

如何让LoadKeyboardLayout功能在后台线程中运行？

Answer 1

首先，您应该检查LoadKeyboardLayout函数的结果，如果失败，您应该检查GetLastError函数返回的错误，以确定错误。

但是即使这个函数调用成功，它也会激活输入语言环境标识符，但是对于你的工作线程。作为LoadKeyboardLayout标志的KLF_ACTIVATE参考状态（由我强调）：

<强> KLF_ACTIVATE

如果尚未加载指定的输入语言环境标识符，则   函数加载并激活输入区域设置标识符   当前主题。

但是，如果要为整个过程加载和激活键盘布局，可以尝试将KLF_ACTIVATE标志与KLF_SETFORPROCESS标志组合：

const
  KLF_SETFORPROCESS = $00000100;
begin
  if LoadKeyboardLayout('00000429', KLF_ACTIVATE or KLF_SETFORPROCESS) = 0 then
    RaiseLastOSError;
end;

如何在后台线程中使用LoadKeyboardLayout？

1 个答案: