兄弟们，如何获得当前正在使用的输入法名称

Question

用下面的方法可以获得正在使用的输入法的文件名，而不是输入法的名称，怎么样才能获得名称呢，我想应该是可以通过这个文件名获得的，但是没有思路，也没弄过这个，请大家帮忙了，先谢谢大家。unction GetNowImeFileName: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;

Answer 1

http://topic.csdn.net/t/20041208/18/3627529.html

Answer 2

  function GetNowImeFileName: string;
  var
    szImeFileName: array[0..MAX_PATH] of char;
  begin
    if ImmGetDescriptionA(GetKeyboardLayout(0), szImeFileName, MAX_PATH) <> 0 then
      Result := AnsiUpperCase(StrPas(szImeFileName))
    else
      Result := '';
  end;

Answer 3

粗心！
ImmGetIMEFileName = ImmGetDescriptionA??

Answer 4

blazingfire is right, just try.