文件拖放到 Form 的实现如下:
在 TForm1.Create 中加入一句:
DragAcceptFiles(Self.Handle,Enabled);
让它接受拖放操作,然后使这个 Form 能够解释拖放内容:
procedure DropFiles(var Msg:TMessage);message WM_DROPFILES;
对消息进行查询就可以知道文件数和文件名:
DragQueryFile(Msg.WParam,$FFFFFFFF,@FileName,256);// 第一次调用得到拖放文件的个数
DragQueryFile(msg.WParam,i,@FileName,256);// 第二次调用得到文件名称
将得到的文件名称送入你的播放器进行播放。