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

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

ShellListView [D7]

Wolferio ©   (2005-09-27 15:39:00) 

Добрый день!

Как в ShellListView сделать так чтоб не отображались файлы с определённым росширением, например *.txt и *.doc

Заранее благодарен!

---

Wolferio   (2005-09-27 18:00:00) [1]

> easy ©

СПАСИБО!!!

---

easy   (2005-09-27 17:43:00) [2]

function notAdd(fname:String):boolean;
var
 s:string;
begin
 result:=false;
 s:= ExtractFileExt(fname);
 if (s='.txt') or (s='.doc') or (s='.xls') then
   result:=true;
end;

procedure TForm1.ShellListView1AddFolder(Sender: TObject;
 AFolder: TShellFolder; var CanAdd: Boolean);
begin
 if (not AFolder.IsFolder) and notAdd(AFolder.PathName) then  CanAdd:=false;
end;

---

umbra   (2005-09-27 16:48:00) [3]

насколько я понял, никак

---

Wolferio   (2005-09-27 16:37:00) [4]

Ну кто нибудь мне поможет?

---

Wolferio   (2005-09-27 15:56:00) [5]

q

---

Наверх