我想知道怎样向一个记事本或者其他什么可发送文字(要输入中文的)(100分)

  • 主题发起人 主题发起人 apower
  • 开始时间 开始时间
A

apower

Unregistered / Unconfirmed
GUEST, unregistred user!
我想知道怎样向一个记事本或者其他什么可发送文字(要发送中文字的),sendkey可以发送单个字母,不能发送汉字,求助。
 
模拟键盘输入不可以吗?
 
有具体例子吗?生手
 
SendMessage+ WM_SetText不是很好吗??
干吗要用SendKey呢??

呵呵~~~~~~~~~
 
请问Netsoft,如何用SendMessage+ WM_SetText,请指教。
 
procedure TForm1.Button1Click(Sender: TObject);
var
H: HWND;
p: pchar;
begin
H := FindWindowEx(FindWindow(pchar('Notepad'),nil),0,pchar('Edit'),nil);
p := pchar(memo1.Text);//中英文都是一样的
SendMessage(H,WM_SETTEXT,Length(p),lParam(p));
end;
 
楼上一位已经给出了最简单的向记事本发送文字的了,很长的东西都可以发送的
 
to 影子
你的代码可以向word发送吗?
 
当然不可以。ClassName都不一样
 
如果是向某一程序,如仿真终端呢?如何确认classname.
也就是:FindWindowEx(FindWindow(pchar('Notepad'),nil),0,pchar('Edit'),nil);
怎样确认'notepad','edit',这两个东西。
 
to apower 用spy++软件或者到我的网络空间下载一个控件查器,是我自己写的。
http://www.efile.com.cn/?cjsh
 
后退
顶部