ein Script zum Löschen der Dateien

[SirThornberry]

und falls du das ganze mit Delphi machen willst dann so

Delphi-Quellcode:

procedure DeleteFiles(FilenameMask: String);
var LRec: TSearchRec;
    LPath: String;
begin
  if FindFirst(FilenameMask, faAnyFile, LRec) = 0 then
  begin
    LPath := ExtractFilePath(FilenameMask);
    repeat
      DeleteFile(LPath + LRec.Name);
    until FindNext(LRec) <> 0;
  end;
  FindClose(LRec);
end;
[...]
DeleteFiles('*.~pas');
DeleteFiles('*.~inc');