//Функция Вывод каталога в TreeView1
procedure TForm1.FilePathToTreeNode(aTreeView: TTreeView; aRoot: TTreeNode;
Path: string; Recurse: boolean);
var
NewNode: TTreeNode;
SRec: TSearchRec;
begin
if FindFirst(Path + '*.*', SysUtils.faAnyFile, SRec) = 0 then
repeat
if (sRec.Name = '.') or (sRec.Name = '..') then
Continue;
if SRec.Name <> 'Projects.luse' then
begin
//Не отоброжаем фай конфигурации
NewNode := aTreeView.Items.AddChild(aRoot, SRec.Name);
NewNode.HasChildren := false;
end;
if Recurse and ((srec.Attr and SysUtils.faDirectory) <> 0) then
begin
FilePathToTreeNode(aTreeView, NewNode, Path + srec.Name + '\', True);
//папка
NewNode.ImageIndex := 1108;
NewNode.SelectedIndex := 1108;
end
else
begin
//Файл
NewNode.ImageIndex := 804;
NewNode.SelectedIndex := 785;
end;
until FindNext(SRec) <> 0;
end;