Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Vídeos

Vídeos

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

ÚLTIMOS DIAS PARA ECONOMIZAR!

Adquirindo uma licença anual do Tecnobyte SAC Lite, Tecnobyte SAC Plus ou Tecnobyte SAC Pro até 31/12/2024, você economiza 14,69% em relação ao novo valor mensal, pois evita o reajuste e ainda mantém os 10% de desconto da anuidade.

Tempo restante:

Delphi - Arquivos, Diretórios e Discos

Como enviar um arquivo para a lixeira?

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;

O conteúdo desta página pode ajudar alguém? Compartilhe!