如何使用 Delphi 創建 IDataObject 實例？

Question

此C++ 代碼顯示了如何使用 OLE 來模擬文件拖放以模擬“發送到...”操作。 這將打開帶有所選文件作為附件的標准郵件客戶端，這是 mailto: 協議處理程序的一個非常有趣的替代方案。

在 Delphi 中創建 IDataObject 的必要實例的最佳（簡短且安全）方法是什么？

我在這里找到了一些代碼，但也許有更好的解決方案。

Answer 1

將 C++ 代碼移植到 Delphi 可能並不太困難。 從...開始

type
  TDataObject = class(TInterfacedObject, IDataObject)

並實現所需的方法，如 C++ 示例中所示。