déplacer fichier corbeille

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.

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

Citation:

---

Envoyé par JustMe

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

---

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

Citation:

---

Envoyé par F@bien.fd

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

---

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 ...

Ajoute ShellApi dans les uses de ton unité

Citation:

---

Envoyé par Rayek

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 :oops:, 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".

Citation:

---

Envoyé par F@bien.fd

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

---

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

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

Code:

---

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.:oops:

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