关于获取其它程序窗口编辑框内容

Question

想通过一个小程序获取一个叫“客户信息”窗口中不为空编辑框的内容
窗口有四个编辑框，请大家指教。

Answer 1

想法是：找到窗口，再找到子窗口(四个编辑框)，然后一个个发消息，取它的内容，是空的就不管它，不为空的存起来。
我用hWindow := FindWindow(nil,'客户信息');找到了窗口，但不知道如何查找其中的编辑框及取其内容。

Answer 2

先获取到编辑框的句柄，可以根据Z序查找到句柄，你用Spy++看下；
然后用下面的函数获取编辑框里面的内容：
function GetWndText(ThWnd: hWnd): string;
var
  Ret:LongInt;
  mText:PChar;
  Buf:Integer;
begin
  Ret := SendMessage(ThWnd, WM_GETTEXTLENGTH, 0, 0) + 1;
  GetMem(mText,Ret);
  try
    Buf := LongInt(mText);
    SendMessage(ThWnd, WM_GETTEXT, Ret, Buf);
    Result := StrPas(mText);
  finally
    FreeMem(mText,Ret);
  end;
end;

Answer 3

既然找到了句柄，直接用api GetWindowText不就得了

Answer 4

1.FindWindows 先找主窗体
2.EnumChildWindows 找出所有子窗体
  循环再判一下就成了

Answer 5

用SPY++看了，需要取数的是一个listbox控件，里面只有一个内容。

Answer 6

listbox不能这么读啊
要读内存，用下面的函数：uses CommCtrl;
function TreeNodeGetNext(mHandle: THandle; mTreeItem: HTreeItem): HTreeItem;
var
  vParentID: HTreeItem;
begin
  Result := nil;
  if (mHandle <> 0) and (mTreeItem <> nil) then begin
    Result := TreeView_GetChild(mHandle, mTreeItem);
    if Result = nil then
      Result := TreeView_GetNextSibling(mHandle, mTreeItem);
    vParentID := mTreeItem;
    while (Result = nil) and (vParentID <> nil) do begin
      vParentID := TreeView_GetParent(mHandle, vParentID);
      Result := TreeView_GetNextSibling(mHandle, vParentID);
    end;
  end;
end;function TreeView_SelectItem_Ex(hwndTV: HWND; slText: TStringList): Boolean;
var
  vItemCount: Integer; 
  vBuffer: array[0..255] of Char; 
  vProcessId: DWORD; 
  vProcess: THandle; 
  vPointer: Pointer; 
  vNumberOfBytesRead: Cardinal;
  I: Integer;
  vItem: TTVItem;//uses CommCtrl
  vTreeItem: HTreeItem;
begin
  Result := False;
  if hwndTV = 0 then exit;
  GetWindowThreadProcessId(hwndTV, @vProcessId); // ?瑕?蝒?餈?ID
  vProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or
    PROCESS_VM_WRITE, False, vProcessId);
  if (vProcess = 0) then
    Exit;
  vPointer := VirtualAllocEx(vProcess, nil, 4096, MEM_RESERVE or MEM_COMMIT,
    PAGE_READWRITE);
  if vPointer = nil then exit;
  try
    vItemCount := TreeView_GetCount(hwndTV);
    vTreeItem := TreeView_GetRoot(hwndTV);
    for I := 0 to vItemCount - 1 do
    begin 
      with vItem do
      begin 
        mask := TVIF_TEXT;
        cchTextMax := SizeOf(vBuffer);
        pszText := Pointer(Cardinal(vPointer) + SizeOf(vItem)); 
        hItem := vTreeItem;
      end;      if not WriteProcessMemory(vProcess, vPointer, @vItem, SizeOf(vItem),
        vNumberOfBytesRead) then break;      SendMessage(hwndTV, TVM_GETITEM, 0, lparam(vPointer));      if not ReadProcessMemory(vProcess, Pointer(Cardinal(vPointer)
        + SizeOf(TLVItem)), @vBuffer[0], SizeOf(vBuffer), vNumberOfBytesRead) then
        break;      slText.Add(vBuffer);
      vTreeItem := TreeNodeGetNext(hwndTV, vTreeItem);
    end; 
  finally 
    VirtualFreeEx(vProcess, vPointer, 0, MEM_RELEASE); 
    CloseHandle(vProcess);
  end;
end;