Delphi 获取拖动到窗体中的文件的路径

Delphi 获取拖动到窗体中的文件的路径，这实际上是一个拖放打开文件的例子，这只不是其中的一个步骤，拖放打开是把文件拖放到本窗口中，直接打开该文件，而拖放得到路径是把文件的路径显示在窗口中，和打开文件其实难易程序是一样的。拖放后获取文件路径，代码如下： 　　procedure TForm1.FileIsDropped(var Msg: TMessage); 　　var 　　 NumFiles : longint; 　　 i : longint; 　　 FName : array[0..255] of char; 　　begin 　　 SetForegroundWindow(Handle); 　　 NumFiles := DragQueryFile(Msg.WParam,$FFFFFFFF,nil,0); 　　 for i := 0 to (NumFiles - 1) do 　　 begin 　　 DragQueryFile(Msg.WParam,i,FName,sizeof(FName)); 　　 Memo1.Lines.Add(FName); 　　 end; 　　end;