DIRETO P/ LIXEIRA!!! Urgente!

Question

Ol� caros colegas,

Socorrooo, tenho que fazer logo uma pequena aplica��o que simplesmente apague todo o conte�do da lixeira sem mesmo pedir

Afb · Answer

Tenho o codigo mas como foi muito dificil para eu fazer temos que ser discretos para estar enviando este codigo fonte caso queira me mande um e-mail.afb1@bol.com.br...

Dor_poa · Answer

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;