如何获取其它程序Edit中的文本？(请高手帮忙改写完善一段代码) ( 积分: 100 )

ax518598 · 2005-01-25

其它程序不是我自己编写的。在网上查到一段类似代码，但因自己太菜，不会改写，请高手帮忙改写一段代码

假设另一程序标题为"***管理系统",需要获取的Edit坐标为(80,40)-(160,60)) 以下为网上找的感觉类似的代码： porcedure 得到目标窗体的句炳; var   hCurWindow，hwnds: HWnd;// 窗口句柄   WinText: array [0..255] of char; begin   // 获取第一个窗口的句柄   hCurWindow := GetWindow(Handle, GW_HWNDFIRST);   while hCurWindow &lt;&gt; 0 do     begin       // 获取窗口的名称       if GetWindowText(hCurWindow, @WinText, 255)&gt;0 then       if strpas(@wintext))='目标窗体的标题' then         begin          hwnds:=hcurwindow;//储存句炳          跳出循环；         end;       listbox1.items.Add(StrPas(@WinText));         // 获取下一个窗口的句柄      hCurWindow:=GetWindow(hCurWindow, GW_HWNDNEXT);    end; end; function GetButtonHandle(hwnds: hwnd; lparam: Longint):Boolean; stdcall; var   buffer: array[0..255] of Char;   buffer1: array[0..255] of Char; begin   Result := True;     //得到目标窗口的控件   GetClassName(hwnd,buffer,256);     //目标窗口的目标控件   if StrPas(Buffer)='Button' then     begin       GetWindowText(hwnd,buffer1,100);       if buffer1 = '确定' then         begin           PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)           Result:=False;//终止循环         end;    end; end; procedure TfrmMain.bbtnStartClick(Sender: TObject); var   Handle: Integer;   tmpHandle: Integer; begin    {取句柄}   Handle := FindWindow(nil,'对话模式');//就是窗口的Caption   if Handle&lt;&gt;0 then     begin      tmpHandle := Handle;          //在这里循环取到想要的句柄为止             （****此处不知如何改）          //取发送按钮的，FButtonHandle      EnumChildWindows(Handle,@GetButtonHandle,Integer(@Handle));      FButtonHandle := Handle;    end; end; procedure 控制按钮； begin   SendMessage(FButtonHandle,WM_LBUTTONDOWN,0,0);   SendMessage(FButtonHandle,WM_LBUTTONUP,0,0); end;

ax518598 · 2005-01-25

其它程序不是我自己编写的。在网上查到一段类似代码，但因自己太菜，不会改写，请高手帮忙改写一段代码

假设另一程序标题为"***管理系统",需要获取的Edit坐标为(80,40)-(160,60)) 以下为网上找的感觉类似的代码： porcedure 得到目标窗体的句炳; var   hCurWindow，hwnds: HWnd;// 窗口句柄   WinText: array [0..255] of char; begin   // 获取第一个窗口的句柄   hCurWindow := GetWindow(Handle, GW_HWNDFIRST);   while hCurWindow &lt;&gt; 0 do     begin       // 获取窗口的名称       if GetWindowText(hCurWindow, @WinText, 255)&gt;0 then       if strpas(@wintext))='目标窗体的标题' then         begin          hwnds:=hcurwindow;//储存句炳          跳出循环；         end;       listbox1.items.Add(StrPas(@WinText));         // 获取下一个窗口的句柄      hCurWindow:=GetWindow(hCurWindow, GW_HWNDNEXT);    end; end; function GetButtonHandle(hwnds: hwnd; lparam: Longint):Boolean; stdcall; var   buffer: array[0..255] of Char;   buffer1: array[0..255] of Char; begin   Result := True;     //得到目标窗口的控件   GetClassName(hwnd,buffer,256);     //目标窗口的目标控件   if StrPas(Buffer)='Button' then     begin       GetWindowText(hwnd,buffer1,100);       if buffer1 = '确定' then         begin           PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)           Result:=False;//终止循环         end;    end; end; procedure TfrmMain.bbtnStartClick(Sender: TObject); var   Handle: Integer;   tmpHandle: Integer; begin    {取句柄}   Handle := FindWindow(nil,'对话模式');//就是窗口的Caption   if Handle&lt;&gt;0 then     begin      tmpHandle := Handle;          //在这里循环取到想要的句柄为止             （****此处不知如何改）          //取发送按钮的，FButtonHandle      EnumChildWindows(Handle,@GetButtonHandle,Integer(@Handle));      FButtonHandle := Handle;    end; end; procedure 控制按钮； begin   SendMessage(FButtonHandle,WM_LBUTTONDOWN,0,0);   SendMessage(FButtonHandle,WM_LBUTTONUP,0,0); end;

minglove · 2005-01-25

procedure GetWindowHandle; var  MainHandle:THandle; begin  MainHandle:= Findwindow(nil,'***管理系统')//此处的caption可以sqy++获得。  if MainHandle &lt;&gt; 0 then    windows.EnumChildWindows(MainHandle,@GetEditHandle,0); end;   Function GetEditHandle(hwnd:hwnd; lparam:LPARAM):boolean; var  MyStr: Pchar;  //MyHandle: array[0..255] of THandle;  ClassName: array[0..255] of char; begin  GetClassName(hwnd,@ClassName[0],255);  if className= 'Edit' then  begin    sendmessage(hwnd,wm_settext,10,integer(MyStr));    listview1.items.add(Mystr);  end;  result:= true;     end;

ax518598 · 2005-01-25

minglove,你好，我按你的修改后仍没有正常结果，我后来查了GetEditHandle(hwnd:hwnd; lparam:LPARAM):boolean;函数，显示得知　MyStr 是空的，ClassName 值为"4?"，不知为什么。（我另外用Delphi写了一个很简单的Form,上面只有一个Name为"Edit"的文本框，Form.Caption为"***管理系统"）；

ax518598 · 2005-01-25

我通过下面的函数都能运行正常，但我仍取不出文本框中输入的字符串，不知道该用什么函数。([red]解决了该问题就结题了[/red]) function GetButtonHandle(hwnds: hwnd; lparam: Longint):Boolean; stdcall; var   buffer: array[0..255] of Char;   buffer1: array[0..255] of Char; begin   GetClassName(hwnds,buffer,256);     if StrPas(Buffer)='TEdit' then         begin       GetWindowText(hwnds,buffer1,100);       if buffer1 = 'Edit888' then  //Edit888为一个Edit的Name,我在该框中输入‘1234’时，我希望取出它们(1234)           Form1.Memo1.Lines.Add(buffer1);       if buffer1 = 'Edit999' then  //Edit999为另一个Edit的Name           Form1.Memo1.Lines.Add(buffer1);       Result := True;     end; end;

someset · 2005-01-25

据我从前所知 EDIT中的内容属于要用地址获取的那种，然而如果是其他程序的控件，是在其进程的地址空间中无法访问 更绝的是，我发现用API返回的指针是NULL。 更进一步的我没有实验，不知先用OPENPROCESS打开进程可否得到有效地址 继续的话我想还需要用一个什么函数打开进程的地址空间，够麻烦的

ax518598 · 2005-01-25

郁闷无比，查Delphi的Help，发现GetWindowText函数其它的内容都能取出来，唯独就Edit的输入内容不能取出来，哪位高手能指点一下，用其它方式能取出来吗？

迷糊 · 2005-01-25

不是edit特殊，是你的句柄没取对 var  h:thandle;  a:array[0..255] of char; h:= Findwindow(nil,'***管理系统'); if h&lt;&gt;0 then begin  h:=findwindowex(h,0,'tedit',nil);  if h&lt;&gt;0 then   begin      getwindowtext(h,a,256);      showmessage(a);   end; end;

ax518598 · 2005-01-25

请教各位：能否知道另一个程序中的两个Edit，究竟当前是哪一个Edit处理焦点状态?(即输入光标停留在其上面)，给人感觉应该能取出来，因为在WinSight32中光标处于不同的Edit上会有不同的变化。看来只能和键盘钩子结合我才能取出它们的值了。

ax518598 · 2005-02-05

多人接受答案了。

如何获取其它程序Edit中的文本？(请高手帮忙改写完善一段代码) ( 积分: 100 )

ax518598

Unregistered / Unconfirmed

ax518598

Unregistered / Unconfirmed

minglove

Unregistered / Unconfirmed

ax518598

Unregistered / Unconfirmed

ax518598

Unregistered / Unconfirmed

someset

Unregistered / Unconfirmed

ax518598

Unregistered / Unconfirmed

迷糊

Unregistered / Unconfirmed

ax518598

Unregistered / Unconfirmed

ax518598

Unregistered / Unconfirmed

Similar threads