请教高手(如何获取当前用户选择的系统输入法的名称)(20分)

希望用户选择输入法后,在edit,dbedit,memo,dbmemo中输入数据时的输入为用户选择的输入法,而且退出系统时,何存该用户的输入法,下一次登录时,用开始的输入法
怎么样才能获取当前输入的名称和记忆当前的输入
调用下面的函数
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;
结果值为空,
我想得到的是如果现在状态中的输入为五笔,我要得到的是五笔输入法的名称,不管选择什么输入就得到相应的输入的名称,怎么解决这个问题
谢谢!