AI摘要

本文介绍了如何使用Delphi语言和ShellAPI函数SHFileOperation来删除文件夹及其子目录。示例代码展示了如何创建TSHFileOpStruct结构体,设置相关参数,并通过SHFileOperation函数执行删除操作。代码中使用了FOF_ALLOWUNDO、FOF_NOCONFIRMATION和FOF_NOERRORUI标志以实现无需确认、允许恢复和不显示错误信息的效果。
本文介绍了如何使用D

use shellAPI;

procedure TForm1.Button1Click(Sender: TObject);
Var
  T : TSHFileOpStruct;
  P:String;
begin
  P:= Edit1.Text;//目录名
  With T do
  Begin
    Wnd:=0;
    wFunc:=FO_DELETE;
    pFrom:=Pchar(P);
    pTo:=nil;
    fFlags:=FOF_ALLOWUNDO+FOF_NOCONFIRMATION+FOF_NOERRORUI;//标志表明允许恢复,无须确认并不显示出错信息
    hNameMappings:=nil;
    lpszProgressTitle:='正在删除文件夹';
    fAnyOperationsAborted:=False;
  End;
  SHFileOperation(T);
end;



最后修改:2009 年 08 月 16 日
点赞的人是最酷的