delphi ForceDeleteDirContent();

procedure ForceDeleteDirContent(dir: string);
var i: integer;
sDirectory: string;
sr: TSearchRec;
beginsDirectory := IncludeTrailingPathDelimiter( dir );
i := FindFirst( sDirectory+’*.*’,faAnyFile,sr );
while i = 0 do begin
if ( sr.Attr and faDirectory ) = faDirectory then
DeleteDirectory( sDirectory+sr.Name )
else begin

if not DeleteFile( sDirectory+sr.Name ) then begin
FileSetAttr (sDirectory+sr.Name, 0); { reset all flags }
DeleteFile (sDirectory+sr.Name);
end;

end;
i := FindNext( sr );
end;
FindClose( sr );
end;