delphi DeleteFile 函数删除硬盘中的文件

4．DeleteFile 函数
DeleteFile 函数将一个文件从记录盘上删除，如果文件不存在或无法删除，则返回False。函数原型如下：
function DeleteFile(const FileName: string): Boolean;
实现删除一个文件的过程的代码如下：
if OpenDialog1.Execute then
if DeleteFile(OpenDialog1.FileName) then
ShowMessage(’删除文件成功’)
else
ShowMessage(’删除文件失败’);