本软件是基于BASS.dll动态库的mp3播放软件，支持歌词同步显示和编辑，支持拖放，只需要找到歌词文本，然后利用本软件在播放音乐的同时程序插入时间标签，然后就可以同步显示歌词！大家给点意见哦！
有个问题：将mp3文件拖放到应用程序的图标上，程序便可以自动运行并加入到列表（或者播放），不知道如何实现，希望哪位大大指点一下。本软件只有在运行的时候，将mp3文件拖放到程序窗口，然后添加到列表（或者播放）！

附加檔案：4590d50534e68_esMusic.rar

1、uses 加進一個shellapi單元

2、在form type的private段里加進一個宣告
procedure WMDROPFILES(var Msg: TWMDropFiles); message WM_DropFiles;

3、在主程式段里加進相應的事件
procedure TForm1.WMDROPFILES(var Msg: TMessage);
var
pcFileName: PChar;
i, iSize, iFileCount: integer;
begin
pcFileName := ''; // 避免編輯時出現警告
iFileCount := DragQueryFile(Msg.wParam, $FFFFFFFF, pcFileName, 255);
for i := 0 to iFileCount - 1 do
begin
iSize := DragQueryFile(Msg.wParam, i, nil, 0) 1;
pcFileName := StrAlloc(iSize);
DragQueryFile(Msg.wParam, i, pcFileName, iSize);
if FileExists(pcFileName) then
AddFile(pcFileName); // 看你要怎麼處理這個接收到的檔名
StrDispose(pcFileName);
end;
DragFinish(Msg.wParam);
end;


4、在onFormCreate事件中，加進
DragAcceptFiles(self.Handle,true);


OK，就這些.......................................


不過..........我突然發現............KTOP怎麼好像沒版主管理了？怎麼這種不太屬於多媒体的問題都沒人幫忙搬版呢？

------
歡迎在大陸的台商加入我們的行列
台商小棧 www.twgocn.com

我的程序就是这样写的，但是只能在程序运行的时候，才可以拖文件到程序窗口，但是如果程序没有运行，拖动文件到程序的图标，程序就没有办法识别。我见很多程序都可以在其没有运行的情况下拖动文件到程序图标而实现文件的识别。麻烦大大再指点一二！谢谢你的关注哦！

把文件拖放到你的程序圖標上，會自動撥放............這超簡單的啦..........
你只要在ONFormCreate的時候，加上二行
if Paramcount > 0 then
dragfile := paramstr(1):
原因就是..........系統的shell在拖放圖標時，把放在圖標上的文件名，做成第一個引數傳給程序了
信不信？做一個空的程序，什麼事都不做，加一個onformcreate的事件，在事件中加一行
if paramcount>0 then showmessage(paramstr(1));
然後試著把任意一個文件拉到你的程序圖標上(在windows的任一個地方都可以)，你會看到你的程序會運行起來，一運行就顯示你拖放的那個文件完整路徑跟文件名

(別捨不得結案唷)

------
歡迎在大陸的台商加入我們的行列
台商小棧 www.twgocn.com