如何解决从 Delphi 代码中调出表情符号面板
我想通过点击速度按钮来显示 TEdit
/TMemo
的 Windows 10 表情符号面板。可以通过模拟 Win+ 来完成。键组合,但我不知道如何模拟 Windows 键。
表情符号面板如下所示。
建议?
解决方法
这似乎有效
keybd_event(VK_LWIN,0); // Left Win down
keybd_event(190,0); // "." down
keybd_event(190,KEYEVENTF_KEYUP,0); // "." up
keybd_event(VK_LWIN,0); // Left Win up
照做(基于雷米的建议)
procedure ShowEmoji;
var
k: array [0..3] of TInput;
I: Integer;
begin
ZeroMemory(@k,sizeof(k));
for I := low(k) to high(k) do
k[i].Itype := INPUT_KEYBOARD;
k[0].ki.wVk := VK_LWIN;
k[1].ki.wVk := 190;
k[2].ki.wVk := 190;
k[2].ki.dwFlags := KEYEVENTF_KEYUP;
k[3].ki.wVk := VK_LWIN;
k[3].ki.dwFlags := KEYEVENTF_KEYUP;
SendInput(Length(k),k[0],SizeOf(TInput));
end;
但是如果有更好的建议...
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。