Bonjour,

Quelqu'un a t'il une méthode qui fonctionne pour passer à la poubelle un fichier? J'ai récupéré ceci du net, mais ca veut pas ...

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
 
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// DELETE TO BIN
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
function DeleteToBin(FileName : string) : boolean;
var FileOpStruc: TSHFileOpStruct;
begin
  Result := False;
  try
    with FileOpStruc do
    begin
      Wnd := 0;
      wFunc := FO_DELETE;
      pFrom := pChar(FileName);
      fFlags := FOF_ALLOWUNDO
    end;
    SHFileOperation(FileOpStruc);
  except
    Exit;
  end;
  Result := not FileExists(FileName);
end;
et c'est bien dommage!