Cette fonction efface un dossier, meme
s'il n'est pas vide.
Tres tres utile.


function EffaceDossier(Dossier: String): Boolean;
 var FileOpStruct: TShFileOpStruct;
  begin
    FileOpStruct.Wnd := 0;
    FileOpStruct.wFunc := FO_DELETE;
    FileOpStruct.pFrom := PChar(Dossier);
    FileOpStruct.pTo := Nil;
    FileOpStruct.fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
    FileOpStruct.lpszProgressTitle := Nil;
    Result := ShFileOperation(FileOpStruct) = 0;
  end;



et dans le zip, un source exemple