Accessing items in a TreeView of an external application

Hi,

I've already had a look at http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_20272830.html, http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_20593454.html, though the links in there don't work (eg MadRemote, etc).  Also what's thrown me is http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_23524965.html whereby it seems someone was able to get this working with the existing "TreeView_GetSelection" function in CommCtrl.

I've probably gotten ahead of myself here abit, so first some information.  We have a application here and what I'm doing at the moment is writing an application that will just stress test it.  By this I mean it'll simulate a user going through it and repeating various actions in rapid succession, usually for hours on end (all the while keeping logs of everything which is happening).  

Reading various data like listboxes and text boxes is easily done already, as with the various navigations (the program knows what screen the system is currently on and re-acts accordingly), and the only thing holding me up at the moment is a TreeView who's contents change depending on the options set up and data in the database.  I've already made it possible for the program to choose an option in there, but for record purposes (and also to know how to react afterwards) I need to determine what option it's selected.

The program is able to already gather the hwnd of the window with the treeview, as well as drill down through the child components until it actually reaches the treeview itself.  I've also managed to get the number of items in the list via TVM_GETCOUNT, but when I try to get the actual selected item via either TVM_GETITEM or TreeView_GetItem I always get a null string and a failure bool .

I've only given the question 125 points because I have this feeling I'm going to be told that it isn't possible with the existing routines in CommCtrl (though it does make me ask the question of why those routines exist) and thus it's probably an open and shut case, but if it is possible then I'll up the points to 500.

I've added my two functions to the code section.  If anyone can give some insight it'd be greatly appreciated.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

function GetSelectedTreeItem(HwndTree) : String;
var
  pitem: TTVItem;
begin
  try
    result := '';
    pitem.hItem := TreeView_GetSelection(HwndTree);
    pitem.mask := TVIF_TEXT;
    pitem.cchTextMax := 255;
    if TreeView_GetItem(HwndTree, pitem) then
      UpdateLog('Successfull GetItem')
     else
       UpdateLog('Unsuccessful GetItem');
     //SendMessage(HwndPOSChild, TVM_GETITEM, 0, longint(@pitem));
    Result:=pitem.pszText;
    //result := TreeView_GetSelection(HwndPOSChild);
  except
    result := '';
  end;
end;
 
function GetSelectedTreeItemV2(HwndTree) : String;
var
  TreeItem: TV_ITEM;
  TreeText: array [0 .. 255] of Char;
begin
  try
    FillChar(TreeItem, SizeOf(TreeItem), 0);
    result := '';
    TreeText := '';
    with TreeItem do
       begin
       mask := TVIF_TEXT or TVIF_HANDLE;
       hItem := TreeView_GetSelection(HwndTree);
       pszText := @TreeText;
       cchTextMax := 255;
      end;
    if (TreeView_GetItem(HwndTree, TreeItem)) then
      UpdateLog('Successfull GetItem')
    else
      UpdateLog('Unsuccessful GetItem');
    //SendMessage(HwndPOSChild, TVM_GETITEM, 0, longint(@TreeItem));
    Result:=TreeText;
  except
    result := '';
  end;
end;