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