| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как получить тип фаила от ShellListView [D7, WinXP]

otar ©   (2005-01-26 15:52:00) 

помогите пожалуйста.

---

otar   (2005-01-26 17:33:00) [1]

NU PADSKAJITE ....

---

otar   (2005-01-26 16:52:00) [2]

nu ktonibut podskajet?

---

TUser   (2005-01-26 16:32:00) [3]

[1]
нет

---

otar   (2005-01-26 16:21:00) [4]

ia mogu vziat imiu faila:


procedure TForm2.ShellListView1Click(Sender: TObject);
var
 ShellListView: TShellListView;
 ShellFolder: TShellFolder;
 u: integer;
begin
 if (Sender is TShellListView) then
   if Assigned((Sender as TShellListView).Selected) then
   begin
     ShellListView := Sender as TShellListView;
     ShellFolder := ShellListView.Folders[ShellListView.Selected.Index] as
TShellFolder;
     showmessage(ShellFolder.PathName);

   end;
end;

no eto mne ne pomogaet. ia konkretna xo4u poniat kakoi rasshirenii imeet.

---

Александр Иванов   (2005-01-26 16:02:00) [5]

Если нет, то:
ShowMessage(ExtractFileExt(ShellTreeView1.Selected.Text));
Но сомнения терзают мою душу :).

---

Александр Иванов   (2005-01-26 16:01:00) [6]

А разве там не только папки отображаются?

---

Наверх