Windows - mandar arquivo para lixeira

Top  Previous  Next

{

 Esta funcao devolve true se deletar e mandar

 o 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;