Slette filer inkl. filer i undermapper med TSHFileOpStruct

//uses shellapi

procedure DelFilesFromDir(Directory, FileMask: string; DelSubDirs: Boolean);
var
  SourceLst: string;
  FOS: TSHFileOpStruct;
begin
  FillChar(FOS, SizeOf(FOS), 0);
  FOS.Wnd := Application.MainForm.Handle;
  FOS.wFunc := FO_DELETE;
  SourceLst := Directory + '\' + FileMask + #0;
  FOS.pFrom := PChar(SourceLst);
  if not DelSubDirs then
    FOS.fFlags := FOS.fFlags OR FOF_FILESONLY;
  // Remove the next line if you want a confirmation dialog box
  FOS.fFlags := FOS.fFlags OR FOF_NOCONFIRMATION;
  // Add the next line for a "silent operation" (no progress box)
  // FOS.fFlags := FOS.fFlags OR FOF_SILENT;
  SHFileOperation(FOS);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
DelFilesFromDir('C:\test', '*.*', TRUE);
end;

forklaring

DelFilesFromDir('C:\test', '*.*', TRUE);
//sletter undermapper

DelFilesFromDir('C:\test', '*.*', FALSE);
//sletter ikke undermapper

Hej

Mange tak for svaret, det virker ihvertfald

men kunne jeg ikke bare have tilføjet TRUE i min egen kode?

SHFileOperation( FileOp, TRUE );

Hvordan hvis jeg vil slette flere filtyper på samme tid:
*.old, *.bak, *.tmp;

Så skal de så vidt jeg kan læse mig frem til defineres således
*.old#0, *.bak#0, *.tmp#0;

nej du skal ikke definere de filer du skal slette, for koden sletter underbib og filer i c:\test mappen uanset hvilken extension de har.