Как получить полный путь с именем файла или папки из ShellTreeView / ShellListView

Question

Сэр, Я создаю проект, в котором я использую ShellTreeView , ShellListView , ListView . Теперь я перетаскиваю папку из ShellTreeView и файлы из ShellListView. Теперь я хочу получить имя файла, включая полный путь (например: c: \ abc \ file.txt) или папку (например, C: \ abc). Для получения пути я использую командную кнопку и текстовое поле. Какой будет код?

Дев

Answer 1

вы можете использовать свойства TShellListView.SelectedFolder и TShellTreeView.Path для получения выбранного пути и имени файла.

В этом примере используется событие onchange и назначается путь в EditText.

procedure TForm1.ShellListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
  Edit2.Text := ShellListView1.SelectedFolder.PathName;
end;

procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
 Edit1.Text:= ShellTreeView1.Path;
end;