此函数用来删除文件,很简单的一个函数,参数也很少,下面看实例代码:
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