『壹』 用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;