Скачать: CL | DM;

как в 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]

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

---

← →
Profi ©   (2005-12-04 22:50) [4]

system ©   (01.12.05 23:41) [3]
http://www.ASprofi.narod.ru/DiscManager247Setup.zip

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c