как в treeview загрузить структуру диска и ...

← →
system © (2005-12-01 00:28) [0]

Привет всем! Возникли проблемы:
1)ищу все папки и файлы на диске и заношу их в ListBox как мне теперь можно их запихнуть в TreeView? Или можно ли организовать это другим образом?
Вот код:
Procedure tform1.Scan(Dir:string); var SearchRec:TSearchRec; f:textfile; begin if Dir<>"" then if Dir[length(Dir)]<>"\" then Dir:=Dir+"\"; if FindFirst(Dir+"*.*", faAnyFile, SearchRec)=0 then repeat if (SearchRec.name=".") or (SearchRec.name="..") then continue; if (SearchRec.Attr and faDirectory)<>0 then FirstScanDir(Dir+SearchRec.name) else begin lbProgs.Items.add(dir+searchrec.name); //мой ListBox end; until FindNext(SearchRec)<>0; FindClose(SearchRec); end; procedure TForm1.BtScanClick(Sender: TObject); begin scan("c:\"); end;
2) как сохранить содержимое TreeView в файл?

← →
Profi © (2005-12-01 00:37) [1]

system © (01.12.05 0:28)
Поищи на http://www.delphiworld.narod.ru там был пример с TreeView.

← →
system © (2005-12-01 00:48) [2]

>Поищи на http://www.delphiworld.narod.ru там был пример с TreeView.

Там нето мне нужно полность отсканировать диск и вывести в TreeView.
Просто я разробатую собственную программу по ведению небольшой базы своих компакт-дисков.

← →
system © (2005-12-01 23:41) [3]

Кто-нибудь может мне помочь или нет?

как в treeview загрузить структуру диска и ... Найти похожие ветки