Discussion :

[F@bien.fd]

Bonjour,

J'ai une application dans laquelle on peut effacer des fichiers du répertoire dans laquelle elle est.

Je souhaite maintenant les déplacer dans la corbeille.

Je ne trouve pas le moyen de trouver le chemin de la corbeille

Ma méthode consistant à utiliser la fonction FileCopy vers la corbeille puis DeleteFile pour ensuite le scratcher de son répertoire.

Merci pour toute indication.

[JustMe]

http://delphi.developpez.com/faq/?pa...chiercorbeille

[F@bien.fd]

http://delphi.developpez.com/faq/?pa...chiercorbeille

merci mille fois, encore mieux que ce que j'escomptais réaliser.

[F@bien.fd]

merci mille fois, encore mieux que ce que j'escomptais réaliser.

Je viens de m'atteler au problème, or dans la fonction la variable "fos" est du type TSHFileOpStruct que le compilateur ne reconnait pas, ne peut-on pas la remplacer par une variable du type array[0..N] of char puisque elle contient la chaîne de caractères constituée par les fichiers à envoyer à la benne ?

Non en fait puisque je pense que c'est un type enregistrement
type
TSHFileOpStruct = record
wFunc : Word;
pFrom : array[0..N] of char;
fFlags : Word;
end;

de même les constantes :
FO_DELETE
FOF_ALLOWUNDO
FOF_NOCONFIRMATION
FOF_SILENT
ne sont pas reconnues et je ne trouve pas leurs valeurs ...

[Rayek]

Ajoute ShellApi dans les uses de ton unité

[F@bien.fd]

Ajoute ShellApi dans les uses de ton unité

Merci, je n'y avais évidemment pas pensé car je l'avais placé dans l'unité principale et ma fonction est dans une unité secondaire , je suis presque arrivé au bout.

de plus pFrom : n'est pas du type array[0..N] of char mais String;

Il me reste à résoudre le problème des types incompatibles dans
result := (0 = ShFileOperation(fos));

où "fos" est du type defini "TSHFileOpStruct" et le résultat "result"de la fonction qui semble du type"_SHFILEOPSTRUCA".

[F@bien.fd]

un problème demeure avec
result := (0 = ShFileOperation(fos));

En fait j'avais redéclaré le type enregistrement ...

donc la fonction peut être utilisée telle quelle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function DeleteFileToRecycleBin(AFileName: string) : boolean;
var
  fos : TSHFileOpStruct;
begin
  FillChar(fos, SizeOf(fos),0);
  with fos do
  begin
    wFunc  := FO_DELETE;
    pFrom  := PChar(AFileName+#0);
    fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
  end;
  result := (0 = ShFileOperation(fos));
end;

Mais surtout il ne faut pas oublier de rajouter uniquement dans les uses le ShellApi dans l'unité concernée et pas l'unité principale.

Merci pour l'aide qui m'a été apportée.