(*//標題:獲取其他進程中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 }

//Exampleprocedure 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;