Мир Delphi
	Все самое интерресное что найдено в интернете о Delphi: компоненты, исходники программ, новые алгоритмы и решения.

Алгоритмы и решения / Файловая система (2) / Удалить файл в корзину

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;