给一个程序输入内容(50分)

hujunyi · 2001-06-01

用D4写一个程序，给一个已经打开的写字板输入内容（中英文件字符）

iie · 2001-06-01

我记得以前的贴子里有过，你要问问cAkk，我记得的一个是 <a ref = http://www.delphibbs.com/delphibbs/dispq.asp?lid=208536>

beta · 2001-06-01

先用 FindWindow 找到其句柄 aHandle，然后： SendMessage(aHandle, wm_SetText, 0, PCHAR('Hello world'));

hujunyi · 2001-06-01

楼上的老兄您试过了吗？ 我用PostMessage(MyHWND, WM_CLOSE, 0, 0);是能关闭我打开的写字板程序的， 可是SendMessage(MyHWND, wm_SetText, 0, ord(Str));或 SendMessage(MyHWND, wm_SetText, ord(Str, 0));都无法向写 字板输入内容。

tinytao · 2001-06-01

//唉，50分，我调试很才时间的 procedure TForm1.Button1Click(Sender: TObject);  function EnumChildWindowsProc(hwnd: Integer; lparam: Longint):Boolean; stdcall;   var     buffer: array[0..255] of Char;   begin     Result := True;     //得到目标窗口的控件     GetClassName(hwnd,buffer,256);     //找到发消息的目标窗口的目标控件     if StrPas(Buffer)='Edit' then     begin       PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)       Result:=False;  //终止循环     end;   end; var   Handle: Integer;   buffer: Array[0..1023] of Char; begin   Handle := FindWindow('NotePad',nil);   if Handle<>0 then     begin //       EnumChildWindows(Handle,@EnumChildWindowsProc,Integer(@Handle));       //下面这句会删去原写字板的内容，再写字符串；       //如不想删，我改为      //    S:='字符串'      //  SendMessage(Handle, WM_CHAR, Ord(s), 0);        //要用一个FOR啊         SendMessage(Handle,WM_SETTEXT,0,Integer(pchar('Your String')));     end; end;

leebons · 2001-06-01

我想上面的方法都不错，但是好像都不能实现hujunyi所要求的 输入中文字符，我以前看过一篇有关用wm_settext输入中文字符的文章。可是 我试过了还是没有成功。不过我这倒有另外一种方法，实现中英文都能输入 我给出了一个完整的例子： 这个程序在运行之前必须先启动notepad(记事本) ,然后再拷贝一些东东到粘贴板去,点击button1即可粘贴到记事本. 程序中有详细的注释 unit notepad; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   jubing:Thandle; function getchildText(hwnd:THandle;Param

ointer):Boolean;stdcall;//自定义一个 // 回调调函数; implementation {$R *.DFM} function getchildtext(hwnd:thandle;param

ointer):boolean;stdcall; var buffer:array[0..255] of char; begin getclassname(hwnd,buffer,255);  //得到类名,并存放在buffer中; if string(buffer)='Edit' then begin jubing:=hwnd; result:=false; end; end; procedure TForm1.Button1Click(Sender: TObject); begin sendmessage(jubing,wm_paste,0,0);//发出一个粘贴消息; end; procedure TForm1.FormCreate(Sender: TObject); begin jubing:=findwindow('notepad',nil);//通过类名发现记事本窗口的句柄; //如果你要实现记事本操作可以用delphi自带winsight32查看一下他的类名。 if jubing<>0 then EnumChildWindows(jubing,@getchildText,0);//列举该窗口所有的成员; end; end.

tinytao · 2001-06-01

//改一改，改为这样可以输入中文了吧。 procedure TForm1.Button1Click(Sender: TObject);  function EnumChildWindowsProc(hwnd: Integer; lparam: Longint):Boolean; stdcall;   var     buffer: array[0..255] of Char;   begin     Result := True;     //得到目标窗口的控件     GetClassName(hwnd,buffer,256);     //找到发消息的目标窗口的目标控件     if StrPas(Buffer)='Edit' then     begin       PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)       Result:=False;  //终止循环     end;   end; var   Handle: Integer;   buffer: Array[0..1023] of Char;   i: integer;   s: string; begin   Handle := FindWindow('NotePad',nil);   if Handle<>0 then     begin //       EnumChildWindows(Handle,@EnumChildWindowsProc,Integer(@Handle));       SendMessage(Handle, EM_SETSEL, 0, -1);   //选取ALL       SendMessage(Handle, WM_CUT, 0, 0);      //剪切到剪贴板       SendMessage(Handle,WM_SETTEXT,0,Integer(pchar('字符串')));       SendMessage(Handle, WM_PASTE, 0, 0);   //从剪贴板贴回来     end; end;

hujunyi · 2001-06-01

谢谢各位啦。

hujunyi · 2001-06-01

这个问题我还想进一步问一下，如果某个程序中有多个EDIT输入框，而且在输入完之后， 我还想单击一下某个按钮？ 请问又该如何做呢?

给一个程序输入内容(50分)

hujunyi

Unregistered / Unconfirmed

iie

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

hujunyi

Unregistered / Unconfirmed

tinytao

Unregistered / Unconfirmed

leebons

Unregistered / Unconfirmed

tinytao

Unregistered / Unconfirmed

hujunyi

Unregistered / Unconfirmed

hujunyi

Unregistered / Unconfirmed

Similar threads