cs_drakaon
Messages postés3Date d'inscriptionjeudi 10 juin 2004StatutMembreDernière intervention 1 mars 2005
-
1 mars 2005 à 14:30
krypto2000
Messages postés23Date d'inscriptionvendredi 16 janvier 2004StatutMembreDernière intervention 3 mars 2005
-
3 mars 2005 à 16:47
salut
je cherche à réaliser une fenêtre qui sur un click bouton supprime le repertoire selectionner par un TDirectoryListBox et les fichiers présent dans ce répertoire.
Actuellement j'ai trouver uniquement une methode supprimant des repertoires vide, mais j'ai rien trouver pour supprimer les fichiers présent dans le répertoire, sachant que leur nombre et variable et que leur nom et inconnu.
krypto2000
Messages postés23Date d'inscriptionvendredi 16 janvier 2004StatutMembreDernière intervention 3 mars 2005 3 mars 2005 à 16:47
Pour cela, j'ai ma petite fonction.
--------------------------------------------------------------
function nukeFolder(dir: string): Boolean;
var fileOp: TSHFileOpStruct;
begin
ZeroMemory(@FileOp, SizeOf(Fileop));
with fileOp do
begin
wFunc := FO_DELETE;
fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
pFrom := PChar(dir + #0);
end; Result :(0 ShFileOperation(fileop));
end;
--------------------------------------------------------------