怎样控制中文输入法的开关(类似 Ctrl+空格的功能) (50分)

用户想在某个输入能打开输入法，在另一个输入又能关闭输入法，它的功能相当于 Ctrl+空格
我只能做到使用一种输入法（如全拼），但用户如果是用五笔就不行了。

没人知道方法吗，是不是很难实现呢？

procedure setmyime(imename:string);
var i:integer;
; ; handletoset:hkl;
begin
; ;if not syslocale.fareast then exit;
; ;if imename<>'' then
; ;begin
; ; ;if (ansicomparetext(imename,screen.defaultime)<>0)and
; ; ; ;(screen.imes.count<>0) then
; ;begin
; ; handletoset:=screen.defaultkblayout;
; ; i:=screen.imes.indexof(imename);
; ; if i>=0 then
; ; handletoset:=hkl(screen.imes.object);
; ; activatekeyboardlayout(handletoset,klf_activate);
; ;end;
end;
end;
resetmyime:
; ; if not syslocale.fareast then exit
; ;if ansicomparetext(imename,screen.defaultime)<>0 then
; ;activatekeyboardlayout(screen.defaultkblayout,klf_activate);

设置每个输入控件的IME属性，需要中文时设为IMEOpen，不用时设为IMEClose即可。

可以适应各种输入法。

同上

多人接受答案了。