使用 Delphi SHFileOperationW 刪除檔案到資源回收筒

uses
  ShellAPI;

procedure TForm1.FormCreate(Sender: TObject);
var
  FileOpStrucW: TSHFileOpStructW;
  F1, F2: PWideChar;
begin
  F1 := PWideChar(WideString('C:\f1.txt'));
  F2 := PWideChar(WideString('C:\temp.txt'));
  FileOpStrucW.Wnd := Application.Handle;
  with FileOpStrucW do
  begin
    wFunc := FO_COPY; // 複製
    pFrom := F1;
    pTo := F2;
    fFlags := 0;
  end;
  SHFileOperationW(FileOpStrucW);

  with FileOpStrucW do
  begin
    wFunc := FO_DELETE; // 刪除
    pFrom := F2;
    pTo := nil;
    fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION; // 直接丟進 RecycleBin
  end;
  SHFileOperationW(FileOpStrucW);
end;