『壹』 用delphi如何一次删除某个目录下的所有文件
Deletefiles能一次删除多个文件？我怎么只能删除一个
『贰』 用DELPHI如何实现：删除指定目录（含子目录）下指定文件名的文件
Function Dir_Del_EX(Const aPath: String): Boolean; //uses ShellAPI 删除一个目录：包括非空目录，内 或者文件容
Var
FO: TSHFILEOPSTRUCT;
aDir: String;
Begin
aDir := ExcludeTrailingPathDelimiter(aPath);
FillChar(FO, SizeOf(FO), 0);
With FO Do
Begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(aDir + #0);
pTo := #0#0;
fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
End;
Result := (SHFileOperation(FO) = 0);
End;