Ir para o conteúdo
Mikas

Mandar Ficheiros para a Reciclagem

Mensagens Recomendadas

Mikas    0
Mikas

Alguem me perguntou isto, portanto acho k pode vir a fazer jeito.

Para apagar ficheiros para a reciclagem e so fazer uses da unit ShellAPI

Ensinaram-me a fazer sempre tudo dentro de funcoes por isso ca vai mais uma funcao para fazerem isto:

Function DeleteFileWithUndo(sFileName : string ) : boolean;
var
  fos : TSHFileOpStruct;
Begin
  FillChar( fos, SizeOf( fos ), 0 );
  With fos do
  begin
    wFunc := FO_DELETE;
    pFrom := PChar( sFileName );
    fFlags := FOF_ALLOWUNDO
    or FOF_NOCONFIRMATION
    or FOF_SILENT;
  end;
  Result := ( 0 = ShFileOperation( fos ) );
end;

Aproveitem se fizer jeito!!

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade