(Resolvido) API Windows para deletar arquivos

[Denis Courcy]

Oi,

alguém conhece a API do windows (e como funciona) que ao deletar um arquivo/pasta, este é movido para a lixeira?

Não quero usar a função DeleteFile. esta não atende meus objetivos.

[Vivendo&Aprendendo]

Olá Denis

alguém conhece a API do windows (e como funciona) que ao deletar um arquivo/pasta, este é movido para a lixeira?
Não quero usar a função DeleteFile. esta não atende meus objetivos.

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;

Use este código... Para chamar:

DeleteFileWithUndo('C:\Documents and Settings\Usuário\Desktop\Novo(a) Documento de texto.txt');

Abraço

Editado Julho 25, 2008 por Vivendo&Aprendendo

[Denis Courcy]

Oi, 'Vivendo&Aprendendo'!

Obrigado pela ajuda.

Vou testar assim que chegar em casa.