一条简单的命令用法

Question

function DeleteFile(const FileName: string): Boolean;
begin
  Result := Windows.DeleteFile(PChar(FileName));
end;

Answer 1

//删除目录、以及文件var
  SearchRec : TSearchRec;
begin
  if DirectoryExists('c:\temp\') then
  begin
    if FindFirst('c:\temp\*.*', faAnyFile, SearchRec) = 0 then
    begin
      DeleteFile('c:\temp\' + SearchRec.Name);
      while FindNext(SearchRec) = 0 do
        DeleteFile('c;\temp\' + SearchRec.Name);      FindClose(SearchRec);
    end;
    RemoveDir('c:\temp');
  end;
end;