Apagar o conteúdo da lixeira, tem como????

Nunca testei...ve se funciona..de qualquer forma...boa sorte

function ApagarArquivoLixeira(sFileName: string ): boolean;
var
fos: TSHFileOpStruct;
begin
FillChar( fos, SizeOf( fos ), 0 );
with fos do
begin
wFunc := FO_DELETE;
// pFrom := @PChar( sFileName );
pFrom := @( sFileName );
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
end;
Result := ( 0 = ShFileOperation( fos ) );
end;