获取其他程序中TreeView的内容
2004-03-29 10:26
309 查看
(*// 标题:获取其他进程中TreeView的文本 说明:Window2000+Delphi6调试通过 设计:Zswang 支持:wjhu111@21cn.com 日期:2004-03-26 //*)
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; { TreeNodeGetNext }
function TreeNodeGetLevel(mHandle: THandle; mTreeItem: HTreeItem): Integer; var vParentID: HTreeItem; begin Result := -1; if (mHandle <> 0) and (mTreeItem <> nil) then begin vParentID := mTreeItem; repeat Inc(Result); vParentID := TreeView_GetParent(mHandle, vParentID); until vParentID = nil; end; end; { TreeNodeGetLevel }
function GetTreeViewText(mHandle: THandle; mStrings: TStrings): Boolean; var vItemCount: Integer; vBuffer: array[0..255] of Char; vProcessId: DWORD; vProcess: THandle; vPointer: Pointer; vNumberOfBytesRead: Cardinal; I: Integer; vItem: TTVItem; vTreeItem: HTreeItem; begin Result := False; if not Assigned(mStrings) then Exit; GetWindowThreadProcessId(mHandle, @vProcessId); vProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE, False, vProcessId); vPointer := VirtualAllocEx(vProcess, nil, 4096, MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE); mStrings.BeginUpdate; try mStrings.Clear; vItemCount := TreeView_GetCount(mHandle); vTreeItem := TreeView_GetRoot(mHandle); 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; WriteProcessMemory(vProcess, vPointer, @vItem, SizeOf(vItem), vNumberOfBytesRead); SendMessage(mHandle, TVM_GETITEM, 0, lparam(vPointer)); ReadProcessMemory(vProcess, Pointer(Cardinal(vPointer) + SizeOf(TLVItem)), @vBuffer[0], SizeOf(vBuffer), vNumberOfBytesRead); mStrings.Add(StringOfChar(#9, TreeNodeGetLevel(mHandle, vTreeItem)) + vBuffer); vTreeItem := TreeNodeGetNext(mHandle, vTreeItem); end; finally VirtualFreeEx(vProcess, vPointer, 0, MEM_RELEASE); CloseHandle(vProcess); mStrings.EndUpdate; end; Result := True; end; { GetTreeViewText }
//Example procedure TForm1.FormCreate(Sender: TObject); begin RegisterHotKey(Handle, 1, MOD_WIN, VK_F2); end;
procedure TForm1.FormDestroy(Sender: TObject); begin UnRegisterHotKey(Handle, 1); end;
procedure TForm1.WMHOTKEY(var Msg: TWMHOTKEY); begin case Msg.HotKey of 1: GetTreeViewText( WindowFromPoint(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y)), MemoText.Lines); end; end;
相关文章推荐
- 获取其他程序中TreeView的内容
- DELPHI 跨进程获取其他程序的DBGrid内容
- 跨进程获取其他程序的DBGrid内容
- C#如何获取其他程序ListView控件中的内容
- windows获取其他程序窗口的内容
- DELPHI 跨进程获取其他程序的DBGrid内容
- 需求:获取其他程序中的ListView控件的文本内容
- DELPHI 跨进程获取其他程序的DBGrid内容
- 跨进程获取其他程序的DBGrid内容
- 跨进程获取其他程序的DBGrid内容
- C#如何获取其他程序ListView控件中的内容 含源码
- Hook或者API高手请进-跨进程获取其他程序的DBGrid内容(其它人做的程序)
- 跨进程获取其他程序的DBGrid内容
- 跨进程获取其他程序的DBGrid内容
- VC获取其他进程ListCtrl内容
- [转载]备忘:VC++6.0 获取其他窗口中文本框内容
- Hook其他程序中的StringGrid的内容(内牛满面,终于找到了。)
- 用.net实现远程获取其他网站页面内容
- 获取其他进程中ListBox和ComboBox的内容
- Linux 获取其他程序返回值