delphi中文件拖入功能的实现

procedure TForm1.WMDropFiles(var message : TMessage );

var
p : Array[0..254] of Char;
i : Word;


begin
 i:=DragQueryFile(message.WParam ,$ffffffff,nil,0); //返回的是文件名的字符数


 For i:= 0 To i-1  Do
   begin
    DragQueryFile(message.WParam,i,p,255); //p为获取的文件名的字符串


    ShowRecord(p);


   end;

end;

另外  还需在 public上定义这个过程

procedure WMDropFiles(var Message :TMessage) ;message WM_DropFiles;

而且还要调用SHELLAPI函数（在前面use上加入）