[問題] 有人寫過輸入法切換的程式嗎?

[LuckyPo (Po)]

不曉得有沒有人寫過輸入法的切換程式
目前我是用Delphi撰寫，但一直無法成功地讓另一視窗切換輸入法

My Code

procedure TIME_Exchange.Button1Click(Sender: TObject);
var
  hWndFocus: HWND;
  lForeWnd: HWND;
  lWinText: array[0..255] of Char;
  lProcessId, lCurThreadID, lForeThreadID: Cardinal;
  lHKL: HKL;
begin
  lHKL := HKL(Screen.Imes.Objects[Screen.Imes.IndexOf(ComboBox1.Text)]);

  lForeWnd := GetForegroundWindow;
  GetWindowText(lForeWnd, lWinText, 256);
  Caption := StrPas(lWinText);

  lForeThreadID := GetWindowThreadProcessId(lForeWnd, lProcessId);
  lCurThreadID := GetCurrentThreadId;

  if AttachThreadInput(lCurThreadID, lForeThreadID, True) then
  begin
    hWndFocus := GetFocus;
    if hWndFocus <> 0 then
    begin
      try
        SendMessage(hWndFocus, WM_INPUTLANGCHANGEREQUEST, 1, lHKL);
      finally
        AttachThreadInput(lCurThreadId, lForeThreadId, False);
      end;
    end;
  end;
end;

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.112.113.55