Enviando arquivos para a Lixeira
Para excluir um arquivo, enviando-o para a Lixeira (ao invés de excluí-lo definitivamente), use a rotina abaixo:
uses ShellAPI; {insira na cláusula uses de sua unit}
function MandaParaALixeira (Arquivo : String) : Boolean;
var
FOS : TSHFileOpStruct;
begin
FillChar(FOS, sizeof(FOS), 0);
with FOS do
begin
wFunc := FO_DELETE;
pFrom := PChar (Arquivo);
fFlags := FOF_AllowUndo or FOF_NoConfirmation or FOF_Silent;
end;
Result := (0 = ShFileOperation(FOS));
end;
Lembre-se: Não se esqueça de incluir a unit ShellAPI na cláusula uses de sua unit.
