delphi如何批量删除文件？

Question

我想要删除所有cookie文件，应如何实现？

Answer 1

用SHFileOperation来删除C:\Documents and Settings\XXX\Cookies下面的文件

Answer 2

uses shellapi;procedure TForm1.Button1Click(Sender: TObject);
var
  FileDir :string;
  FileStruct:TSHFileOpStruct;
begin
  FileDir := 'C:\Documents and Settings\XXX\Cookies\*.*';
  FileStruct.Wnd :=0;
  FileStruct.wFunc :=FO_delete;
  FileStruct.pFrom:=Pchar(FileDir+#0);
  FileStruct.fFlags:=FOF_NOCONFIRMATION;
  FileStruct.pTo :='';
  if SHFileOperation(FileStruct)=0 then
     showmessage('The Files Has Been Deleted!');
end;