DeleteFile怎么删不掉文件的啊？ ( 积分: 20 )

将网络文件夹映射成Z:盘，Z盘下有一个1.msg文件，我在线程里用DeleteFile却怎么都删不掉，请问是为什么？
procedure TMyThread.Execute;

begin
......
if FileExists(str_dest) then
begin
SetFileAttributes(PChar(str_dest), FILE_ATTRIBUTE_NORMAL);
if not DeleteFile(str_dest) then //在这里总是删不掉文件
begin
Synchronize(DelFileFailed);
CopyFiles.Delete(0);
continue;
end;
end;
......
end;

正在使用的文件用DeleteFile无法删除

没有在使用啊
hf := CreateFile(PChar(str_res), GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
size := GetFileSize(hf, nil);
themax := (size shr 16) + 2;
theposition := 0;
CloseHandle(hf);
SendMessage(FormHandle, WM_PGSBAR_INIT_SINGLE, themax, theposition); //初始化ProgressBar

if Trim(Area) = '' then
str_dest := LclName_dest + ':/' + ExtractFileName(CopyFiles.Strings[0])
else
str_dest := LclName_dest + ':/' + Trim(Area) + '/' + ExtractFileName(CopyFiles.Strings[0]);

这是前面的代码，我已经CloseHandle了啊

自己顶

解决了~~

if not Windows.DeleteFile(PChar(str_dest)) then
即可!

多人接受答案了。