mp3…………….

 Delphi 3.0是一個非常優秀的軟體，利用它可很快地製作出一個簡單的MP3音樂點歌台。
　　原理：製作一個MP3播放程式(本文以Winplay3為例)的外殼，建立中文歌曲名與MP3檔案的關聯，從而實現中文歌名的“點歌”。
　　步驟：
　　一、建立一個檔案
　　建立一個新的工程(New Project)和空白表單(Form1)，將Form1的Caption屬性改為“我的點歌台”，在Form1中加入兩個Comobobox構件，一個用來顯示歌曲所在的專輯，將其Name屬性改為zj，一個用來顯示中文歌曲名稱，將其Name屬性改為Gq，在各自的上方分別加入一個Label構件，將其Caption屬性改為“專輯選擇”和“歌曲選擇”，再加入兩個Bitbotton構件，將其Caption屬性分別設定為“播放”和“退出”。
　　二、觀察裝有MP3檔案的光碟片的目錄特點
　　一般的目錄都很有規律，如以筆者的一張光碟片為例，全盤共分12張專輯，其子目錄分別為：c01、c02……c12，分別建立名為c01.txt、c02.txt……c12.txt的文字檔，按順序輸入相應專輯下的中文歌曲名稱，注意一個歌曲名佔一行，並將其放入目前的目錄。在Object inspector中，選擇zj，雙擊其Lines屬性，然後依次輸入專輯的名稱，注意一個專輯名稱佔據一行；選擇Gq，雙擊其Lines屬性，刪除其預設內容。
　　三、編寫程式
　　在unit1?pas的Use語句加入Fmxutils，在Var部分加入一行：
　　var name:string,path;{name為MP3檔案的檔案名稱，path為其路徑}
　　然後在Form1表單中，雙擊zj，加入以下程式：
　　procedure TForm1?zjChange(Sender:TObject);
　　begin
　　case zj?itemindex of
　　0??8,10??20:path:=′e:/c0′＋inttostr(zj?itemindex＋1);
　　9:path:=′e:/c′＋inttostr(zj?itemindex＋1);
　　{e為光碟機的盤符，據實際情況而定}
　　end;
　　name:=inttostr(zj?itemindex)＋ ′txt′;
　　gq?items?loadfrom (name);
　　gq?text:=gq?Items?strings [0];
　　end;
　　{雙擊Caption屬性為“播放”的按鈕，加入以下內容}
　　procedure TForm1?Button1Click(Sender:TObject);
　　begin
　　case gq?itemindex of
　　0??8,10??20:name:=path＋′/′＋′0′＋inttostr(gq?itemindex＋1)＋`mp3`;
　　9:name:=path＋′/10?mp3′;
　　else
　　name:=path＋ 01?mp3′;
　　end;
　　execute(‘winplay3?exe’,mpname,′c:/winplay3′,sw_hide);
　　{winplay3?exe為mp3播放程式的檔案名稱，c:/winplay為其路徑,sw_hide表示為後台播放，需根據實際情況靈活確定。}
　　end;
　　{雙擊Caption屬性為“關閉”的按鈕，輸入以下內容}
　　procedure TForm1?Button1Click(Sender:TObject);
　　begin
　　form1?close;
　　end;
四、編譯運行
　　單擊Run表徵圖，程式被編譯並運行。此時，單擊“專輯選擇”下拉框，即會出現各個專輯名稱供你選擇。同時，在“歌曲選擇”中也會出現專輯中所有歌曲的中文名稱，選擇其一後，單擊“播放”按鈕，所點歌曲便被播放。這樣，一個簡單的“點歌台”就製作成功了。