Delphi中实现向窗口拖放文件，获取文件结果集的代码：

事件定义：

procedure WMDROPFILES(var Message: TWMDROPFILES); message WM_DROPFILES;

实现内容：

procedure Tform1.WMDROPFILES(var Message: TWMDROPFILES);

const

  cnmaxfilenamelen = 255;

var

  i, ncount : integer;

  acfilename: array [0 .. 255] of char;

begin

  ncount := dragqueryfile(message.drop, $FFFFFFFF, acfilename, cnmaxfilenamelen);

  for i  := 0 to ncount - 1 do

  begin

    dragqueryfile(message.drop, i, acfilename, cnmaxfilenamelen);

      ShowMessage(acfilename); // 或者你可以将它们添加到窗体上的某个控件中

  end;

  dragfinish(message.drop);

end;