文件夹删除/清空

最新推荐文章于 2021-06-11 17:31:31 发布

Jackalfly

最新推荐文章于 2021-06-11 17:31:31 发布

阅读量856

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi 文章标签： delete string forms windows class c

本文链接：https://blog.youkuaiyun.com/jackalfly/article/details/7922891

delphi 专栏收录该内容

22 篇文章

订阅专栏

代码：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, cxShellBrowserDialog, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    cxshlbrwsrdlg1: TcxShellBrowserDialog;//控件
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure ClearDir(AHandle: THandle; const ADirName: String);   //uses ShellAPI
var
  SHFileOpStruct: TSHFileOpStruct;
  DirName: PChar;
  BufferSize: Cardinal;
begin
  BufferSize := Length(ADirName) + 1 + 1;
  GetMem(DirName, BufferSize);
  try
    FillChar(DirName^, BufferSize, 0);
    StrCopy(DirName, PChar(ADirName));
    with SHFileOpStruct do
    begin
      Wnd := AHandle;
      wFunc := FO_DELETE;
      pFrom := DirName;
      pTo := nil;
      fFlags := FOF_SILENT or FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
      fAnyOperationsAborted := False;
      hNameMappings := nil;
      lpszProgressTitle := nil;
    end;
    SHFileOperation(SHFileOpStruct);
    MkDir(ADirName);//注释掉该行就是删除文件夹
  finally
    FreeMem(DirName, BufferSize);
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  forderpath: string;
begin
  cxshlbrwsrdlg1.path := 'c:\';
  if not cxshlbrwsrdlg1.Execute then
  begin
    exit;
  end;
  forderpath := cxshlbrwsrdlg1.path;
  ClearDir(Self.Handle, forderpath);
end;

end.

function DeleteFolder(SourceDir: string): boolean;
var
  lpFileOp: TSHFileOpStruct;
begin
  if DirectoryExists(SourceDir) then
  begin
    zeromemory(@lpFileOp, SizeOf(TSHFileOpStruct));
    with lpFileOp do
    begin
      Wnd := Application.Handle;
      wfunc := FO_DELETE;
      pFrom := pchar(SourceDir + #0#0);
      pTo := nil;
      // fFlags := FOF_ALLOWUNDO or FOF_CONFIRMMOUSE;
      fFlags := FOF_SILENT or FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
      hNameMappings := nil; // 'test';//SourceDir;
      lpszProgressTitle := nil;
      fAnyOperationsAborted := false;
    end;
    Result := SHFileOperation(lpFileOp) = 0;
  end;
end;