如何捕捉和打开拖放到应用程序图标上的文件？答案

【问题标题】：How to catch and open files dragged and dropped on an application icon?如何捕捉和打开拖放到应用程序图标上的文件？
【发布时间】：2011-12-16 03:03:42
【问题描述】：

如何打开被拖放到应用程序图标上的文档？

【问题讨论】：

【解决方案1】：

在您的 EXE 上放置的文档的文件名位于 ParamStr(1)。

【讨论】：

谢谢安德烈亚斯。我有早期 Delphi 的旧代码，它使用 DragAcceptFiles 和 AppMessageHandler 以及 Msg.Message = WMDropFiles。（摘自《Delphi 3 - 用户界面设计》一书清单 7-10 Method to get files dropped on icon）。也许那时需要或不需要，但现在我可以删除正在做的任何事情。
@lkessler，即放置在应用程序的窗口/控件之一上的文件，而不是拖动到启动程序的应用程序图标（即快捷方式或 EXE 文件本身）上的文件。您可能会混淆将文件传递给程序的两种不同技术。
@DavidM - 好吧，那本书显然是在图标上使用了这种技术。部分测试是“if IsIconic(Application.Handle)”。那是当时用于实践 Delphi 开发的最佳书籍之一。作者是沃伦·科瓦奇。我用了很多。我想知道我的代码中是否还有其他类似的恐龙。
@lkessler, IsIconic 是 running 应用程序最小化的窗口状态。从 Windows '95 开始，这些应用程序显示在任务栏上，但在此之前它们显示为图标。如果您在应用程序的图标上拖动文件，则该程序尚未运行并且没有任何状态。
是的，我记得每次 LMB 过早发布时收到 MessageBox('您无法将项目拖动到工具栏。您的拖动操作已中止') 是多么烦人。