取系统当前输入法名称。

[johnsonrao]

要取得“XXX 输入法”，不是 XXX.ime
请大家帮个忙。

[sean2000]

Uses Imm;
获得当前输入法的名称：
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;

[Billy_Chen28]

获得输入法的名称：
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;
调用控制面板中输入法设置：
WinExec('rundll32.exe shell32,Control_RunDLL main.cpl @4', SW_SHOWNORMAL);

[johnsonrao]

sean2000(地宽天高)
返回的结果是 xxx.ime 不对

[johnsonrao]

sean2000(地宽天高)
返回的结果是 xxx.ime 不对

[neilwq]

combobox1.Items.CommaText:=screen.Imes.CommaText;

[johnsonrao]

neilwq(啄木鸟) 不一定是当前系统输入法

[neilwq]

这是取得系统中已安装的输入法,
不明白你到底要什么?是不是要默认的输入法名称?
用这个edit1.text:=screen.defaultime

[johnsonrao]

记忆输入框中最后一次使用的输入法，有可能是任意一个安装了的输入法。
但是要中文名称。

[sean2000]

你可以存到配置文件中，进去时读取。

[johnsonrao]

操作是随机的，只要能得到中文名称就什么都解决了，得不到的话存也没法存，每个用户的习惯都不同，指不定他什么时候又改输入法了。

[floattofool]

帮你提一提

[johnsonrao]

自己解决了，一人10分正好。