已测试可以,要求'd:/test/text.txt'已存在。procedure TForm1.Button1Click(Sender: TObject); var FileName:string; myStream:TFileStream; begin FileName:='d:/test/text.txt'; myStream:=TFileStream.Create(FileName,fmOpenReadWrite or fmShareDenyNone); myStream.Destroy; if FileExists(FileName) then DeleteFile(FileName); end;
var
FileName:string;
myStream:TFileStream;
begin
FileName:='d:/test/text.txt';
myStream:=TFileStream.Create(FileName,fmOpenReadWrite or fmShareDenyNone);
myStream.Destroy;
if FileExists(FileName) then DeleteFile(FileName);
end;