Ich schätze mal damit habe ich die Funktion nachprogrammiert:
Delphi-Quellcode:
function dateienloeschen(filename:string):integer;
var
f:tsearchrec;
fi:file;
files:array of string;
i:integer;
begin
result:=0;
if findfirst(filename,0,f)<>0 then exit;
setlength(files,1);
files[0]:=f.Name;
while findnext(f)<>0 do begin
setlength(files,length(files)+1);
files[length(files)-1]:=f.Name;
end;
findclose(f);
for I:=0 to length(files)-1 do
begin
try begin
assignfile(fi,files[i]);
erase(fi);
inc(result);
end; except end;
end;
end;
Die Funktion tut genau das und gibt am Ende die Anzahl gelöschter Dateien zurück.