Delphi以拖动的方式打开文件，把文件拖放到程序窗口中，就可打开文件，这是一种比较快捷的打开文件的方式，可避免用户去一级一级选择文件路径的麻烦，拖放部分核心代码如下：
NumFiles := DragQueryFile(Message.Drop,$FFFFFFFF,nil,0);
//有多少文件被放下
for i := 0 to (NumFiles - 1) do begin
//循环处理放下的文件，此处只是显示其文件名
DragQueryFile(Message.Drop,i,@buffer,sizeof(buffe
