fremde Treeview auslesen?

[API]

moin,

Möchte eine freme treeview auslesen. (z.B vom explorer)
Wie stelle ich das an??

[toms]

Siehe Anlage zum Auslesen einer TreeView und ListView unter Win9x/NT


// fuer einen TreeView

Delphi-Quellcode:

uses
  uProcessMemMgr;

function TForm1.GrabTreeView(TreeView: TTreeView; extWnd: HWND): Integer;
const
  MaxTextSize = 1024;
var
  TreeWnd: HWND;
  MM: TProcessMemMgr;
  CurrentItem: HTREEITEM;

  TVItem: TTVItem;
  PrTVItem: PTVItem;
  PrText: PChar;

  procedure AddNodes(TreeView: TTreeView; hTree: HWND; ASrc: HTREEITEM; ADst: TTreeNode);
  var
    NextDst: TTreeNode;
    NextSrc: HTREEITEM;
  begin
    if not Assigned(ASrc) then
      Exit;
    TVItem.hItem := ASrc;
    TVItem.mask := TVIF_TEXT or TVIF_IMAGE or TVIF_PARAM;
    MM.Write(TVItem, PrTVItem, SizeOf(TTVItem));
    {Get Next TreeView Item}
    TreeView_GetItem(TreeWnd, PrTVItem^);
    {Add to our TreeView }
    NextDst := TreeView.Items.AddChild(ADst, MM.ReadStr(PrText));

    {Get Next TreeView Item}
    NextSrc := TreeView_GetChild(hTree, ASrc);
    while Assigned(NextSrc) do
    begin
      AddNodes(TreeView, hTree, NextSrc, NextDst);
      NextSrc := TreeView_GetNextItem(hTree, NextSrc, TVGN_NEXT);
    end;
  end;

begin
  TreeWnd := extWnd;
  if TreeWnd = 0 then
    raise Exception.Create('Handle not found...');
  try
    MM := CreateProcessMemMgrForWnd(TreeWnd);
    PrTVItem := MM.AllocMem(SizeOf(TTVItem));
    PrText := MM.AllocMem(MaxTextSize);
    TVItem.mask := TVIF_TEXT;
    TVItem.pszText := PrText;
    TVItem.cchTextMax := MaxTextSize;
    CurrentItem := TreeView_GetRoot(TreeWnd);
    repeat
      AddNodes(TreeView, TreeWnd, CurrentItem, nil);
      CurrentItem := TreeView_GetNextItem(TreeWnd, CurrentItem, TVGN_NEXT);
    until CurrentItem = nil;
  finally
    MM.Free;
  end;
  if TreeView.Items.Count > 0 then
    TreeView.Items[0].Expand(Boolean(True));
  Result := TreeView_GetVisibleCount(extWnd);
end;

[Metschu]

Nach 10 Jahren grabe ich den Thread mal wieder aus der Versenkung...

Gibt es noch eine Möglichkeit, bei Systemen nach WIN9x den TreeView auszulesen?
Das Tool liest bei WIN 7 keine ListView aus :(

Die Suchfunktion liefert mir leider keine Ergebnisse :(

[jaenicke]

Das kann ich nicht nachvollziehen, bei mir funktioniert das Tool unter Windows 7 und 8.1 problemlos (kompiliert mit Delphi XE8).

Das Problem ist vermutlich eher, dass du entweder nicht F12 drückst im Zielprogramm, die Maus nicht auf der Listview hast oder dass das Zielprogramm gar keine Listview enthält. Ein beliebtes Beispiel ist dafür der Windows Explorer, der früher eine normale Listview war, heute aber nicht mehr.

[Metschu]

Zitat:

Zitat von jaenicke (Beitrag 1309435)

Das kann ich nicht nachvollziehen, bei mir funktioniert das Tool unter Windows 7 und 8.1 problemlos (kompiliert mit Delphi XE8).

Das Problem ist vermutlich eher, dass du entweder nicht F12 drückst im Zielprogramm,...

Naja, das Programm sagt "F10" Drücken, Du "F12", aber Funktionieren tuts nach Auspobiern mit "F11"... :-D

Hätte vorher mal alle Tasten drücken sollen

Gruß

Torsten