-
向指定HWND发送字符串
- procedure SendKeys(focushld: hwnd; sSend: string);
- var
- i: integer;
- ch: byte;
- begin
- if focushld = 0 then Exit;
- i := 1;
- while i <= Length(sSend) do
- begin
- ch := byte(sSend[i]);
- if Windows.IsDBCSLeadByte(ch) then
- begin
- Inc(i);
- SendMessage(focushld, WM_IME_CHAR, MakeWord(byte(sSend[i]), ch), 0);
- end
- else
- SendMessage(focushld, WM_IME_CHAR, word(ch), 0);
- Inc(i);
- end;
- postmessage(focushld, WM_keydown, 13, 0);
- end;
-
相关阅读:
网页设计的12种颜色
深入理解编辑过程
数据压缩
<Mastering KVM Virtualization>:第四章 使用libvirt创建你的第一台虚拟机
<Mastering KVM Virtualization>:第三章 搭建独立的KVM虚拟化
<Mastering KVM Virtualization>:第二章 KVM内部原理
<Mastering KVM Virtualization>:第一章 了解Linux虚拟化
本地设置
Spring Data JPA之删除和修改
在Mac Chrome上关闭跨域限制--disable-web-security
-
原文地址:https://www.cnblogs.com/zhaoshujie/p/9594831.html
Copyright © 2020-2023
润新知