SHFileOperation批量删除文件问题

Question

用SHFileOperation为什么不能删除ie临时文件夹的内容？
Var
 T:TSHFileOpStruct;
 P:String;
begin
 P:='C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files\*.*';
 With T do
 Begin
   Wnd:=0;
   wFunc:=FO_DELETE;
   pFrom:=Pchar(P);
   pTo:=nil;
   fFlags:=FOF_ALLOWUNDO+FOF_NOCONFIRMATION+FOF_NOERRORUI;
   lpszProgressTitle:='正在删除文件';
   fAnyOperationsAborted:=False;
 End;
 SHFileOperation(T);
end;如果是删除'c:\1\*.*'就可以,请问为什么？

Answer 1

要如何删除iternet临时文件？ 高手帮忙啊！

Answer 2

uses shellapi;procedure TForm1.Button1Click(Sender: TObject);
var
  FileDir :string;
  FileStruct:TSHFileOpStruct;
begin
  FileDir := 'C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files\*.html';
  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 File Has Been Deleted!');
end;