Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:08:31
delphi DeleteFile 函数删除硬盘中的文件

4．DeleteFile 函数

DeleteFile 函数将一个文件从记录盘上删除，如果文件不存在或无法删除，则返回False。函数原型如下：

function DeleteFile(const FileName: string): Boolean;

实现删除一个文件的过程的代码如下：

if OpenDialog1.Execute then

if DeleteFile(OpenDialog1.FileName) then

ShowMessage(’删除文件成功’)

else

ShowMessage(’删除文件失败’);

赞