[問題] 有人寫過輸入法切換的程式嗎?
不曉得有沒有人寫過輸入法的切換程式
目前我是用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
Programming 近期熱門文章
PTT數位生活區 即時熱門文章
7
20