RECHERCHER FICHIER AVEC FILTRE ET EFFACER REPERTOIRE AVEC FICHIER

Une partie du code

uses
  ShellApi;

function TForm1.EffaceDossierEtFichier(s : string): Boolean;
var SHFileOpStruct : TSHFileOpStruct;
begin
  with SHFileOpStruct do begin
    Wnd := 0;
    wFunc := FO_DELETE;
    pFrom := PChar(s+#0+#0);
    pTo := nil;
    // Pour effacer définitivement sans questionnement
    fFlags := FOF_NOCONFIRMATION or FOF_SILENT; 
    // Pour mettre a la corbeille
    //    fFlags := FOF_ALLOWUNDO;
    // Vous pouvez aussi combiner l'ensemble 
    hNameMappings := nil;
    lpszProgressTitle := nil;
  end;
  Result := ShFileOperation(SHFileOpStruct) = 0;
end;