调用系统控制面板中的输入法设置：
WinExec('rundll32.exe shell32,Control_RunDLL main.cpl @4', SW_SHOWNORMAL);
=====================================================================
获得当前输入法的名称：
function GetImeFileName: string;
var
szImeFileName: array[0..MAX_PATH] of char;
begin
if ImmGetIMEFileName(GetKeyboardLayout(0), szImeFileName, MAX_PATH) <> 0 then
Result := AnsiUpperCase(StrPas(szImeFileName))
else
Result := '';
end;
=====================================================
拿分来吧，哈哈
——iseek
