checkbox in ShellTreeView

[SergGhost]

Всем привет. Мне необходимо создать что-то типа дерева каталогов, где пользователь мог выделять интересующие его папки для дальнейшего их копирования. Для этого решил использовать компанент ShellTreeView и засунуть в него Checkbox - это делаю с помощью следующего кода:
procedure TForm1.FormCreate(Sender: TObject);
var
dwStyle : DWord;
begin
dwStyle := GetWindowLong(ShellTreeView1.Handle ,GWL_STYLE);
dwStyle := dwStyle or OBM_CHECKBOXES;
SetWindowLong(ShellTreeView1.Handle ,GWL_STYLE,dwStyle);
end;
К сожалению так и не смог разобратся, как определить, что выбрал пользователь? подскажите пожалуйста, если возможно, кодом.

[havok]

тут оригинал правда на каком-то восточном

type

    TTreeNodeCheckState = ( csNone, csUnChecked, csChecked );

procedure TForm1.Button1Click(Sender: TObject);
const
    AStateText: array [TTreeNodeCheckState] of String =
    ( 'None', 'UnChecked', 'Checked' );
var
    ANode: TTreeNode;
    ATVItem: TTVItem;
    AState: TTreeNodeCheckState;
begin
    ANode := TreeView1.Selected;
    if not Assigned( ANode ) then Exit;
    with ATVItem do
    begin
    mask := TVIF_HANDLE or TVIF_STATE;
    hItem := ANode.ItemId;
    stateMask := TVIS_STATEIMAGEMASK;
    end;
    TreeView_GetItem( TreeView1.Handle, ATVItem );
    AState := TTreeNodeCheckState( ATVItem.State shr 12 );
    Label1.Caption := Format( 'The Node Is "%s"', [ANode.Text] );
    Label2.Caption := Format( 'Check State Is "%s"', [AStateText[AState]] );
end;

что-то вроде
или вот это

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
aNode: TTreeNode;
begin
 for i:=0 to  ShellTreeView1.Items.Count-1 do
   if IsNodeChecked(ShellTreeView1.Items[i]) then
     ShowMessage(ShellTreeView1.Items[i].Text);

end;

function TForm1.IsNodeChecked(aNode :TTreeNode) :Boolean;
var
  aTVItem :TTVItem;
begin
  with aTVItem do begin
    Mask  := TVIF_STATE;
    hItem := aNode.ItemId;
  end;
  TreeView_GetItem(aNode.TreeView.Handle, aTVItem);
  result := (aTVItem.State and $2000) = $2000;
end;