此函数用来删除文件,很简单的一个函数,参数也很少,下面看实例代码:

procedure TForm1.N7Click(Sender: TObject);
//删除文件 DeleteFile; Windows.DeleteFile
var
  f: string;
  Bool: Boolean;  //声明函数返回值用到的变量
begin
  f := 'f:\test\test.txt';  //要删除的文件
  bool:= DeleteFile(f);  //返回 Boolean
  if Bool then  //如果函数返回的布尔值为true,则..否则..
  begin
    ShowMessage('文件删除成功');
  end
  else
    ShowMessage('文件删除失败');

  //或者用系统API:
  //Windows.DeleteFile(PChar(f));  //返回 Boolean
end;

 

下面开始分析函数:

function DeleteFile(const FileName: string //要删除(文件)的文件名
         ): Boolean;  //返回布尔值,删除成功返回true,不成功false

posted on 2010-11-02 16:52  巅枫  阅读(1267)  评论(0)    收藏  举报