关于TSHFileOpStruct的问题，多谢大家捧场！

[wlw88]

var FileOp:TSHFileOpStruct;
str123:string;
begin
str123:=Edit1.Text+#0#0;
with FileOp do
begin
FillChar(fileop,sizeof(fileop),0);
Wnd:=Handle;
pTo:=nil;
wFunc:=FO_DELETE;
fFlags:=FOF_NOCONFIRMATION ;
fAnyOperationsAborted:=false;
hNameMappings :=nil; // +FOF_ALLOWUNDO FOF_SILENT
end;
FileOp.pFrom:=pchar(str123);
if SHFileOperation(FileOp) <>0 then ShowMessage('错误');
end;
上面代码的功能是删除文件，msdn上说把 fFlags:=FOF_NOCONFIRMATION 就不会出现是否删除的确认框，但是这样进度提示框也没有了，我想不出现确认框而要出现删除进度框，不知道fFlags应该设成什么值？谢谢了！

[WWWWA]

fFlags:=FOF_NOCONFIRMATION or fof_simpleprogress

[wlw88]

to WWWWA(aaaa) ，我试过了，不行的，你是试过吗？你是在2000下调试的吗？我的操作系统是win200+sp4，按你上面所说的根本不行。

[hmzgz81]

捧场捧场捧场捧场捧场捧场捧场捧场捧场捧场捧场捧场捧场捧场捧场捧场捧场捧场捧场捧场捧场

[aiirii]

我试了, 好象没什么好办法!!!