как получить тип фаила от 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 ....

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