Benzer isimli dosyaları sessiz sedasız silme

[Yavuz]

Merhabalar ...

Yazılan bir programa bakım amacıyla bazı gereksiz dosyaları silmek istiyorum.
Örneğin bir klasör içinde şu dosyalar olsun
str_mtr1.ppt;
str_mtr2.ppt;
str_ctr1.ppt;
str_ctr2.ppt;

str*.* formuna uygun dosyaları arka planda uyarısız silmek istiyorum. Bu iş nasıl yapılır.

Teşekkürler ...

[akdatilla]

Merhabalar ...

Yazılan bir programa bakım amacıyla bazı gereksiz dosyaları silmek istiyorum.
Örneğin bir klasör içinde şu dosyalar olsun
str_mtr1.ppt;
str_mtr2.ppt;
str_ctr1.ppt;
str_ctr2.ppt;

str*.* formuna uygun dosyaları arka planda uyarısız silmek istiyorum. Bu iş nasıl yapılır.

Teşekkürler ...

s.a.
bunu basit bir msdos komutu ile halledebilirsin bence.
//shellexecute için uses bloğuna shellapi eklemelisin.
procedure DeleteFiles(fmask:String);
Begin
shellexecute(0,'open','cmd',pchar('/c del /q "'+fmask+'"'),'',SW_HIDE);
end;

//örnek uygulama
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteFiles(Edit1.Text);
end;

//edit1 için örnek içerik : C:\A Software\Yeni Klasör\*.*

[Yavuz]

Çok teşekkürler
Tam anlamıyla işimi gördü.
aynı metodla dosya kopyalama taşıma (dizinlerde de oluyorsa) vb işlemler için elinizin altında kodlar veya açıklayıcı örnekler varsa paylaşabilir misiniz ?.

Tekrar teşekkürler ...