In einer ShellListView nur bestimmte Dateitypen anzeigen

[schitho]

Hi,

hab erst heute Deinen Beitrag gelesen, daher erst jetzt die Antwort. Vielleicht kannst Du sie ja noch brauchen:

Zur Filterung kannst Du die FilterComboBox1 aus dem Win3.1 - Reiter benutzen.

In das OnChange Ereignis der FilterBox schreibst Du dann:

ShellListView1.Refresh; Und in das OnAddFolder Ereignis der ShellListView dieses:

Delphi-Quellcode:

var 
  XFilterExt, XExt: string; 
begin 
  if FilterComboBox1.Mask <> '*.*' then 
  begin 
    XFilterExt := ExtractFileExt(FilterComboBox1.Mask); 
    XExt := ExtractFileExt(AFolder.PathName); 
    // Only accept filter and folders 
    if (CompareText(XExt, XFilterExt) = 0) or AFolder.IsFolder then 
      CanAdd := True 
    else 
      CanAdd := False; 
  end;

Gruß
Thomas