Скачать: CL | DM;

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

← →
Wolferio ©   (2005-09-27 15:39) [0]

Добрый день!

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

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

---

← →
Wolferio ©   (2005-09-27 15:56) [1]

q

---

← →
Wolferio ©   (2005-09-27 16:37) [2]

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

---

← →
umbra ©   (2005-09-27 16:48) [3]

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

---

← →
easy ©   (2005-09-27 17:43) [4]

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;

---

← →
Wolferio ©   (2005-09-27 18:00) [5]

> easy ©

СПАСИБО!!!

---

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

Скачать: CL | DM;



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