写了一个网页上用的COM控件OCX，提供一个删除文件的方法，

delfile(sFileName:WideString)

在里面调用WINAPI：deletefile 没有效果，改用下面的方法也不可以，请大牛指点。（这两种方法在WIN窗口程序下，都没问题。）
var
ShFileOpStruct:TShFileOpStruct;
begin
result := 0;
with ShFileOpStruct do
begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom:=PChar(sFileName+chr(0));{指定目录}
pTo:=nil;
fFlags:=FOF_NOCONFIRMATION or FOF_NOERRORUI;
end;
ShFileOperation(ShFileOpStruct);
end;