Discussion :

[andreditdd]

Bonjour,
j'essaye, en vain, de réussir via mon application à supprimer un dossier ouvert.
J'ai besoin d'un ptit coup de main, supprimer un dossier ça va mais pas un dossier ouvert.

André

[cincap]

Bonsoir,

@ andreditdd, essaye cette fonction.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
 
Uses ShellAPI;
 
 
{$R *.dfm}
 
Function DelTree(DirName : string): Boolean;
var
  SHFileOpStruct : TSHFileOpStruct;
  DirBuf : array [0..255] of char;
begin
  try
   Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0) ;
   FillChar(DirBuf, Sizeof(DirBuf), 0 ) ;
   StrPCopy(DirBuf, DirName) ;
   with SHFileOpStruct do begin
    Wnd := 0;
    pFrom := @DirBuf;
    wFunc := FO_DELETE;
    fFlags := FOF_ALLOWUNDO;
    fFlags := fFlags or FOF_NOCONFIRMATION;
    fFlags := fFlags or FOF_SILENT;
   end; 
    Result := (SHFileOperation(SHFileOpStruct) = 0) ;
   except
    Result := False;
  end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if DelTree('C:\Data\Delphi\Dossier et icone\Test') then
ShowMessage('Dossier éffacé!')
else
ShowMessage('Erreurs !') ;
 
end;

@+,

Cincap

[NABIL74]

salut,
c'est ok,cette fonction supprime un dossier ouvert.
je crois que nous avons déjà discuté à propos de ça sur le forum .

a+

NABIL74

[cincap]

@ Nabil74, salut, seule condition c'est que aucun fichier dans ce dossier ne soit ouvert.

@+,

Cincap

[NABIL74]

salut l'ami ,
oui oui si le dossier contient un fichier ouvert, le message d'erreur sera affiché.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShowMessage('Erreurs !') ;

a+

NABIl74

[andreditdd]

Un grand merci Cincap...

L'ennui c'est que dans ce dossier, il y a un fichier ouvert
et ça ne m'arrange pas.

Avez vous une botte secrette ???

André

[cincap]

@ Nabil74,

oui oui si le dossier contient un fichier ouvert, le message d'erreur sera affiché.

forcément que le code gère l'erreur si un fichier est ouvert dans le dossier à éffacer, donc à partir de la il faut un autre code pour éffacer mais la, c'est une autre paire de manche car chaque fichier ouvert engage un processus me semble t'il.

Pas de solution pour l'instant.

@+,

Cincap

[cincap]

@ andreditdd

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
var
   MainForm: TMainForm;
 
 
   function EffaceDossier(Dossier: String): Boolean;
 
 
 
 implementation
 
 {$R *.dfm}
 
{------- Mon Code ---------------------------------------------------------------------}
 
 
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;
 
procedure TMainForm.BitBtn1Click(Sender: TObject);
 var Dir :string;
  begin
   Dir := edit1.Text;
    if DirectoryExists(Dir) Then EffaceDossier(Dir);
  end;

Même si un fichier est ouvert, il ne sera pas éffacé mais bien le dossier et son contenu fermé

[Andnotor]

Si c'est toi qui as ouvert ce fichier dans une autre de tes applications, tu pourrais lui envoyer un message pour lui demander de le fermer.

Si tu n'en est pas l'heureux créateur, tu risques surtout de générer des erreurs au niveau de l'autre application !

[andreditdd]

Encore merci Cincap pour ton aide mais ça ne fonctionne toujours pas.
En fait, mon soft dézipe un dossier à l'aide de ZipForge mais lorsqu'il y a erreur sur le mot de passe, j'aimerais que mon soft détruise le dossier déja créé avant de permettre une autre tentative de mot de passe.

Je pense avoir fermé correctement ZipForge mais le dossier est tjrs utilisé par mon application.


André

[andreditdd]

Bon, je pense à un truc...
Y a t-il moyen de savoir quel est la partie de mon application qui garde ouvert le fichier qui ce trouve dans le dossier que je désire supprimer ?

André

[NABIL74]

je n'ai pas beaucoup travaillé avec ZipForge,mais, je pense que l'erreur se passe au niveau de la fermeture de ZipForge. tu ne parvient pas à supprimer le dossier car zipforge reste toujours ouvert.
tu le fermes avec: "CloseArchive()" non?

a+

NABIL74

[andreditdd]

Oui exact.
Je le ferme avec cette commande mais je n'ai pas confirmation que cela fonctionne car mon dossier reste ouvert.

André

[NABIL74]

t'as essayé de mettre la fonction de cincap(effacer dossier) après "CloseArchive" et ça n'a rien donné?

[NABIL74]

tu peux aussi essayer de faire un "Close" et puis un "free" de l'archive et puis essayer d'effacer le dossier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
.
.
Ton archive.CloseArchive();
Ton archive.Free;
Fonction de cincap.

a+

NABIL74

[andreditdd]

Oui effectivement...
J'ai même essayé en créant un fichier .bat pour cela mais rien n'y fait

André

[NABIL74]

nous avons écrit nos 2 messages en même temps.alors comme je te l'ai dis,essaye de faire un "Close" et puis un "free" de l'archive et puis essayer d'effacer le dossier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
.
.
Ton archive.CloseArchive();
Ton archive.Free;
Fonction de cincap.

NABIL74

[cincap]

Bonjour à toutes et à tous,

@ andreditdd, si tu postais le code qui ferme l'archive, cela permettrais de mieux comprendre le problème sinon AndNotOr t'a lancé sur une piste.

Et si tu mets ceci :

CloseArchive(ton archive);

@+,

Cincap

[Tardiff Jean-François]

Bonjour,

Juste une idée en passant.

Les programmes de désinstallation de programmes ont souvent le même problème. Il le résolve en supprimant les fichiers ouverts et les répertoire lors de la prochaine ouverture de l'ordinateur.

Je crois que cela ce fait en ajoutant une ligne dans le registre.

[cincap]

@

Si tu connais le nom du fichier ouvert tu peux comme l'a précisé AndNotOr utiliser le message.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
var
  monhandle : THandle;
Begin
  //Le second paramètre de FindWindow est le titre de la fenêtre!
  monhandle := FindWindow(nil,'Monfichierouvert');
  SendMessage(monhandle,WM_CLOSE,0,0);
end;

Sinon, voici un lien intéressant :

http://www.madshi.net/madExceptDescription.htm

@+,

Cincap