Buscar

Enviar arquivo para lixeira

Código


//Enviando um arquivo para a lixeira  

uses ShellAPI;
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;
   
 
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 28/07/03
Por: Carlos Renato Pereira Zen
Visualizada: 2230 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009