delphi 拖放操作

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

 

procedure TUnionExpress.WMDropFiles(var msg :TMessage);
  var
    buffer: array[0..1024] of Char;
  begin
    inherited;
    buffer[0] := #0;
    DragQueryFile(Msg.WParam, 0, buffer, sizeof(buffer)); //第一个文件

　　edit1.text = buffer　　　　//可以是文件夹  也可以是单个文件     

end;

转载于:https://www.cnblogs.com/11wf/archive/2012/11/27/2791485.html