在程序中怎样改变输入法和键盘布局?

whiterabbit 2000-02-23 11:30:00
想在程序中改变输入法和键盘布局,启动制定的输入法和键盘布局,有什么办法吗?
...全文
174 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
teeegg 2000-02-24
  • 打赏
  • 举报
回复
键盘布局可以参照上面修改
teeegg 2000-02-24
  • 打赏
  • 举报
回复
改变输入法:
procedure TForm1.SetmyIme(ImeName:string);
var
I: Integer;
HandleToSet: HKL;
begin
if not SysLocale.FarEast then Exit;
if ImeName <> '' then
begin
if (AnsiCompareText(ImeName, Screen.DefaultIme) <> 0)
and (Screen.Imes.Count <> 0) then
begin
HandleToSet := Screen.DefaultKbLayout;
I := Screen.Imes.IndexOf(ImeName);
if I >= 0 then
HandleToSet := HKL(Screen.Imes.Objects[I]);
ActivateKeyboardLayout(HandleToSet, KLF_ACTIVATE);
end;
end;
end;

procedure TForm1.ResetmyIme(ImeName:string);
begin
if not SysLocale.FarEast then Exit;
if ImeName <> '' then
begin
if AnsiCompareText(ImeName, Screen.DefaultIme) <> 0 then
ActivateKeyboardLayout(Screen.DefaultKbLayout, KLF_ACTIVATE);
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
SetmyIme('微软拼音输入法');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ResetmyIme('微软拼音输入法');
end;
929 2000-02-24
  • 打赏
  • 举报
回复
BOOL SystemParametersInfo(

UINT uiAction, // system parameter to query or set
UINT uiParam, // depends on action to be taken
PVOID pvParam, // depends on action to be taken
UINT fWinIni // user profile update flag
);
用上面函数加SPI_SETDEFAULTINPUTLANG的ACTION参数可改变当前键盘布局。
改变输入法我想应该用INPUT METHOD FUNCTION,这在DELPHI中预定义的属性,在VC中好象没有,看看以IMM开头的函数吧。
DragonCheng 2000-02-24
  • 打赏
  • 举报
回复
可以利用WIN API函数:SendInput()模拟键盘输入取得相应效果

16,466

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC相关问题讨论
社区管理员
  • 基础类社区
  • Web++
  • encoderlee
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

        VC/MFC社区版块或许是CSDN最“古老”的版块了,记忆之中,与CSDN的年龄几乎差不多。随着时间的推移,MFC技术渐渐的偏离了开发主流,若干年之后的今天,当我们面对着微软的这个经典之笔,内心充满着敬意,那些曾经的记忆,可以说代表着二十年前曾经的辉煌……
        向经典致敬,或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天,我们期待着MFC技术能够恢复其曾经的辉煌,或许这个期待会永远成为一种“梦想”,或许一切皆有可能……
        我们希望这个版块可以很好的适配Web时代,期待更好的互联网技术能够使得MFC技术框架得以重现活力,……

试试用AI创作助手写篇文章吧