SHFileOperation批量删除文件问题

[olayxiu]

用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\*.*'就可以,请问为什么？

[olayxiu]

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

[ghtghtmalone]

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;