delphi - 如何使用 Delphi 创建 IDataObject 实例？

Question

此C++ 代码显示了如何使用 OLE 来模拟文件拖放以模拟“发送到...”操作。这将打开带有所选文件作为附件的标准邮件客户端，这是 mailto: 协议处理程序的一个非常有趣的替代方案。

在 Delphi 中创建 IDataObject 的必要实例的最佳（短而安全）方法是什么？

我在这里找到了一些代码，但也许有更好的解决方案。

Answer 1

将 C++ 代码移植到 Delphi 可能并不太难。从...开始

type
  TDataObject = class(TInterfacedObject, IDataObject)

并实现所需的方法，如 C++ 示例中所示。