Lazarus ShellTreeView и ShellListView

[B_TpaHce]

На форме есть 2 ShellTreeView и 2 ShellListView. У каждого ShellListView в свойстве ShellTreeView указан свой ShellTreeView.
Программа запускается и показывает структуру файловой системы.
Хочу сделать копирование, удаление и переименование файлов выделенных в одном ShellListView в другой.
Нашел функции CopyFile, DeleteFile, RenameFile.
Подскажите, как передать из ShellListView путь выделенного файла в параметры этих функций?
Нашел пример для Delphi, но он не работает:

ShellListView1.Folders[ShellListView1.ItemIndex].PathName

Система Ubuntu 12.04, Lazarus 0.9.30

[Stilet]

ИМХО
ShellListView1.GetPathFromItem(Shel lListView1.Selected)
ShellTreeView1.GetPathFromNode(Shel lTreeView1.Selected);

P.S. Исправил пост...

[B_TpaHce]

Спасибо большое! Реализовал копирование:

CopyFile(ShellListView1.GetPathFromItem(ShellListView1.Selected), ShellTreeView1.GetPathFromNode(ShellTreeView2.Selected)+'/'+ShellListView1.Selected.Caption);

Но появились 2 проблемы. Нужно обновлять содержимое ShellListView2 после копирования, т.к. иначе скопированный файл в нем не показывается.
Пробовал так:

  ShellTreeView2.Refresh;
  ShellListView2.Refresh;

, но не помогло.
Вторая проблема в том что нужно проверять ShellListView1 на предмет того, выбран файл или нет. Т.е. нужно сделать условие если файл в ShellListView1 выбран, то разрешить копирование, иначе нет.

[B_TpaHce]

С проверкой вроде разобрался. Сделал так:

 if (ShellListView1.Selected<>nil) then
 CopyFile(ShellListView1.GetPathFromItem(ShellListView1.Selected), ShellTreeView1.GetPathFromNode(ShellTreeView2.Selected)+'/'+ShellListView1.Selected.Caption)

Осталось разобраться с обновлением ShellListView2

[Stilet]

Думаю проще будет чтоб особо долго не парится сделать смену каталога куда нить в Темр, а потом назад, чтоб он перечитал каталог.

[B_TpaHce]

Посоветовали заменить ShellListView на FileListBox. В итоге копирование сделал так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyFile(FileListBox1.FileName,ShellTreeView2.GetPathFromNode(ShellTreeView2.Selected)+'/'+ExtractFileName(FileListBox1.FileName));
  FileListBox2.UpdateFileList;
end;

[B_TpaHce]

Подскажите, а какой функцией можно сменить каталог в ShellTreeView?
И как называется функция копирования каталога? Нашел только CreateDir и DeleteDirectory.

[Stilet]

какой функцией можно сменить каталог в ShellTreeView?

Не функцией а свойством. Path кажись называется.

И как называется функция копирования каталога?

Нет такой. Используй SHFileOperation для винды. Для Линуха не знаю.

[B_TpaHce]

К сожалению, свойство Path у ShellTreeView не нашел

[Stilet]

Мдя... А похожее поискать не додумался?