如何使用 Delphi 创建 IDataObject 实例？答案

【问题标题】：How can I create a IDataObject instance with Delphi?如何使用 Delphi 创建 IDataObject 实例？
【发布时间】：2009-06-10 16:26:25
【问题描述】：

这个C++ code shows how OLE can be used to simulate a file drag and drop to simulate a 'Send to...' operation。这将打开带有所选文件作为附件的标准邮件客户端，这是 mailto: 协议处理程序的一个非常有趣的替代方案。

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

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

【问题讨论】：

【解决方案1】：

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

type
  TDataObject = class(TInterfacedObject, IDataObject)

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

【讨论】：

是的，我同意它实际上看起来并不难移植。也许我可以使用 IShellFolder 的 GetUIObjectOf 方法，请参阅我的 Delphi 代码示例链接，而无需实现 IDataObject。