TreeView и проводник

[Baaandit]

Необходимо реализовать с помощью компонента TreeView что-то наподобие проводника,с жесткими дисками,папки мои документы и т.д. Еще необходимо перетаскивание файлов из TreeView в Listbox,то есть их имен.Понадобится я думаю рекурсивная процедура нахождения файлов,Drag and Drop.И вообще как это можно реализовать?

[quit]

Сообщение от Baaandit

Необходимо реализовать с помощью компонента TreeView что-то наподобие проводника,с жесткими дисками,папки мои документы и т.д. Еще необходимо перетаскивание файлов из TreeView в Listbox,то есть их имен.Понадобится я думаю рекурсивная процедура нахождения файлов,Drag and Drop.И вообще как это можно реализовать?

У Фленова в "Библии Delphi" есть пример с разработкой аля-Total Commander...

[Baaandit]

Там немного не то -организована программа с помощью компонента TListVew.

[quit]

Baaandit ну так и по аналогии делайте с TreeView... Организация поиска одна и та же, что тут, что там. В TListVew итемы, а в TreeView ноды! Какие проблемы? Что не понятно?

[Baaandit]

Procedure ScanDir(Dir:string);
var SearchRec:TSearchRec;
N1,N2,:TTreeNode;
begin

if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
n1:=form1.TreeView1.Items.Add(nil,D ir);????????
if (FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0)
then
repeat
application.processmessages;

if (SearchRec.name='.') or (SearchRec.name='..') then continue;
if ((SearchRec.Attr and faDirectory)=fadirectory) then begin
ScanDir(Dir+SearchRec.name);
end
else
if (ExtractFileExt(SearchRec.name)='.' +pashirenue)or(pashirenue='*.*') or(SearchRec.name=pashirenue)
then begin
n2:=form1.TreeView1.Items.Addchild( n1,Dir+SearchRec.name)???
end;
until FindNext(SearchRec)<>0;
FindClose(SearchRec);
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
getdir(0,s);
pashirenue:='*.*';
if edit1.Text='' then edit1.Text:=s;
ScanDir(d:\1);
end;


Как поправить процедуру scandir неправильно формирует дерево файлов и подпапок папки d:\1;