Einzelnen Beitrag anzeigen

Benutzerbild von mirage228
mirage228

Registriert seit: 23. Mär 2003
Ort: Münster
3.750 Beiträge
 
Delphi 2010 Professional
 
#4

Re: shellListview...und was ist mit Filtern?

  Alt 30. Apr 2004, 15:48
Zitat von FLINKER_FINGER:
bin nen totaler nuub das hilf mir ehrlich gesagt nicht so weiter

was kann ich damit einstellen ??
Also

Guckst du hier

Delphi-Quellcode:
procedure TForm1.ShellListView1AddFolder(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
begin
  CanAdd := (CompareText(ExtractFileExt(AFolder.PathName), '.zip') = 0) or
    AFolder.IsFolder;
end;
CanAdd bestimmt, ob der Eintrag hinzugefügt werden soll oder nicht.
CanAdd ist True, falls a) Die Dateierweiterung der Datei (ist in AFolder.PathName gespeichert) = .zip ist oder b) es sich um einen Ordner handelt (AFolder.IsFolder).
Ansonsten ist CanAdd = False und der Eintrag wird nicht hinzugefügt.

mfG
mirage228
David F.

May the source be with you, stranger.
PHP Inspection Unit (Delphi-Unit zum Analysieren von PHP Code)
  Mit Zitat antworten Zitat