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

[treachery]

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

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;

[blazingfire]

  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;

[treachery]

。。。。都说了这个方法不行，只能获得输入法的文件名。。。。

[blazingfire]

粗心！
ImmGetIMEFileName = ImmGetDescriptionA??

[blazingfire]

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

[米的向日葵]

[Quote=引用 2 楼 blazingfire 的回复:]
Delphi(Pascal) code 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;
[/Quote]

blazingfire is right, just try.

[meiZiNick]

这个简单啊,网上搜一下就得到答案了.

[knowledge_Is_Life]

这个简单啊,网上搜一下就得到答案了.