Удалить файл в корзину

ОГЛАВЛЕНИЕ    HOME  MAIL

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
  SHF: TSHFileOpStruct;
begin
  if (not OpenDialog1.Execute) then Exit;
  with SHF do begin
    Wnd := Application.Handle;
    wFunc := FO_DELETE;
    pFrom := PChar(OpenDialog1.FileName);
    fFlags := FOF_ALLOWUNDO;
  end;
  SHFileOperation(SHF);
end;