如何向一个外部程序输入中文字符串，此外部程序有多个Edit。谁有经验？ (100分)

HookBoy · 2002-10-18

代码:

如何向一个外部程序输入中文字符串，此外部程序有多个Edit。只要向有光标的Edit中输入中文字符串。 我曾模拟按键输入了英文字符，可中文字符不好办了。 用SendMessage的话，获得该handle不太好办， 我在考虑   GetCaretPos   得到光标位置 GetWindowsEx    从光标处得到该Edit的句柄 SendMessage     发送消息 但不好办，谁有经验？ 有没有采用Clipboard技术的？

HookBoy · 2002-10-18

我看了许多贴子，都不合我意。 许多人是用模拟按键,但中文不好按的。 有些是通过枚举产生Edit的handle的，但是向所有Edit发送。 所以我期待答案。

HookBoy · 2002-10-18

我想把这个问题改成300分，怎么办?

beta · 2002-10-18

只要向有光标的Edit中输入中文字符串。 我用的比较笨的方法，不过有效： 那就是通过剪贴板，在发送前把字符串存入剪贴板，发送时直接发送 Ctrl+V 的虚拟按键 就可以了：） // uses Clipbrd; 记得引用 Clipbrd 单元 procedure SendPaste; // 发送 Ctrl + V 的虚拟按键进行粘贴 begin   keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);   keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), 0, 0);   keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), KEYEVENTF_KEYUP, 0);   keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0); end; 发送（我是在一个 Timer 里面）：   Clipboard.AsText := '大富翁论坛';   SendPaste; 搞定。

beta · 2002-10-18

// 我想把这个问题改成300分，怎么办? 另外开个帖子再给 200 分 [

]

jsxjd · 2002-10-18

var   p

char; begin   p:='中文';   sendmessage(edithandle,wm_settext,0,integer(pointer(p)));   // sendmessage(edit1.handle,wm_settext,0,integer(pointer(p)));//程序自身的测试

HookBoy · 2002-10-19

beta的方法是有效的，只是这样做粗了点，先记上100分，看看还有没有更好的方法。 jsxjd，我就是在愁edithandle不好确定。

HookBoy · 2002-10-19

提一提

beta · 2002-10-19

to HookBoy：不是所有控件都有 Handle 的，特别是在 IE 里面   所以用 SendMessage 恐怕不行：（

xyl999 · 2002-10-19

关注！

Pearl. · 2002-10-19

发送WM_IME_CHAR行不行呀？这样一次可以发送一个中文字

HookBoy · 2002-10-21

Pearl:   问题在于，不好找Handle.

sanmzhou · 2002-10-24

function input_process(var str : array of char ; outlen : integer) : boolean ; stdcall; var   h_Wnd : HWND;   num : array[0..3] of char ;   dwThreadID, dwCurrentThreadID : DWORD;   pt: TPoint;   old_hkl ,myhkl: HKL;   setflag : integer; begin   setflag := 0;     //检查哪个窗口掌握光标     GetCursorPos(pt);     h_Wnd := WindowFromPoint(pt);     //获得光标所有者的线程ID     dwThreadID := GetWindowThreadProcessId(h_Wnd,nil);     //获得当前线程的ID     dwCurrentThreadID := GetCurrentThreadId();     old_hkl := GetKeyBoardLayOut(0);  //保存旧的HKL     if (dwCurrentThreadID <> dwThreadID) then  //如果输入焦点在别的线程     begin       if AttachThreadInput(dwCurrentThreadID,dwThreadID,True) then //连接线程       begin         h_Wnd := GetFocus();         if outlen = 1 then //如串口内容为单个字符         begin           num[0] := str[0];           SendMessage(h_Wnd,WM_IME_CHAR,ord(num[0]),0);         end         else if outlen = 2 then  //如串口内容为双字节，打开汉字输入法         begin           if screen.Imes.Count = 0 then   //screen.Imes.Count 得到系统中文输入法个数           begin             showMessage(addIME);             exit;           end;           if not ImmIsIME(GetKeyBoardLayOut(0)) then //判断是否在中文状态,若不是           begin          //   showMessage('not chinese!');             myhkl:=hkl(screen.Imes.objects[screen.Imes.Count-2]);             //得到objects[screen.Imes.Count-1]对应的HKL句柄             activatekeyboardlayout(myhkl,KLF_ACTIVATE);//让得到的HKL句柄起作用。             sleep(1000);             setflag :=1 ;           end;           SendMessage(h_Wnd,WM_IME_CHAR,ord(str[0]) shl 8 + ord(str[1]),0);           if setflag = 1 then            //如打开了新的中文输入法,则关闭它           begin             activatekeyboardlayout(old_hkl,KLF_ACTIVATE);//让旧的HKL句柄起作用。             setflag := 0;           end;                     AttachThreadInput(dwCurrentThreadID,dwThreadID,False); //解除线程连接         end;       end     end;

HookBoy · 2002-10-24

sanmzhou:   你的意思是在这样调用 input_process( '我的文字',2); 是不是？ 这个outlen有点烦，如果我要发送 '我的abc文字' ,outlen怎么定义？ 还有我调试时出现了 Ambiguous overloaded call to 'GetWindow ThreadProcessId' 怎么回事？

jsxjd · 2002-10-25

除了IE中的Editbox 比较特殊外，其它应用程序的Edit应该都是有handle 的， 而对于IE中的Editbox应该采用 DHtml 对象模型进行处理！！！！！！

hryyx · 2002-10-25

问题在于，不好找Handle. 使用GetFocus()函数获得光标所在处的Handle

HookBoy · 2002-10-25

sanmzhou的方法有点问题。

readxlp · 2002-10-25

可以使用自定义消息实现，在第一个程序中发送自定义消息给另一程序，第二个程序接收该消息！ 实现过程有点复杂，在书《delphi5开发人员指南》中有例子实现了你所说的功能，例子挺好，建议你买那本书， 如果需要我可以发给你：xinlp@sino-bridge.com

HookBoy · 2002-10-28

readxlp： 可是我要的是对别人已经编好的程序进行消息处理。不是两个我编写的程序。

zyf23 · 2002-10-28

如何向一个外部程序输入中文字符串，此外部程序有多个Edit。谁有经验？ (100分)

HookBoy

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

xyl999

Unregistered / Unconfirmed

Pearl.

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

sanmzhou

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

hryyx

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

readxlp

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

zyf23

Unregistered / Unconfirmed

Similar threads