O uso indevido desta dica pode causar perda irreversível de dados.

O exemplo abaixo mostra como enviar um arquivo para a Lixeira usando a Shell API do Windows.

• Inclua na seção uses: ShellApi, SysUtils, Dialogs
• Copie e cole o código da função MoveParaLixeira logo abaixo da palavra implementation sem seu código-fonte.

procedure MoveParaLixeira(const Arquivo: string);
var
  Operacao: TSHFileOpStruct;
begin
  if not FileExists(NomeArq) then
    raise Exception.Create('Arquivo não encontrado:'#13 + Arquivo);
  FillChar(Op, SizeOf(Op), 0);
  with Operacao do 
  begin
    wFunc := FO_DELETE;
    pFrom := PChar(Arquivo);
    fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
  end;
  if ShFileOperation(Operacao) <> 0 then
    raise Exception.Create('Não foi possível mover o arquivo para a lixeira.');
end;

Usando a função MoveParaLixeira

• Coloque um botão no formulário.
• Programe o evento OnClick deste botão como segue.

procedure TForm1.Button1Click(Sender: TObject);
begin
  MoveParaLixeira('C:\Diretorio\Teste.txt');
  ShowMessage('O arquivo foi enviado para a lixeira.');
end;