delphi - 如何在Delphi中使IDropTarget与我的Drop Handler一起使用？

Question

我已将文件扩展名与Delphi 2009程序相关联。我一直在使用命令行调用方法将文件名传递给我的Delphi程序，以便可以将其打开。

但是，我发现选择多个文件并同时单击它们时，它会在程序的单独实例中打开每个文件。 I asked about this，显然解决方案是使用one of the other two Windows methods: DDE or IDropTarget。

但是不建议使用DDE，MSDN建议使用IDropTarget方法。另外，Lars Truijens in his answer to me表示如果我已经在运行拖放功能，则IDropTarget可能会更好。

当前，这是我的放置处理程序：

private
  procedure WMDropFiles(var WinMsg: TMessage);
            message wm_DropFiles;

procedure TLogoAppForm.FormShow(Sender: TObject);
begin
  DragAcceptFiles(Handle, true);
end;

procedure TLogoAppForm.WMDropFiles(var WinMsg: TMessage);
// From Delphi 3 - User Interface Design, pg 170
const
  BufSize = 255;
var
  TempStr : array[0..BufSize] of Char;
  NumDroppedFiles, I: integer;
  Filenames: TStringList;
begin
  NumDroppedFiles := DragQueryFile(TWMDropFiles(WinMsg).Drop, $ffffffff, nil, 0);
  if NumDroppedFiles >= 1 then begin
    Filenames := TStringList.Create;
    for I := 0 to NumDroppedFiles - 1 do begin
      DragQueryFile(TWMDropFiles(WinMsg).Drop, I, TempStr, BufSize);
      Filenames.Add(TempStr);
    end;
    OpenFiles(Filenames, '');
    Filenames.Free;
  end;
  DragFinish(TWMDropFiles(WinMsg).Drop);
  WinMsg.Result := 0;
end;

现在，它可以接受一个或多个文件，并将按我的要求打开它们。这是一本非常古老的代码，来自于Delphi 3的一本书，但它似乎仍然有效。

我找不到任何地方有关如何在Delphi中实现IDropHandler的文档，尤其是如何使其与我正在使用的Drop Handler配合使用。

有人可以告诉我如何使用IDropHandler，以便单击具有我的文件扩展名的选定文件会将其传递给我的Drop Handler，我的程序可以打开所有单击的文件吗？

Answer 1

This page有一个在Delphi中实现IDropTarget的示例。 Here是来自Jedi Code Formatter的另一个。但是this library可能更好。除其他功能外，它还可以从Windows资源管理器中拖放，因此已经在TDropHandler类中支持IDropTarget。