sos,DeleteFile（） Fault(50分)

下列几行程序是我以前编写的，功能是执行文件删除，
近日对此程序增加了一些功能 ，再执行就不行了，不知为何,请指教。
（在这期间，可能改过 delphi 的 option 选项,可能有关。）
程序如下：（在右键执行）
procedure TForm1.Delse
lectedFile1Click(Sender: TObject);
var i:integer;
begin
if filelistbox1.FileName<>'' then
begin
i:=filelistbox1.ItemIndex;
DeleteFile(filelistbox1.FileName);
if i>0 then
i:=i-1;
filelistbox1.ItemIndex:=i;
FileListBox1.Update;
end;
end;

是在哪一句出现问题的，是DeleteFile吗？
filename属性是否包含路径我不太清楚。

是不是你要删除的文件的属性是只读的？我没有试过DeleteFile
能否删除特殊属性的文件

最好先用SetFileAttributes将文件的属性设为normal

第一：filelistbox1.FileName你的文件的完整文件名（一定要是绝对路径名文件名）
第二：是否是目录名。
第三：文件是否可被删除。
应该不会出错，我用得很好！

DeleteFile不能删除特殊属性的文件，
改后很好。
thank all!