如何使用 Delphi 创建 IDataObject 实例?

发布于 2024-07-24 05:16:25 字数 385 浏览 3 评论 0原文

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

在 Delphi 中创建 IDataObject 的必要实例的最佳(简短且安全)方法是什么?

我在此处找到了一些代码,但也许有更好的解决方案。

This C++ code shows how OLE can be used to simulate a file drag and drop to simulate a 'Send to...' operation. This will open the standard mail client with the selected file(s) as an attachment, a very interesting alternative to the mailto: protocol handler.

Which is the best (short and safe) way to create the neccessary instance of IDataObject in Delphi?

I have found some code here but maybe there is a better solution.

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

评论(1

左耳近心 2024-07-31 05:16:25

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

type
  TDataObject = class(TInterfacedObject, IDataObject)

从 C++ 示例中所示的所需方法

Porting the C++ code to Delphi probably isn't too difficult.
Start with

type
  TDataObject = class(TInterfacedObject, IDataObject)

and implement the required methods as shown in the C++ example.

~没有更多了~
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文