Selam Şyle bir şey yapabilirz. Forma bir combobox koy aramak istediğin zip, gho istediğin uzantıları seç Yalnız bütün formatları bir anda silemezsin tek tek yapabilirsin...combobox"a zip yaz sadece Sonra şu procedurü kullanmalısın en üste yapıştır procedure TForm1. FindFiles ; var SR: TSearchRec; DirList: TStringList; IsFound: Boolean; i: integer; begin if StartDir <> "\" then StartDir := StartDir + "\"; IsFound := FindFirst = 0; while IsFound do begin listbox1. Items. Add ; IsFound := FindNext = 0; end; FindClose ; DirList := TStringList. Create; IsFound := FindFirst = 0; while IsFound do begin if <> 0) and (SR. Name <> ".") then DirList. Add ; IsFound := FindNext = 0; end; FindClose ; for i := 0 to DirList. Count-1 do FindFiles ; DirList. Free; end; +++FORMA EKLEMEN GEREKENLER 1 tane edit 1 tane listbox 2 tane buton 1 tane ShellTreeView1 1 Tane combobox Form"a bir button koy click olayına şunları yaz, (Forma bir tanede listbox1 koy birtanede edit1 koy) Button1. onclick olayı için ; ListBox1. Items. Clear; ListBox11. Items. Clear; FindFiles(Edit1. Text," ."+ComboBox1. Text); if ListBox1. Items. Count<>0 then if ListBox1. Items. Count=0 then begin ShowMessage ; end; 2. İşlem olarak foruma bir tane ShellTreeView1 koy ochange olayına Edit1. Text:=ShellTreeView1. Path; kodunu ekle sonra button2"nin oclick olayınada var T : TSHFileOpStruct; begin FillChar(T, SizeOf ,#0); with T do begin Wnd:=0; wFunc:=FO_DELETE; pFrom:=Pchar(Listbox1. items); fFlags:=FOF_ALLOWUNDO; end; SHFileOperation ; end; kodunu ekle tabi uses kısmına shellapi yi eklemelisin Kusura bakma biraz karışık eşzamanlı yapıyorum hem yazıyor hem de deniyorum yukarıdaki dosya silme çalışmazsa onun için bir kod bulmalısın sonra listbox1. items dersin olur biter.. Sorun olursa yaz. Software Developer

Selam Knoppix yukarıdaki kodları bir rnekte topladım biraz uğraştırdı. Biraz düzeltme yapabilirsin Kolaygelsin http://www31. brinkster.com/knoppix. zip KAAN Software Developer

merhaba arkadaşlar. kısacası yapmak istedigim seyden bahsedeyim. simdi yle bi kod olcakki bilgisayarın D:sürücüsündeki. exe. zip. gho uzantili tüm dosyaları lisbox1e listeyelecek ve anında sormadan silip yokecedek. ama seri bi sekilde. delphide yeni yeni gelişiorum. yardımcı olursanız sevinirim. holyone bilio ama bizi takmioki:)

KAAN +1 Çizmiş Ruhu Hisset...