DelDirectory

function   DelDirectory(const   Source:string):   boolean;
  var
      fo:   TSHFILEOPSTRUCT;
  begin
      FillChar(fo,   SizeOf(fo),   0);
      with   fo   do
      begin
          Wnd   :=   0;
          wFunc   :=   FO_DELETE;
          pFrom   :=   PChar(source+#0);
          pTo   :=   #0#0;
          fFlags   :=   FOF_NOCONFIRMATION+FOF_SILENT;
      end;
      Result   :=   (SHFileOperation(fo)   =   0);
  end;

 

var
  T: TSHFileOpStruct;
  P: string;
begin
  P := 'D:/kankan'; //此里改成你需要删除地任意目录名
  with T do
  begin
    Wnd := 0;
    wFunc := FO_DELETE;
    pFrom := Pchar(P);
    pTo := nil;
    fFlags   :=   FOF_NOCONFIRMATION+FOF_SILENT;
    //fFlags := FOF_ALLOWUNDO + FOF_NOCONFIRMATION + FOF_NOERRORUI; //标志表明允许恢复，无须确认并非显示出错信息
    hNameMappings := nil;
    lpszProgressTitle := '正住删除文件夹';
    fAnyOperationsAborted := False;
  end;
  SHFileOperation(T);
end;

Windows95/NT中提供了一个API函数SHFileOperation()，它只有一个指向SHFILEOPSTRUCT结构的参数。SHFileOperation（）函数的原形如下：

---- WIN SHELL API int WINAPI SHFileOperation (LPSHFILEOPSTRUCT lpFIleOp);

---- LPSHFILEOPSTRUCT结构包含有进行文件操作的各种信息，其具体的结构如下：

    Typedef struct  _ShFILEOPSTRUCT {
     HWND hWnd;      //消息窗口
     UINT  wFunc;      //操作类型
     LPCSTR  pFrom;    //源文件及路径
     LPCSTR  pTo;        //目标文件及路径
     FILEOP_FLAGS  fFlags;  //操作与确认标志
     BOOL  fAnyOperationsAborted; //操作选择位
     LPVOID  hNameMappings;       //文件映射
     LPCSTR  lpszProgressTitle;   //进度窗口标题
} SHFILEOPSTRUCT, FAR* LPSHFILEOPSTRUCT;

---- 在这个结构中，有几个成员很重要。hWnd是指向发送消息的窗口，pFrom与pTo是进行文件操作的源文件名和目标文件名，它包含文件的路径，对于多个文件名之间用NULL作为间隔，并且可以支持通配符*和？。如源文件或目录有两个，则应是：

char  pFrom[]="c://windows//command
/0c://dos//himem.sys/0"

---- 它表示对c:/windows/command目录下的所有文件和c:/dos/himem.sys文件进行操作。'//'是C语言中的'/'的转义符，'/0'则是NULL。wFunc 是结构中的重要成员，它指出将要进行的操作类型,是下面的操作类型之一：

---- FO_COPY: 拷贝文件pFrom到pTo 的指定位置。

---- FO_RENAME: 将pFrom的文件名更名为pTo的文件名。

---- FO_MOVE: 将pFrom的文件移动到pTo的地方。

---- FO_DELETE： 删除pFrom指定的文件。

---- 在进行文件拷贝、移动或删除时，如果需要的时间很长，则会在进行的过程中出现一个无模式的对话框，可以显示执行的进度和执行的时间，以及正拷贝移动或删除的文件名，成员lpszProgressTitle显示此对话框的标题。fFlags是在进行文件操作时的过程和状态控制标识。它主要有如下一些标识，也可以是其组合。

---- FOF_FILESONLY:不执行通配符，只执行文件.

---- FOF_ALLOWUNDO：保存 UNDO信息，以便恢复.

---- FOF_NOCONFIRMATION: 在出现目标文件已存在的时候，如果不设置此项，则它会出现确认是否覆盖的对话框，设置此项则自动确认，进行覆盖，不出现对话框。

---- FOF_NOERRORUI: 设置此项后，当文件处理过程中出现错误时，不出现错误提示，否则会进行错误提示。

---- FOF_RENAMEONCOLLISION: 当已存在文件名时，对其进行更换文件名提示。

---- FOF_SILENT: 不显示进度对话框。

---- FOF_WANTMAPPINGHANDLE: 要求SHFileOperation()函数返回正处于操作状态的实际文件列表，文件列表名柄保存在hNameMappings成员中。SHFILEOPSTRUCT将包含一个SHNAMEMAPPING结构的数组，此数组保存由SHELL计算的每个处于操作状态的文件的新旧路径。