很简单，分不少，如何改变输入法顺序(100分)

[8D] 如何改变输入法顺序

用程序还是用鼠标?

HKEY_CURRENT_USER/Keyboard Layout/Preload

同意nick4309,在注冊中修改輸入法一項的dword值

既然知道注册表就好办了！哇~我以前还不知道拉！

　　1．Delphi下的Imename、Imemode属性

　　在Delphi 3.0中的Tedit、Tmemo、TmaskEdit等编辑元件在应用程序中经常使用，这三种元件都具有ImeName、ImeMode属性。其中ImeName属性是输入法名称，在对象观察器中对应一个包括当前系统中所有汉字输入法的下拉组合框；ImeMode属性是输入法模式，在对象观察器中也对应一个下拉组合框，组合框中包含imClose、imOpen、imChinese、imDontCare、imSAlpha、imAlpha六项内容。

　　imClose 表示输入法处于关闭状态；

　　ImOpen 表示输入法处于打开状态；

　　ImChinese 表示处于中文输入法状态；

　　ImDontCare 表示若输入法处于关闭状态则打开最近一次使用过的输入法；

　　ImSAlpha 表示输入处于半角状态；

　　ImAlpha 表示输入处于全角状态。

　　2．Delphi下汉字输入法的编程

　　在Delphi 3.0中，中西文录入界面中涉及到的输入元件都具有ImeName、ImeMode属性。在设计录入界面表单时，对其中每一个元件的这两种属性赋值，系统就可以在元件获得焦点时自动打开或关闭所设定的汉字输入法。但是对于用户来说，这种编程方法一点灵活性也没有。若系统所设定的输入法不是用户所喜欢的，那么只好再通过Windows 95的输入法选择器重新选择。其实，通过在Form下放置一个标签及一个下拉组合框的方法就可以灵活地解决这个问题了。本文示例的Form中共放置了四个Label、两个Edit、一个ComboBox、一个Memo及一个Button，下面对这个示例作个说明。

　　(1)在Delphi中选择File | New Application菜单项生成一个新的应用程序，设定新窗体Form1的属性为：

　　Caption=输入法编程示例；

　　(2)在Form1中添加标签Label1、Label2、Label3及编辑框Edit1、Edit2、Memo1，设定其属性为：

　　Label1.Caption=中文输入编辑框

　　Label1.Font.Size=12

　　Label2.Caption= 西文输入编辑框

　　Label2.Font.Size=12

　　Label3.Caption= 中文多行文本编辑器

　　Label3.Font.Size=12

　　Edit1.ImeMode=ImOpen

　　Edit2.ImeMode=ImDontCare（缺省值）

　　Memo1.ImeMode=ImOpen

　　编程时，一般把输入西文或以西文为主的元件的ImeMode属性设为缺省值；而把输入中文或以中文为主的元件的ImeMode属性设为ImOpen；ImeName属性值则在程序运行时由用户设定。这个方法的灵活性就在于此。另外，还需要把Edit1.Text、Edit2.Text、Memo1.Lines的值设为空。

　　(3)在Form1中添加一个标签Label4，设定其属性为：

　　Caption = 选择最喜欢的输入法

　　Font.Size=12

　　Font.Color=红色

　　(4)在Form1中添加一个下拉组合框ComboBox1，在对象观察器Object Inpector中选择Events选项卡，双击OnDropDown，对此事件进行编程，其代码如下：

　　ComboBox1.Items.CommaText:=Screen.Imes.CommaText;

　　上面这个语句可以将中文Windows 95中安装的汉字输入法添加到下拉组合框中，它巧妙地运用了TScreen类的Imes特性，而Imes特性本身又是一个Tstring类，其属性Commatext包含了Windows 95已安装的汉字输入法，可以将其直接赋值给ComboBox1的相应属性。如果直接编辑ComboBox1的属性Items来添加汉字输入法名称，则会在应用程序发布时，因用户机器汉字输入法的不确定性造成应用程序的不通用性。

　　在对象观察器中双击OnExit事件，对此事件进行编程，代码如下：

　　Edit1.ImeName:=ComboBox1.Text;

　　Memo1.ImeName:=ComboBox1.Text;

　　(5)在Form1中添加一个命令按钮Button1，设置其属性为：

　　Caption=退出

　　Font.Size=12

　　双击此命令按钮，对Click事件进行编程，代码如下：

　　Close；

　　至此，整个示例的程序设计过程就完成了，保存此应用程序及表单，再进行编译、运行，运行后其界面如图所示。

　　3．汉字输入法的使用

　　首先在下拉组合框中选择你所喜欢的汉字输入法，将光标移到中文输入编辑框中就会发现所选的汉字输入法已自动出现在屏幕上；再将光标移到西文输入编辑框中，汉字输入法就会自动关闭；如果将光标移到中文多行文本编辑框中，则已选中汉字输入法又自动出现了。

　　从上面的程序中可以得出，在应用程序的录入界面中，设置一个选择输入法的下拉组合框，并让其控制录入界面中所有可输入项的ImeName属性，既可以做到在中西文录入过程中不必进行录入法的来回切换，还可以做到让用户选择自己最喜欢的汉字输入法，而且这样的录入界面对于用户来说也是非常友好、方便、快捷的
/////////////////////////////////////
---- 常 用 函 数 有：


API函数：BOOL ImmSimulateHotKey

(HWND hWnd,DWORD dwHotKeyID);//模拟热键

其中Hwnd为程序窗口的句柄,dwHotHKeyID

为模拟的热键,若成功则返回True


HKL GetKeyboardLayout(DWORD dwLayout);

//获得当前键盘状态


BOOL ImmIsIME(HKL hKL);

//判断当前是否处于中文输入状态,若是则返回True

自定义函数：

打开相应输入法：OpenIme(imename:string),

例OpenIme('全拼输入法');

关闭中文输入法：CloseIme;


以下是一个简单的例子，仅起参考作用。


使用时uses中加上imm


具体的实现方法及源代码如下：

unit Unit1;


interface


uses

Windows, Messages, SysUtils, Classes,

Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons,imm;


type

TForm1 = class(TForm)

ComboBox1: TComboBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

procedure FormShow(Sender: TObject);

procedure OpenIme(imename:string);

procedure closeIme;

procedure ComboBox1Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);


private

{ Private declarations }

public

{ Public declarations }

end;


var

Form1: TForm1;


implementation


{$R *.DFM}


procedure TForm1.FormShow(Sender: TObject);

var

j:integer;

begin

for j:=0 to screen.imes.count-1 do

begin

ComBoBox1.Items.Add(screen.Imes.strings[j]);

//获取系统中已安装的中文输入法

end;

end;


procedure Tform1.OpenIme(imename:string);

var
I:integer;
myhkl:hkl;
begin
if ImeName<>'' then
begin
if Screen.Imes.Count<>0 then
begin
I:=screen.Imes.indexof(imename);
if I>=0 then
myhkl:=hkl(screen.Imes.objects);
activatekeyboardlayout(myhkl,
KLF_ACTIVATE);//设置相应的输入法
end;
end;
end;


procedure TForm1.closeime;

var

myhkl:hkl;

begin
myhkl:=GetKeyBoardLayOut(0);
if ImmIsIME(myhkl) then
//判断是否在中文状态,若是则关闭它
immsimulateHotkey(handle,
IME_CHotKey_IME_NonIME_Toggle);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
OpenIme(ComboBox1.Text);
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
immsimulateHotkey(handle,
IME_CHotKey_shape_Toggle);//切换半角和全角模式
end;


procedure TForm1.BitBtn2Click(Sender: TObject);

begin
immsimulateHotkey(handle,
IME_CHotKey_symbol_Toggle);

//切换中文标点模式和英文标点模式
end;

　

　

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
closeime;
end;
end.

to chenzheng770101,
我要改变顺序。

chenzheng770101,你把程序发给它算啦，累啊～～～～～～～

修改注册表，具体哪一项可用超级兔子修改。导出再对比即可。然后用注册表类即可编程实现

哈哈，我做了一摸一样的程序，可以实现修改输入法，而且修改完后不需要重起就可以
更新。你改了注册表 hkey_current_user/keyboard layout/preload/后，要重起才能
更新。

薄荷,透露以下

假设Temps里存放的是你修改过后的输入法排序，下面的程序可以使输入法立即更新。
当然，你还要修改注册表里hkey_current_user/keyboard layout/preload/的键值，
否则重起就没了。
for i := Temps.Count-1 downto 0 do
begin
LoadKeyboardLayout(pchar(Temps),KLF_REORDER);
end;
这个问题，我在大富翁上问过，可惜没人回答，最后我是反汇编了Internat.exe和
Main.bpl文件才发现的。

多人接受答案了。