与中文输入相关的函数

最新推荐文章于 2023-03-20 11:32:59 发布

nhconch

最新推荐文章于 2023-03-20 11:32:59 发布

阅读量2.3k

点赞数

分类专栏： Dephi&BCB 文章标签：输入法 windows byte integer string interface

本文链接：https://blog.csdn.net/nhconch/article/details/153195

版权

Dephi&BCB 专栏收录该内容

57 篇文章 0 订阅

订阅专栏

unit Ime;

{=======================================================================
DESIGN BY : 彭国辉
DATE:        2004-10-12
SITE:        http://kacarton.yeah.net/
BLOG:        http://blog.csdn.net/nhconch
EMAIL:       kacarton@sohu.com

文章为作者原创，转载前请先与本人联系，转载请注明文章出处、保留作者信息，谢谢支持！
========================================================================}

interface

uses IMM, Windows;

procedure ImmActive(hWindows: THandle; bChinese: Boolean); //打开或关闭输入法
procedure ImmEnabled(hWindows: THandle; bChinese: Boolean); //允许或禁止输入法
procedure SendDBCSString(hFocus: HWND; const Text: string); //向控件发送中文文本

implementation

//打开或关闭输入法，EX:ImeActive(0, true);
//网上可以搜索到类似的代码，不过用的是IME_THOTKEY_IME_NONIME_TOGGLE，只对繁体版中文Windows有效，用在简体中文Windows下当然不行了
procedure ImmActive(hWindows: THandle; bChinese: Boolean);
begin
if hWindows=0 then hWindows := GetFocus;
if hWindows=0 then Exit;
if ImmIsIME(GetKeyboardLayOut(0)) <> bChinese then
ImmSimulateHotKey(hWindows, IME_CHOTKEY_IME_NONIME_TOGGLE);
end;

//允许与禁止输入法，EX:ImmEnabled(Edit1.Handle, true)
//等效于把Edit1.ImeMode设为imChinese（True）、imClose（False）
procedure ImmEnabled(hWindows: THandle; bChinese: Boolean);
var
hImmc: HIMC;
begin
if hWindows=0 then hWindows := GetFocus;
if hWindows=0 then Exit;
hImmc := ImmGetContext(hWindows);
ImmSetOpenStatus(hImmc, bChinese);
end;

//向控件发送中文文本，EX:SendDBCSString(Edit1.Handle, '哗，终于可以发中文啦！')
procedure SendDBCSString(hFocus: HWND; const Text: string);
var
i: integer;
ch: byte;
begin
if hFocus = 0 then hFocus := GetFocus;
if hFocus = 0 then Exit;
i := 1;
while i <= Length(Text) do begin
    ch := byte(Text[i]);
    if Windows.IsDBCSLeadByte(ch) then begin
      Inc(i);
      SendMessage(hFocus, WM_IME_CHAR, MakeWord(byte(Text[i]), ch), 0);
    end
    else SendMessage(hFocus, WM_IME_CHAR, word(ch), 0);
    Inc(i);
end;
end;