提问了！散分了！谁能告诉我如何快速删除一个包含多个文件的目录（不知道文件名）！！

Question

FindFirst
DeleteFile
FindNext
FindClose
以上函数或过程的用法请看帮助

Answer 1

ShellExecute(Handle,"open","%COMSPEC% rd /s/d",nil,nil,SW_SHOWHIDDEN);

Answer 2

uses ShellAPI;var
    ShellFileOPStruct: TSHFileOPStruct;    // Create the directory frame
    if DirectoryExists(BaseDir) then
    begin
      case MessageBox(Self.Handle, PChar('目录 <' + BaseDir + '> 已存在，是否要覆盖?' +
                      #13#10#10 + '''是''将删除已存在目录和该目录中的内容' +
                      #13#10 + '''否''将在已存在的目录下建立子目录' +
                      #13#10 + '''取消''将不创建任何目录'),
                      PChar('目录创建'), MB_YESNOCANCEL or MB_ICONINFORMATION) of
        ID_YES: // Erase the exist directory
          begin
            ShellFileOPStruct.Wnd := Self.Handle;
            ShellFileOPStruct.wFunc := FO_DELETE;
            ShellFileOPStruct.pFrom := PChar(Copy(BaseDir, 1, Length(BaseDir) - 1));
            ShellFileOPStruct.pTo := nil;
            ShellFileOPStruct.fFlags := FOF_SILENT or FOF_ALLOWUNDO or
              FOF_NOCONFIRMATION or FOF_NOERRORUI;
            if SHFileOperation(ShellFileOPStruct) = 0 then
            begin
              MessageBox(Self.Handle, PChar('目录已删除，现在将创建制定的目录框架!'),
                PChar('目录创建'), MB_OK or MB_ICONINFORMATION);
              CreateDir(BaseDir);
            end
            else
            begin
              MessageBox(Self.Handle, PChar('可能有其他用户在使用该目录，程序' +
                '操作无法继续执行。'), PChar('目录创建'), MB_OK or MB_ICONSTOP);
              Exit;
            end;
          end;
//其它细节请参考MSDN

Answer 3

用shfileoperation处理最简单,不过它的帮助中没有给出例子
如果需要的话，可以参考<delphi 5 人员开发指南>或email:[email protected]

Answer 4

thanks up everyone!!我的分不多，不过万分感谢各位！！