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