怎么无人回答如何得到屏幕的输入法 (50分)

H

hds6400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-28

• #1

如何得到当前屏幕的输入法

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-28

• #2

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;

 

双

双流星

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-28

• #3

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
ComboBox1.Items := Screen.Imes;
end;

 

H

hds6400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-28

• #4

请问yzhshi：
如何得到输入法的名称为中文名称，以便可以进行以下应用
Edit1.ImeName := '智能ABC';

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-28

• #5

这个啦
uses
imm;

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

 

天

天河

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-28

• #6

不错。。

 

H

hds6400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-29

• #7

接受答案了.