Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];

Вниз

как получить тип фаила от ShellListView   Найти похожие ветки 

← →
otar   (2005-01-26 15:52) [0]

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

---

← →
Александр Иванов ©   (2005-01-26 16:01) [1]

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

---

← →
Александр Иванов ©   (2005-01-26 16:02) [2]

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

---

← →
otar   (2005-01-26 16:21) [3]

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.

---

← →
TUser ©   (2005-01-26 16:32) [4]

[1]
нет

---

← →
otar   (2005-01-26 16:52) [5]

nu ktonibut podskajet?

---

← →
otar   (2005-01-26 17:33) [6]

NU PADSKAJITE ....

---

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

Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.044 c