一款基于BASS.dll的自制Mp3播放软件! |
|
tyxycylwxl
一般會員 發表:6 回覆:4 積分:2 註冊:2006-11-02 發送簡訊給我 |
本软件是基于BASS.dll动态库的mp3播放软件,支持歌词同步显示和编辑,支持拖放,只需要找到歌词文本,然后利用本软件在播放音乐的同时程序插入时间标签,然后就可以同步显示歌词!大家给点意见哦!
有个问题:将mp3文件拖放到应用程序的图标上,程序便可以自动运行并加入到列表(或者播放),不知道如何实现,希望哪位大大指点一下。本软件只有在运行的时候,将mp3文件拖放到程序窗口,然后添加到列表(或者播放)! |
japhen
中階會員 發表:2 回覆:57 積分:71 註冊:2006-08-16 發送簡訊給我 |
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 |
tyxycylwxl
一般會員 發表:6 回覆:4 積分:2 註冊:2006-11-02 發送簡訊給我 |
|
japhen
中階會員 發表:2 回覆:57 積分:71 註冊:2006-08-16 發送簡訊給我 |
把文件拖放到你的程序圖標上,會自動撥放............這超簡單的啦..........
你只要在ONFormCreate的時候,加上二行 if Paramcount > 0 then dragfile := paramstr(1): 原因就是..........系統的shell在拖放圖標時,把放在圖標上的文件名,做成第一個引數傳給程序了 信不信?做一個空的程序,什麼事都不做,加一個onformcreate的事件,在事件中加一行 if paramcount>0 then showmessage(paramstr(1)); 然後試著把任意一個文件拉到你的程序圖標上(在windows的任一個地方都可以),你會看到你的程序會運行起來,一運行就顯示你拖放的那個文件完整路徑跟文件名 (別捨不得結案唷)
------
歡迎在大陸的台商加入我們的行列 台商小棧 www.twgocn.com |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |