【文件属性】:
文件名称:Delphi获取和设置汉字输入法.rar
文件大小:7KB
文件格式:RAR
更新时间:2022-07-30 11:00:48
Delphi源码-系统相关
Delphi 获取系统中已安装的中文输入法,判断是否在中文状态,若是则关闭它,切换半角和全角模式,切换中文标点模式和英文标点模式,并对输入法做相关设置。以下是相关代码:
procedure TForm1.closecid;
var
mycid:hkl;
begin
mycid:=GetKeyBoardLayOut(0);
if ImmIsIME(mycid) then
//判断是否在中文状态,若是则关闭它
immsimulateHotkey(handle,IME_CHotKey_IME_NonIME_Toggle);
end;
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;
【文件预览】:
srcfans.com
----判断是否在中文状态,若是则关闭它()
--------Unit1.dfm(1KB)
--------Unit1.pas(2KB)
--------Unit1.dcu(5KB)
--------Project1.res(876B)
--------Project1.dof(2KB)
--------Project1.dpr(188B)
--------Project1.cfg(434B)