Smazání souboru do koše

A zbývá nám už jen naučit se, jak soubor přesunout právě do koše. Zde je tedy příslušná funkce, která využívá pro změnu zase ShellApi.
function SmazDoKose(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;

procedure TForm1.Button1Click(Sender: TObject);
begin
if SmazDoKose('c:\soubor.txt') then ShowMessage('Soubor přesunut do koše')
else ShowMessage('Došlo k chybě !');
end;