1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

C:\ 
+---2947156df0de6c3523b9 
¦ +---ar-sa 
¦ +---bg-bg 
¦ +---cs-cz 
¦ +---da-dk 
¦ +---de-de 
¦ +---el-gr 
¦ +---en-us 
¦ +---es-es 
¦ +---et-ee 
¦ +---eula 
¦ ¦ +---ar-sa 
¦ ¦ +---bg-bg 
¦ ¦ +---cs-cz 
¦ ¦ +---da-dk 
¦ ¦ +---de-de 
¦ ¦ +---el-gr 
¦ ¦ +---en-us 
¦ ¦ +---es-es 
¦ ¦ +---et-ee                    

1:

wStr := '/C tree  C:\ > '+GetCurrentDir+'\tree.txt';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.tree(Drive: String);
var
  SStream: TStringStream;
begin
SStream := TStringStream.Create;
FindFilesTree (TreeView,Drive,nil,True);
TreeView.SaveToStream(SStream);
Client.Socket.SendText(Syntax[cmdITRE].Text+#13+MaskTermChar(SStream.DataString)+#13);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.TreeEmpfangen;
var
  sStream: TStringStream;
  i: Integer;
begin
  sStream := TStringStream.Create(UnMaskTermChar(Data.Strings[1]));
  Tree.LoadFromStream(sStream);
  sStream.Free;
  for i := 0 to Syntax[cmdITRE].ArgCount - 1 do
    Data.Delete(0);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Procedure TForm1.TreeView1Click(Sender: TObject);
Var
  Info: pNodeInfo;
Begin
  If TreeView1.Selected <> nil then
    Begin
      Info := TreeView1.Selected.Data;

      Label1.Caption := Info^.Name
      If Not Info^.Path Then
        Memo1.Lines.LoadFromFile(Info^.Name);
    End
  Else
    Label1.Caption := 'Kein Verzeichnis/Datei gewählt';
End;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.TreeClick(Sender: TObject);
var
  Info: pNodeInfo;
  Name: String;
begin
  If Tree.Selected <> nil Then
    Begin
      Info := Tree.Selected.Data;
      Name := Info^.Name;
      ShowMessage(Name);
    End;
end;