有没有能输入中文字符串的 SendKeys 方法？(200分)

HookBoy · 2002-10-31

本来利用 sndkey32 的 SendKeys 来做发送键及英文字符很好， 但是却没有办法进行中文字符的传送。找了很多的函数，却执行不了。大多出现乱码。 所以想问问大家有没有能输入中文字符串的 SendKeys 方法？

greatwzq · 2002-10-31

试试下面的代码 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ procedure SendKeys(focushld: HWND; sSend: string); var i:integer; ch: byte; begin i := 1; while i <= Length(sSend) do begin ch := byte(sSend); if Windows.IsDBCSLeadByte(ch) then begin Inc(i); SendMessage(focushld, WM_IME_CHAR, MakeWord(byte(sSend), ch), 0); end else SendMessage(focushld, WM_IME_CHAR, word(ch), 0); Inc(i); end; end; //实例－－－－－－－－－－－－－－－－－－－－ procedure TForm1.Button1Click(Sender: TObject); var pt: TPOINT; win: HWND; begin sleep(3000); GetCursorPos(pt); win := WindowFromPoint(pt); sendkeys(win,'汉字'); end;

HookBoy · 2002-11-01

greatwzq：   HI，我本来用了剪贴板来做的，感觉很不好。   谢谢你。   给分了， 200分你独得了。交个朋友。

HookBoy · 2002-11-01

接受答案了.

HookBoy · 2002-11-02

greatwzq： 不好，你的代码中有这么一个问题，focushld 不好找，它是无法通过 GetForegroundwindow 来获得的，必须是确切的 EDIT 的 Handle,这样会非常麻烦，因为这个Handle往往是很难找的 要么通过 GetCaretPos 来做？ 有难度啊。 greatwzq能不能再解答一下。

HookBoy · 2002-11-02

我用下面的方法调用，可是不行。   procedure TForm1.Button5Click(Sender: TObject); var   focushld,Win: HWND;   Pos: TPoint; begin   focushld:=findWindow(nil,'未定标题 - 记事本');   SetForegroundwindow(focushld);   GetCaretPos( Pos );   Win:=WindowFromPoint( Pos );   sendkeys(Win,'汉字'); end; 不知道怎么办才好了。

greatwzq · 2002-11-03

GetCursorPos函数检取光标的位置，以屏幕坐标表示，而GetCaretPos函数将插入标记的 位置信息拷贝到指定的POINT结构中,是按客户区坐标表示的！

有没有能输入中文字符串的 SendKeys 方法？(200分)

HookBoy

Unregistered / Unconfirmed

greatwzq

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

greatwzq

Unregistered / Unconfirmed

Similar threads