如何将被调用*.exe程序的数据复制过来（调过来）？(50分)

江上游者 · 2006-10-18

现在已经找到需要的主窗体句柄，主窗体中有edit或者窗体中的其它编辑框框，需要将窗体 中的数据复制或者调过来，使用什么方法。

liqj_ · 2006-10-18

// 试试下面代码, 使用 EnumWindows与EnumChildWindows ， // 想找指定内容可以在里面设置过滤条件，返回值为 = False 时停止枚举窗口 var  RootNode:   TTreeNode;       // 第一层节点对象 - 每个顶层窗口都有(除了排除列表)  ChildNodes: array [0..30] of TTreeNode;  // 预设最深层=31  TreeView:   TTreeView;       // 窗口树对象  CengChi:    integer;         // 当前层次  // Class Name , Text Buffer  NoList: array [0..11,0..1] of string =    (('IME','Default IME'),('MSCTFIME UI','M'),('TfrmKBSetValue','KBSetValue'),     ('SystemTray_Main','电表'),('SysFader','SysFader'), ('BCWDBKSYNCHWND','DBK'),     ('MS_WebcheckMonitor','MS_WebcheckMonitor'),('OleDdeWndClass','DDE Server Window'),     ('#43','MCI command handling window'),('ATI video bios poller','ATI video bios poller'),     ('Progman','Program Manager'),('NDDEAgnt','NetDDE Agent')   &nbsp

; function IsInNoList(const psClassName,psBufferText: string): boolean; var  i: integer; begin  // 字串是否在列表中  Result := False;  for i := Low(NoList) to High(NoList) do    if SameText(NoList[i,0],psClassName) and       SameText(NoList[i,1],psBufferText) then    begin      Result := True;      Break;    end; end; function GetClassText(HWND: HWND): string; var  Text: PChar; begin  GetMem(Text, 144);  GetClassName(HWnd, Text, 144);  Result := Text;  freemem(Text); end; function GetText(HWND: HWND): string; var  TextLength: integer;  Text:       PChar; begin  TextLength := SendMessage(HWND, WM_GETTEXTLENGTH, 0, 0);  if TextLength = 0 then    Result := ''  else  begin    getmem(Text, TextLength + 1);    SendMessage(HWND, WM_GetTEXT, TextLength + 1, integer(Text));    Result := Text;    freemem(Text);  end; end; function EnumChildWindowProc(HWND: HWND; lParam: LPARAM): BOOL; stdcall; var  S, S1: string;  Node:  TTreeNode; begin  // 枚举子窗口回调函数  Result := True;  S      := GetText(HWND);  S1     := GetClassText(HWND);  Node   := TreeView.Items.AddChild(ChildNodes[CengChi], 'H

' +            IntToHex(HWND, 8) +    ')' + S + '(' + S1 + ')');  Node.ImageIndex := -1;  Node.StateIndex := HWND;  Inc(CengChi);  ChildNodes[CengChi] := Node;  EnumChildWindows(HWND, @EnumChildWindowProc, lParam);   // 递归枚举子窗口  Dec(CengChi); end; function EnumAllWindow(HWND: HWND; lParam: LPARAM): BOOL; stdcall; var  S, S1: string; begin  // 枚举所有顶层窗口  Result := True;  S      := GetText(HWND);  S1     := GetClassText(HWND);  if (S <> '') and   ( ((lParam=-1) and (Not IsInNoList(S1,S))) or     ((lParam=0) and (Not SameText(S1,'TfrmKBSetValue')) ))     then // 排除定义列表  begin    RootNode := TreeView.Items.AddChild(nil, 'H

' + IntToHex(HWND, 8) + ')' + S + '(' + S1 + ')');    RootNode.ImageIndex := -1;    RootNode.StateIndex := HWND;    CengChi  := 0;    ChildNodes[CengChi] := RootNode;    EnumChildWindows(HWND, @EnumChildWindowProc, lParam);  // 枚举所有子窗口  end; end; // 应用 procedure TfrmKBSetValue.mmRefreshAllClick(Sender: TObject); begin  // 枚举所有窗口以及窗口的控件    Tree.Items.BeginUpdate;  Screen.Cursor := crHourGlass;  try    Tree.Items.Clear;    EnumWindows(@EnumAllWindow, StrToInt(BoolToStr(chkFilterSys.Checked)));    chkFilterSys.Caption := '过滤系统窗口  ' + IntToStr(Tree.Items.Count);  finally    Screen.Cursor := crDefault ;    Tree.Items.EndUpdate;  end; end; procedure TfrmKBSetValue.TreeChange(Sender: TObject; Node: TTreeNode); var  H: HWND; begin  if Tree.Selected = nil then    Exit;  H := Node.StateIndex;  ClassEdit.Text := GetClassText(H);                  // 类名  TextEdit.Text := GetText(H);                        // 文本 end; // ---- 按类名与出现次数查找窗口句柄 var  EnumWindowComClass: string;  EndmWIndowComHwnd:  HWND;  ChildIndex, ChildINC :integer; function EnumChildProc_Class(HWND: HWND; lParam: LPARAM): BOOL; stdcall; var  S: string; begin  Result := True;  S      := GetClassText(HWND);  if Uppercase(S) = EnumWindowComClass then  begin    if ChildInc = ChildIndex then    begin      EndmWIndowComHwnd := HWND;      Result := False;    end;    Inc(ChildInc);  end  else  begin    // 递归查找子窗口，要在同层查找则不要递归调用。    EnumChildWindows(HWND, @EnumChildProc_Class, 0);  end; end;  // Local function FindWindowClass(FormHWND: HWND; ComClass: string; Index: integer): HWND; begin  ChildIndex := Index;     // 取第Index次出现的次数  ChildINC := 0;           // 找到的次数  EndmWIndowComHwnd := 0;  // 找到的句柄  EnumWindowComClass := Uppercase(ComClass); // 查找类名  EnumChildWindows(FormHWND, @EnumChildProc_Class, 0);  Result := EndmWIndowComHwnd; end;

江上游者 · 2006-10-20

关键是把数据从已知的*.exe窗体中复制过来，不是查找的句柄问题。

江上游者 · 2006-10-21

(我的程序)SendMessage-->Edit(*.exe)....已经可以运行 (*.exe)Edit-->'XXX'(如何到我的程序).....使用什么方法

cqwty · 2006-10-21

楼主需要注意一个问题,你是在读取其他程序窗体上的信息,而这个信息,只能通过你自己的程序主动读,而不是让别人的软件给你发.逻辑先搞清楚.实现这个功能是在你的软件上.其实上面的给的代码可以实现了.

chizeng · 2006-10-21

没有liqj_,老兄的这么麻烦吧，定义一个自定义的消息，发送sendmessage(Handle,wpar,lpar)就可以啦，最好能知道调用*.exe要取的对应的控件的名称就好啦

江上游者 · 2006-10-22

在*.exe的程序中的控件句柄可以找，但使用什么方法使*.exe的程序中Edit的内容返回到程序中。

dey-999 · 2006-10-30

自己定义i的值,直到找出对应的控件: function GetLocalTextInfoTest(var ReturnEditHandle:Integer):String; var AHandle, BHandle: Integer;    R:Boolean;    mbuffer: array[0..255] of Char;    ss:string;   {$WRITEABLECONST ON}  function GetComponentHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall;  var s,sssss:string;      i,j:integer;      buffer: array[0..255] of Char;  const      somedata: Integer = 0;  begin    j:=0;i:=22;    if DebugState then sssss:=Uppercase('.SCROLLBAR.')//'TEDIT'    else sssss:='.EDIT.';    Result := True;    //得到目标窗口的控件    j:=GetClassName(hwnd, buffer, 256);    //找到目标窗口的TButton类目标控件    s:=StrPas(Buffer);    if Pos(sssss,uppercase(s))>0 then    begin      if DebugState then begin        inc(somedata);        if somedata=i then begin          somedata:=0;          Result:=False;  //终止循环        end;      end else begin        PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)        Result:=False;  //终止循环      end;    end;  end;   {$WRITEABLECONST OFF} begin  //取句柄  AHandle := FindWindow(nil, 'MasterLabelPrint');  //就是窗口的Caption  //AHandle := FindWindow(nil, 'G/BOX组装防错系统');  //就是窗口的Caption  if AHandle<>0 then  begin    //在这里循环取到想要的句柄为止    R:=EnumChildWindows(AHandle, @GetComponentHandle, Integer(@BHandle));    if not R then begin      ReturnEditHandle:=BHandle;      SendMessage(BHandle,WM_GETTEXT,254,Integer(@mbuffer));      //GetWindowText(BHandle, mbuffer, 100);      ss:=StrPas(mBuffer);      Result:=ss;    end;    //此时，BHandle就是你要的句柄    //PostMessage(BHandle, BM_Click, 0, 0); //向这个按钮发一个点击消息  end; end;

江上游者 · 2006-11-15

句柄已经找到，但是得不到窗体上中的数据，是不是需要使用窗体取词的方法。

ANiDelphi · 2006-11-16

var  Str: array[0..255] of Char; GetWindowText(Handle, @Str, Length(Str));

zlkxzy · 2006-11-27

晕，150元，我来做 QQ 87797301

江上游者 · 2006-12-01

zlkxzy 你说说，这个问题需要使用什么方法解决，能够解决到什么程度。

delphi_delphi · 2006-12-02

我也碰到同类的问题，就是得到另外一个程序的主窗口的句柄，又得到主窗口的子窗口的句柄，例如得到的是stringgrid的句柄，问题在于怎么才能得到stringgrid的数据呢？如有人解决这个问题，我另开一个提问给500分。

znj_326 · 2006-12-11

简单： var  hWindow,hEdit:THandle;  str:array [0..225] of char;  len1:integer; begin  hWindow:=findwindow(nil,'你的窗口名);  if hWindow>0 then  begin    hEdit:=findwindowex(hWindow,0,'Edit','');//edit为编辑框的类    len1:=sendmessage(hEdit,wm_gettextlength,0,0);    sendmessage(hEdit,wm_gettext,len1+1,integer(@str));    showmessage(str); //str为编辑框字符值 end

wynney · 2006-12-12

测试了下楼上的代码，通过 procedure TForm1.Button1Click(Sender: TObject); var  hWindow,hEdit:THandle;  Str:array [0..6539] of char;                                    //要取的字符串的长度  len1:integer; begin  hWindow:=Findwindow(nil,'无标题 - 记事本');    //查找主窗体句柄  if hWindow <>0 then  begin    hEdit:=FindwindowEx(hWindow,0,'Edit',nil);       //Edit为编辑框的类    Len1:=SendMessage(hEdit,wm_gettextlength,0,0);    SendMessage(hEdit,wm_gettext,Len1+1,Integer(@Str));    Memo1.Lines.Add(str);  end; end; 主窗口标题、类名事先使用Spy4Win查看

nicki · 2006-12-29

帮顶

如何将被调用*.exe程序的数据复制过来（调过来）？(50分)

江上游者

Unregistered / Unconfirmed

liqj_

Unregistered / Unconfirmed

江上游者

Unregistered / Unconfirmed

江上游者

Unregistered / Unconfirmed

cqwty

Unregistered / Unconfirmed

chizeng

Unregistered / Unconfirmed

江上游者

Unregistered / Unconfirmed

dey-999

Unregistered / Unconfirmed

江上游者

Unregistered / Unconfirmed

ANiDelphi

Unregistered / Unconfirmed

zlkxzy

Unregistered / Unconfirmed

江上游者

Unregistered / Unconfirmed

delphi_delphi

Unregistered / Unconfirmed

znj_326

Unregistered / Unconfirmed

wynney

Unregistered / Unconfirmed

nicki

Unregistered / Unconfirmed

Similar threads