Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.07.02;
Скачать: CL | DM;

Вниз

ShellListView   Найти похожие ветки 

 
Adios ©   (2006-06-11 21:46) [0]

как извлеч имя выбранного объекта и путь к нему?


 
Adios ©   (2006-06-11 22:01) [1]

Люди, ну подскажите кто-нибудь, очень надо!


 
Rial ©   (2006-06-11 22:08) [2]

Для текущей папки:
ShellListView.RootFolder.DisplayName
и
ShellListView.RootFolder.PathName

For I:=0 to ShellListView1.Items.Count-1 do
 If ShellListView.Items[I].Selected then begin
  ShellListView.Folders[I].DisplayName;
  ShellListView.Folders[I].PathName;
 end;


 
Adios ©   (2006-06-11 22:28) [3]

а как извлечь имя выбранного файла и расширение?


 
Rial ©   (2006-06-11 22:44) [4]

ShellListView.Folders[I].DisplayName;
 ShellListView.Folders[I].PathName;

Тут же, если не ошибаюсь, будут и имена файлов.

Расширение:
ExtractFileExt


 
Adios ©   (2006-06-11 22:48) [5]

может ты путаешь ShellListView и ShellTreeView?,
ShellListView.RootFolder.DisplayName и ShellListView.RootFolder.PathName выдают одно и тоже, и имя выбранного файла там не указывается.


 
Adios ©   (2006-06-11 23:15) [6]

сформулирую свой вопрос немного подругому,
у меня есть ShellListView, в нём отображается список файлов заранее указанной директории, и мне надо при нажатии по какому-нибудь файлу чтобы если это изображение то оно загружалось в имидж, а этого я сделать не могу, потому как не пойму, как мне извлечь имя файла и путь к нему?, очень надеюсь на вашу помощь!


 
EvS ©   (2006-06-12 00:46) [7]

ShellListView.SelectedFolder.PathName;


 
Rial ©   (2006-06-12 00:52) [8]

Я не ошибся. Даже проверил, блин !
При единичном выборе смотри

> EvS ©   (12.06.06 00:46) [7]
>
> ShellListView.SelectedFolder.PathName;


Если MultiSelect=True,то

Var I:Integer;
begin
...
For I:=0 to ShellListView1.Items.Count-1 do
If ShellListView.Items[I].Selected then
 Extract_My_Icon( ShellListView.Folders[I].PathName);



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

Текущий архив: 2006.07.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.051 c
2-1149829599
Dimich1978
2006-06-09 09:06
2006.07.02
addobject выдает несовместимость типов


11-1129717517
DmiSb
2005-10-19 14:25
2006.07.02
Как проверить, кто получил фокус при его потере в EditBoxe ?


15-1149271234
Kolan
2006-06-02 22:00
2006.07.02
Игра типа Zuma. Где взять ?


1-1147985639
allrussia
2006-05-19 00:53
2006.07.02
Спецам по Excel: Размер примечания


1-1148133872
***(H@kker)***
2006-05-20 18:04
2006.07.02
Скорость работы