Файловый менеджер

[wcat99]

Привет всем. Мне нужно написать курсовую работу по теме файловый менеджер и конечно я столкнулся с большими трудностями. Я решил сделать на основе ShellListView и для начала несколько вопросов:

1. Как реализовать функции копирования, удаления, вырезки?

Я хочу, что бы при клике, например, на кнопку "копировать" открылась новая форма с полем ввода, где надо ввести куда копировать, а по умолчанию был путь со второго ShellListView.

2. Хотелось бы сделать Drag'n'Drop из одного окна в другой, но стоит ли вообще за эту штуку браться?

Пока эти вопросы самые волнующие. Буду благодарен за любую помощь.

Написал пока такой код:

procedure TForm1.Button2Click(Sender: TObject);
begin
   ShellListView1.Update;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellListView1.Back;
edit1.Text:=ShellListView1.RootFolder.PathName;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
ShellListView2.Update;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ShellListView2.Back;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ShellListView1.Root:=ExtractFileDir(edit1.Text);
end;

procedure TForm1.ShellListView1DblClick(Sender: TObject);
begin
edit1.Text:=ShellListView1.RootFolder.PathName;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
Form3.Show;
end;

end.

[Pein95]

посмотрите книгу Библия делфи фленова... там есть пример файлового менеджера