如何让我的播放器支持拖放?(8分)

P

plzw

Unregistered / Unconfirmed
GUEST, unregistred user!
即,将文件拖动到我的播放器之后,就可以播放该文件。
 
哦: 捕获你的WM_DROPFILES消息就行了。
 
你可以试一试DragDrop控件,这里有下载http://www.melander.dk
 
你给我的地址,我打不开,你要是有那个控件的话,麻烦发到e-bz@163.com,谢谢!
 
文件拖放到 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);// 第二次调用得到文件名称
将得到的文件名称送入你的播放器进行播放。
 
小小分数,不成敬意!
 
顶部