Forum
Aktif konular
Üyeler
Kurallar
Arama
Delphide Exe"Leri Tümden Silme? Delphide Exe"Leri Tümden Silme?
-
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:) -
Edit
-
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(StartDir, FileMask: string);
var
SR: TSearchRec;
DirList: TStringList;
IsFound: Boolean;
i: integer;
begin
if StartDir[length(StartDir)] <> "\" then
StartDir := StartDir + "\";
IsFound :=
FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0;
while IsFound do begin
listbox1.Items.Add(StartDir + SR.Name);
IsFound := FindNext(SR) = 0;
end;
FindClose(SR);
DirList := TStringList.Create;
IsFound := FindFirst(StartDir+"*.*", faAnyFile, SR) = 0;
while IsFound do begin
if ((SR.Attr and faDirectory) <> 0) and
(SR.Name[1] <> ".") then
DirList.Add(StartDir + SR.Name);
IsFound := FindNext(SR) = 0;
end;
FindClose(SR);
for i := 0 to DirList.Count-1 do
FindFiles(DirList, FileMask);
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("dosya bulunamadı...");
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(TSHFileOpStruct),#0);
with T do
begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom:=Pchar(Listbox1.items);
fFlags:=FOF_ALLOWUNDO;
end;
SHFileOperation(T);
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.
-
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
-
KAAN +1
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 2460 Toplam Mesaj: 5
Cevapla