• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Mikas

Mandar Ficheiros para a Reciclagem

1 mensagem neste tópico

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

0

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