unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure DeleteFiles(sMask, sPath: string);
var
SearchRec: TSearchRec;
Found: Integer;
begin
sPath := IncludeTrailingPathDelimiter(sPath);
Found := FindFirst(sPath + sMask, faAnyFile, SearchRec);
try
while (Found = 0) do
begin
if not (SearchRec.Attr and faDirectory > 0) then
DeleteFile(sPath + SearchRec.Name);
Found := FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteFiles('*.txt','C:\test\');
end;
end.