以下的程序可以得到当前的输入法，剩下的就看你自己想怎么做了。
uses
imm;
function GetDescription: string;
var
szDescription: array[0..MAX_PATH] of char;
begin
if ImmGetDescription(GetKeyboardLayout(0), szDescription, MAX_PATH) <> 0 then
Result := StrPas(szDescription)
else
Result := '';
end;
