Delphi7.0中如何删除文件夹(带子目录和文件).docxVIP

Delphi7.0中如何删除文件夹（带子目录和文件） 说明：先要在 USES 中输入：ShellApi; unit Unit1; interface uses Windows, Messages, SysUtilsa,riVants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons,ShellApi; type TForm1 = class(TForm) BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function DeletePath(mDirName: string): Boolean; { 返回删除指定目录是否成功 } var vSearchRec: TSearchRec; vPathName: string; K: Integer; begin Result := True; vPathName := mDirName + \*.*; K := FindFirst(vPathName, faAnyF