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