fbpx

Enviando arquivos para a lixeira

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.

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.